blob: c57669b17789c2918033438563620696b8cb8100 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
package CPAN::DeferedCode;
use strict;
use vars qw/$VERSION/;
use overload fallback => 1, map { ($_ => 'run') } qw/
bool "" 0+
/;
$VERSION = "5.50";
sub run {
$_[0]->();
}
1;
|