地獄だ･･･

元々のソース。

sub IsThisBINGO {
	my $ret =undef ;
	if ($fugaValue != 0)  {
		#評価に必要な値が取れている
		if ( ($hogeValue > $fugaValue) and ($hoge[@hoge-2] < $fuga[@fuga-2]) ) { 
			$ret = 'BINGO' ;
		}
	}
	return $ret ;
}

これをインスタンスメソッド化すると。

sub IsThisBINGO {
	my $self = shift ;
	my $ret  = undef ;
	if ($self->{fugaValue} != 0)  {
		#評価に必要な値が取れている
		if ( ($self->{hogeValue} > $self->{fugaValue}) 
		and ($self->{hoge}[@{$self->{hoge}}-2] < $self->{fuga}[@{$self->{fuga}}-2]) ) { 
			$ret = 'BINGO' ;
		}
	}
	return $ret ;
}

地獄すぎｗｗｗｗ　しぬｗｗｗｗｗｗｗ