Authen-U2F-Tester

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Exporter" : "0",
            "JSON::MaybeXS" : "0",
            "List::Util" : "0",
            "MIME::Base64" : "0",
            "Moose" : "0",
            "Moose::Role" : "0",
            "MooseX::AttributeShortcuts" : "0",
            "MooseX::SingleArg" : "0",
            "base" : "0",
            "constant" : "0",
            "namespace::autoclean" : "0",
            "perl" : "5.006",
            "strictures" : "2"
         }
      },
      "test" : {
         "requires" : {
            "Authen::U2F" : "0",
            "Crypt::Misc" : "0",
            "File::Slurp" : "0",
            "Path::Tiny" : "0",

META.yml  view on Meta::CPAN

  Exporter: '0'
  JSON::MaybeXS: '0'
  List::Util: '0'
  MIME::Base64: '0'
  Moose: '0'
  Moose::Role: '0'
  MooseX::AttributeShortcuts: '0'
  MooseX::SingleArg: '0'
  base: '0'
  constant: '0'
  namespace::autoclean: '0'
  perl: '5.006'
  strictures: '2'
resources:
  bugtracker: https://github.com/mschout/perl-authen-u2f-tester/issues
  homepage: https://github.com/mschout/perl-authen-u2f-tester
  repository: https://github.com/mschout/perl-authen-u2f-tester.git
version: '0.03'
x_serialization_backend: 'YAML::Tiny version 1.70'

Makefile.PL  view on Meta::CPAN

    "Exporter" => 0,
    "JSON::MaybeXS" => 0,
    "List::Util" => 0,
    "MIME::Base64" => 0,
    "Moose" => 0,
    "Moose::Role" => 0,
    "MooseX::AttributeShortcuts" => 0,
    "MooseX::SingleArg" => 0,
    "base" => 0,
    "constant" => 0,
    "namespace::autoclean" => 0,
    "strictures" => 2
  },
  "TEST_REQUIRES" => {
    "Authen::U2F" => 0,
    "Crypt::Misc" => 0,
    "File::Slurp" => 0,
    "Path::Tiny" => 0,
    "Test::Exception" => 0,
    "Test::More" => 0
  },

lib/Authen/U2F/Tester/Error.pm  view on Meta::CPAN

#
package Authen::U2F::Tester::Error;
$Authen::U2F::Tester::Error::VERSION = '0.03';
# ABSTRACT: Authen::U2F::Tester Error Response

use Moose;
use MooseX::AttributeShortcuts;
use MooseX::SingleArg;

use Authen::U2F::Tester::Const ':all';
use namespace::autoclean;


has error_code => (is => 'ro', isa => 'Int', required => 1);


has error_message => (is => 'lazy', isa => 'Str');

single_arg 'error_code';

lib/Authen/U2F/Tester/Keypair.pm  view on Meta::CPAN

package Authen::U2F::Tester::Keypair;
$Authen::U2F::Tester::Keypair::VERSION = '0.03';
# ABSTRACT: Authen::U2F::Tester Keypair Object

use Moose;
use MooseX::AttributeShortcuts;
use MooseX::SingleArg;

use strictures 2;
use Crypt::PK::ECC;
use namespace::autoclean;



has keypair => (is => 'lazy', isa => 'Crypt::PK::ECC');



has [qw(public_key private_key)] => (is => 'lazy', isa => 'Value');

single_arg 'keypair';

lib/Authen/U2F/Tester/Keystore/Wrapped.pm  view on Meta::CPAN

# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package Authen::U2F::Tester::Keystore::Wrapped;
$Authen::U2F::Tester::Keystore::Wrapped::VERSION = '0.03';
# ABSTRACT: Wrapped Keystore for Authen::U2F::Tester

use Moose;
use Crypt::PK::ECC;
use MIME::Base64 qw(decode_base64url);
use namespace::autoclean;

with 'Authen::U2F::Tester::Role::Keystore';

has key => (is => 'ro', isa => 'Crypt::PK::ECC', required => 1);

sub exists {
    my ($self, $handle) = @_;

    $handle = decode_base64url($handle);

lib/Authen/U2F/Tester/RegisterResponse.pm  view on Meta::CPAN

# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package Authen::U2F::Tester::RegisterResponse;
$Authen::U2F::Tester::RegisterResponse::VERSION = '0.03';
# ABSTRACT: U2F Tester Registration Response

use Moose;
use strictures 2;
use MIME::Base64 qw(encode_base64url);
use namespace::autoclean;

with qw(Authen::U2F::Tester::Role::Response);


sub registration_data {
    return encode_base64url(shift->response);
}

__PACKAGE__->meta->make_immutable;

lib/Authen/U2F/Tester/Role/Keystore.pm  view on Meta::CPAN

=head1 VERSION

version 0.03

=head1 SYNOPSIS

 package Authen::U2F::Tester::Keystore::Example;

 use Moose;
 use namespace::autoclean;

 with 'Authen::U2F::Tester::Role::Keystore';

 sub exists {
     my ($self, $handle) = @_;
     ...
     # if handle is valid and exists in the keystore:
     return 1;

     # else

lib/Authen/U2F/Tester/Role/Response.pm  view on Meta::CPAN

# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package Authen::U2F::Tester::Role::Response;
$Authen::U2F::Tester::Role::Response::VERSION = '0.03';
# ABSTRACT: U2F Successful Response Role

use Moose::Role;
use strictures 2;
use Authen::U2F::Tester::Const qw(OK);
use namespace::autoclean;


has response => (is => 'ro', isa => 'Value', required => 1);


has error_code => (is => 'ro', isa => 'Int', required => 1);


has client_data => (is => 'ro', isa => 'Str', required => 1);

lib/Authen/U2F/Tester/SignResponse.pm  view on Meta::CPAN

#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
package Authen::U2F::Tester::SignResponse;
$Authen::U2F::Tester::SignResponse::VERSION = '0.03';
# ABSTRACT: U2F Tester Sign Response

use Moose;
use MIME::Base64 qw(encode_base64url);
use namespace::autoclean;

with qw(Authen::U2F::Tester::Role::Response);


has key_handle => (is => 'ro', isa => 'Str', required => 1);


sub signature_data {
    encode_base64url(shift->response);
}

 view all matches for this distribution
 view release on metacpan -  search on metacpan