Acme-JWT
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/01_spec.t view on Meta::CPAN
#!/usr/bin/env perl
use Test::More;
use Acme::JWT;
use Crypt::OpenSSL::RSA;
use Data::Dumper;
sub is_d {
my ($got, $expected, $test_name) = @_;
local $Data::Dumper::Terse = 1;
is(Data::Dumper->Dump([$got]), Data::Dumper->Dump([$expected]), $test_name);
}
my $payload = {foo => 'bar'};
{
my $name = 'encodes and decodes JWTs';
my $secret = 'secret';
my $jwt = Acme::JWT->encode($payload, $secret);
my $decoded_payload = Acme::JWT->decode($jwt, $secret);
is_d $decoded_payload, $payload, $name;
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.486 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )