17 lines
189 B
Perl
17 lines
189 B
Perl
|
package CPAN::DeferredCode;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use vars qw/$VERSION/;
|
||
|
|
|
||
|
|
use overload fallback => 1, map { ($_ => 'run') } qw/
|
||
|
|
bool "" 0+
|
||
|
|
/;
|
||
|
|
|
||
|
|
$VERSION = "5.50";
|
||
|
|
|
||
|
|
sub run {
|
||
|
|
$_[0]->();
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|