サブルーチンの重複

perlでは同じサブルーチンがあるとredefinedしてくれるようだ。

$ cat test.pl
#!/usr/bin/perl -w

sub funca {
    print "func: a\n";
}
sub funca {
    print "func: aa\n";
}

&funca;
$ perl test.pl
Subroutine funca redefined at z.pl line 6.
func: aa
$