package JSON::WebToken::Exception; use strict; use warnings; use overload ( q|""| => \&to_string, ); use Carp qw/croak/; sub throw { my ($class, %args) = @_; my $self = bless \%args, $class; croak $self; } sub code { $_[0]->{code} } sub message { $_[0]->{message} } sub to_string { $_[0]->message; } 1; __END__
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
Crypt | Folder | 0755 |
|
|
Constants.pm | File | 1.13 KB | 0644 |
|
Crypt.pm | File | 299 B | 0644 |
|
Exception.pm | File | 339 B | 0644 |
|