| Server IP : 192.158.238.246 / Your IP : 18.188.127.79 Web Server : LiteSpeed System : Linux uniform.iwebfusion.net 4.18.0-553.27.1.lve.1.el8.x86_64 #1 SMP Wed Nov 20 15:58:00 UTC 2024 x86_64 User : jenniferflocom ( 1321) PHP Version : 8.1.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /usr/share/perl5/vendor_perl/JSON/WebToken/ |
Upload File : |
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__