こう?
#!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__
|
writeback message: Ready to post a comment.
API, blosxom, C, c, c++, chrome, firefox, freenode, github, go, golang, google, google app engine, google reader, greasemonkey, growl, gtk, gtktwitter, irc, javascript, jquery, json, linux, lua, memcached, microformats, minibuffer, mixi, opera, perl, plagger, python, ruby, tinytinyhttpd, tips, tumblr, twitter, vim, vimperator, wassr, webscraper, windows, WSSE, はてな, はてなスター, はてなブックマーク, もごもご