こう?
#!perl -w
use strict;
use Test::More 'no_plan';
sub f{
# 何かする
package ::Foo;
}
f();
is ref(bless({}, 'Foo')), 'Foo';
__END__
#!perl -w
use strict;
use Test::More 'no_plan';
sub f{
# 何かする
package ::Foo;
}
f();
is ref(bless({}, 'Foo')), 'Foo';
__END__
このブログを応援する