日常

ボスはPerlは糞言語だと思っているらしい。
そんなもん今時使っている人はいるのか？って言ってた。
がーん。少なくともSmalltalk人口よりは。。。
勿論、利用されているからといって優れているわけではないのは承知。

突っ込みどころ満載だけど、OOスタイルのPerlで糞面倒な
my $self = shift;
を省略する試み。

面白いと思うんだけどなぁ。
だから駄目なのかなぁ。

sub new
{
	return bless {}, $_[0];
}

sub foo
{
	return @_;
}

$a = new main;
print $a->foo(1..3);

sub BEGIN
{
	foreach (keys %::)
	{
		next unless defined &{$::{$_}};
		next if /^(?:new)$/o;
		$__{$_} = \&{$::{$_}};
		delete $::{$_}; # こ、これは拙い。。。
	}
}

sub AUTOLOAD
{
	$AUTOLOAD =~ s/.*:://o;
	if (ref $_[0]) {
		$self = shift;
		&{$__{$AUTOLOAD}};
	} else {
		# 手抜き
	}
}

sub DESTROY
{
	# 手抜き
}