line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# Error object for RPC::Switch::Client::Tiny |
2
|
|
|
|
|
|
|
# |
3
|
|
|
|
|
|
|
package RPC::Switch::Client::Tiny::Error; |
4
|
|
|
|
|
|
|
|
5
|
21
|
|
|
21
|
|
68154
|
use strict; |
|
21
|
|
|
|
|
51
|
|
|
21
|
|
|
|
|
613
|
|
6
|
21
|
|
|
21
|
|
105
|
use warnings; |
|
21
|
|
|
|
|
61
|
|
|
21
|
|
|
|
|
2499
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
our $VERSION = 1.1; |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
sub new { |
11
|
77
|
|
|
77
|
0
|
1357
|
my ($class, $type, $message, $extra) = @_; |
12
|
77
|
100
|
|
|
|
1964
|
return bless({type => $type, message => $message, $extra ? %$extra : ()}, $class); |
13
|
|
|
|
|
|
|
} |
14
|
21
|
|
|
21
|
|
1295
|
use overload 'fallback' => 1, '""' => 'stringify'; # allow to print object as "$err" |
|
21
|
|
|
|
|
1007
|
|
|
21
|
|
|
|
|
163
|
|
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
sub stringify { |
17
|
172
|
|
|
172
|
0
|
39870
|
my ($self) = @_; |
18
|
172
|
|
|
|
|
1773
|
return "$self->{type} error: $self->{message}"; |
19
|
|
|
|
|
|
|
} |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
1; |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
__END__ |