Perlのオブジェクト指向って無理やり実装だなｗ

[0221 nobodyさん 2008/09/10(水) 07:30:55 ID:???]

こう書けるPerlは記述生が高い。

use strict;
use warnings;

sub func1 {
my %arg = (
'name' => 'yamada',
'age' => 18,
@_
);
print "$arg{name} $arg{age}\n"
}

func1(name=>'tanaka');