こう?
#!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__
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, tthttpd, tumblr, twitter, vim, vimperator, wassr, webscraper, windows, WSSE, はてな, はてなスター, はてなブックマーク, もごもご, ネタ