Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

attr data => undef;
q{""} => 'stringify',
fallback => 1,
;
sub stringify
{
return 'Exception with data: [' . (join ',', @{$_[0]->data}) . ']';
}
1;