[p5sagit/p5-mst-13.2.git] / lib / CPAN / DeferredCode.pm

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;
Commit	Line	Data
f9916dde	1	package CPAN::DeferredCode;
	2
	3	use strict;
	4	use vars qw/$VERSION/;
	5
	6	use overload fallback => 1, map { ($_ => 'run') } qw/
	7	bool "" 0+
	8	/;
	9
	10	$VERSION = "5.50";
	11
	12	sub run {
	13	$_[0]->();
	14	}
	15
	16	1;