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 |
- |
|
|