2008-08-29から1日間の記事一覧
use strict; my $subclass = 'Test'; print 'hard ref : ' . (eval { defined ${"${subclass}::"}; 1 } ? 1 : 0), "\n"; sub foo { print 'foo' } print 'check &foo : ' . (defined &foo ? 1 : 0), "\n"; 5.8.8 hard ref : 1 check &foo : 15.10.0 hard ref…