|
Lines 9-12
use Exception::Class (
Link Here
|
| 9 |
}, |
9 |
}, |
| 10 |
); |
10 |
); |
| 11 |
|
11 |
|
|
|
12 |
sub full_message { |
| 13 |
my $self = shift; |
| 14 |
my $msg = $self->description; |
| 15 |
my @fields; |
| 16 |
my $field_hash = $self->field_hash; |
| 17 |
while ( my ( $field, $value ) = each %$field_hash ) { |
| 18 |
push @fields, $field . " => " . $value; |
| 19 |
} |
| 20 |
return |
| 21 |
sprintf "Exception '%s' thrown '%s'" . ( @fields ? " with %s" : "" ) . "\n", |
| 22 |
ref($self), $msg, ( @fields ? join ', ', @fields : () ); |
| 23 |
} |
| 24 |
|
| 12 |
1; |
25 |
1; |
| 13 |
- |
|
|