equal
deleted
inserted
replaced
57 return $self->{ok} ? undef : $self->{error_code}; |
57 return $self->{ok} ? undef : $self->{error_code}; |
58 } |
58 } |
59 |
59 |
60 sub error_message { |
60 sub error_message { |
61 my $self = shift; |
61 my $self = shift; |
|
62 my $e = @_ ? shift : $self->{error_code}; |
62 |
63 |
63 return undef if !@_ and $self->{ok}; |
64 return undef if !@_ and $self->{ok}; |
64 |
65 |
|
66 return "unknown error" if not defined $e or $e > 3; |
65 return +("checksum error", "character error", "invalid command", |
67 return +("checksum error", "character error", "invalid command", |
66 "invalid width")[ defined $_[0] ? $_[0] : $self->{error_code} ]; |
68 "invalid width")[$e]; |
67 } |
69 } |
68 |
70 |
69 1; |
71 1; |
70 |
72 |
71 __END__ |
73 __END__ |