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