FM / WebToken

/usr/share/perl5/vendor_perl/JSON/WebToken/

/usr/share/perl5/vendor_perl/JSON/WebToken

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/Constants.pm (1161B)

package JSON::WebToken::Constants;

use strict;
use warnings;
use parent qw/Exporter/;

my @error_code = qw/
    ERROR_JWT_INVALID_PARAMETER
    ERROR_JWT_MISSING_SECRET
    ERROR_JWT_INVALID_SEGMENT_COUNT
    ERROR_JWT_INVALID_SEGMENT_ENCODING
    ERROR_JWT_UNWANTED_SIGNATURE
    ERROR_JWT_INVALID_SIGNATURE
    ERROR_JWT_NOT_SUPPORTED_SIGNING_ALGORITHM
    ERROR_JWT_UNACCEPTABLE_ALGORITHM
/;

our @EXPORT = @error_code;
our @EXPORT_OK = ();
our %EXPORT_TAGS = (
    all        => [@EXPORT, @EXPORT_OK],
    error_code => \@error_code,
);

use constant {
    ERROR_JWT_INVALID_PARAMETER               => "invalid_parameter",
    ERROR_JWT_MISSING_SECRET                  => "missing_secret",
    ERROR_JWT_INVALID_SEGMENT_COUNT           => "invalid_segment_count",
    ERROR_JWT_INVALID_SEGMENT_ENCODING        => "invalid_segment_encoding",
    ERROR_JWT_UNWANTED_SIGNATURE              => "unwanted_signature",
    ERROR_JWT_INVALID_SIGNATURE               => "invalid_signature",
    ERROR_JWT_NOT_SUPPORTED_SIGNING_ALGORITHM => "not_supported_signing_algorithm",
    ERROR_JWT_UNACCEPTABLE_ALGORITHM          => "unacceptable_algorithm",
};

1;
__END__

cmd: