File Coverage

blib/lib/WebService/PayPal/PaymentsAdvanced/Role/HasTokens.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 18 100.0


line stmt bran cond sub pod time code
1             package WebService::PayPal::PaymentsAdvanced::Role::HasTokens;
2              
3 7     7   4915 use Moo::Role;
  7         30  
  7         59  
4              
5 7     7   2581 use namespace::autoclean;
  7         113  
  7         62  
6              
7             our $VERSION = '0.000026';
8              
9 7     7   756 use Types::Common::String qw( NonEmptyStr );
  7         26  
  7         66  
10              
11             has secure_token => (
12             is => 'lazy',
13             isa => NonEmptyStr,
14             init_arg => undef,
15             );
16              
17             has secure_token_id => (
18             is => 'lazy',
19             isa => NonEmptyStr,
20             init_arg => undef,
21             );
22              
23             sub _build_secure_token {
24 9     9   1084 my $self = shift;
25 9         166 return $self->params->{SECURETOKEN};
26             }
27              
28             sub _build_secure_token_id {
29 9     9   776 my $self = shift;
30 9         165 return $self->params->{SECURETOKENID};
31             }
32              
33             1;
34              
35             =pod
36              
37             =head1 NAME
38              
39             WebService::PayPal::PaymentsAdvanced::Role::HasTokens - Provides roles for dealing with secure tokens
40              
41             =head1 VERSION
42              
43             version 0.000026
44              
45             =head2 secure_token
46              
47             Returns C<SECURETOKEN> param
48              
49             =head2 secure_token_id
50              
51             Returns C<SECURETOKENID> param
52              
53             =head1 AUTHOR
54              
55             Olaf Alders <olaf@wundercounter.com>
56              
57             =head1 COPYRIGHT AND LICENSE
58              
59             This software is copyright (c) 2020 by MaxMind, Inc.
60              
61             This is free software; you can redistribute it and/or modify it under
62             the same terms as the Perl 5 programming language system itself.
63              
64             =cut
65              
66             __END__
67              
68             # ABSTRACT: Provides roles for dealing with secure tokens
69