[skip travis] Ejemplo de creación de web token

Author: JJ

ejemplos/jwt/cpanfile

@@ -0,0 +1 @@
+requires "Crypt::JWT";

ejemplos/jwt/create-jwt.pl

@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Crypt::JWT qw(encode_jwt);
+
+use v5.14;
+
+my $name = shift || "estudiante";
+
+say encode_jwt( payload => { user => $name, sub => "IV" },
+                alg => 'HS256',
+                key => $ENV{'IV_SECRET'} );
+

ejemplos/jwt/read-jwt.pl

@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+
+use Crypt::JWT(decode_jwt);
+use strict;
+use warnings;
+
+use v5.14;
+
+while ( my $line = <> ) {
+  say %{decode_jwt( token => $line, key => $ENV{'IV_SECRET'} )};
+}