こう？
#!perl -w
use strict;
use Test::More 'no_plan';
sub f{
# 何かする
package ::Foo;
}
f();
is ref(bless({}, 'Foo')), 'Foo';
__END__
2008/10/07
Perl Quiz に答えてみる
http://d.hatena.ne.jp/gfx/20081007/1223340787
こう？
こう？
Posted at 12:35
in ソフトウェア::lang::perl
| WriteBacks (0)
| Edit
Tagged as: perl
Bookmarks:
|
|
|
|
|
|
Tagged as: perl
Bookmarks:
|
|
|
|
|
WriteBacks
writeback message: Ready to post a comment.
![[Valid RSS]](http://mattn.kaoriya.net/images/valid-rss.png "Validate my RSS feed")
