/
usr
/
share
/
perl5
/
vendor_perl
/
JSON
/
WebToken
/
/usr/share/perl5/vendor_perl/JSON/WebToken
mkdir
upload
Name
Size
Mode
Actions
Crypt/
-
0755
rm
Constants.pm
1161
0644
edit
dl
rm
Crypt.pm
299
0644
edit
dl
rm
Exception.pm
339
0644
edit
dl
rm
Edit:
/usr/share/perl5/vendor_perl/JSON/WebToken/Exception.pm
(339B)
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__
Save
cmd:
run