Big Sky :: Perl Quiz に答えてみる

2008/10/07

Perl Quiz に答えてみる

http://d.hatena.ne.jp/gfx/20081007/1223340787

こう？


#!perl -w

use strict;

use Test::More 'no_plan';

sub f{

    # 何かする

    package ::Foo;

}

f();

is ref(bless({}, 'Foo')), 'Foo';

__END__

Posted at 13:01 | WriteBacks () | Edit

Edit this entry...

wikieditish message: Ready to edit this entry.

New Name:

Title:

Body:

meta-tags: perl
meta-creation_date: 2008-10-07T13:01:58+09:00

<a href="http://d.hatena.ne.jp/gfx/20081007/1223340787" class="external" target="_blank" rel="noopener noreferrer">http://d.hatena.ne.jp/gfx/20081007/1223340787</a> 
 
こう？
<code class="code">
#!perl -w 
use strict; 
use Test::More 'no_plan'; 
sub f{ 
&nbsp;&nbsp;&nbsp;&nbsp;# 何かする 
&nbsp;&nbsp;&nbsp;&nbsp;package&nbsp;::Foo; 
} 
f(); 
is ref(bless({}, 'Foo')), 'Foo'; 
__END__ 
</code>

Excerpt:

Ping URLs:

File:

Password:

A quick preview will be rendered here when you click "Preview" button.