Signal SEGV at (reeval 422)[pm.890409.pl:30] line 1

##</code><code>##

>> (eval 334)[C:/perl/site/5.10.1/lib/MSWin32-x86-multi-thread/Class/MOP/Method/Generated.pm:53]:1: sub {exists $_[0]->{"actual_body"}}
>> C:/perl/site/5.10.1/lib/MSWin32-x86-multi-thread/Class/MOP/Method/Wrapped.pm:48:             return $around->{cache}->(@_);
>> accessor actual_body defined at C:/perl/site/5.10.1/lib/MooseX/Method/Signatures/Meta/Method.pm:101: >> accessor actual_body defined at C:/perl/site/5.10.1/lib/MooseX/Method/Signatures/Meta/Method.pm:101: >> C:/perl/site/5.10.1/lib/MooseX/Method/Signatures/Meta/Method.pm:153:         goto &{ $actual_body };
>> C:/perl/site/5.10.1/lib/MooseX/Method/Signatures/Meta/Method.pm:153:         goto &{ $actual_body };
>> pm.890409.pl:34:     method BUILD {

>> pm.890409.pl:35:         use Data::Dumper;        print 'AH ', Dumper \@_;

>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:553:   return Data::Dumper->Dump([@_]);
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:190:     return &Dumpxs
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:64:   my($c, $v, $n) = @_;
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:66:   croak "Usage:  PACKAGE->new(ARRAYREF, [ARRAYREF])" 
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:68:   $n = [] unless (defined($n) && (ref($n) eq 'ARRAY'));
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:70:   my($s) = { 
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:97:   if ($Indent > 0) {
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:98:     $s->{xpad} = "  ";
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:99:     $s->{sep} = "\n";
>> C:/perl/5.10.1/lib/MSWin32-x86-multi-thread/Data/Dumper.pm:101:   return bless($s, $c);
>> generated method (unknown origin):30: >> (reeval 421)[pm.890409.pl:30]:1: >> (reeval 421)[pm.890409.pl:30]:2: >> (reeval 418)[pm.890409.pl:30]:2: >> C:/perl/site/5.10.1/lib/Regexp/Grammars.pm:556:     my ($stack_ref, $key, $original_name, $value) = @_;