blob: 0db37a64853417f25e050bb227306fcf62546f88 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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;
|