Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more
12345678910111213141516 package StringifyingException;use Kelp::Base;attr data => undef;use overload q{""} => 'stringify', fallback => 1, ;sub stringify{ return 'Exception with data: [' . (join ',', @{$_[0]->data}) . ']';}1;
package
StringifyingException;
use
Kelp::Base;
attr
data
=>
undef
;
overload
q{""}
'stringify'
,
fallback
=> 1,
sub
stringify
{
return
'Exception with data: ['
. (
join
','
, @{
$_
[0]->data}) .
']'
}
1;