File Coverage

blib/lib/WebService/PayPal/PaymentsAdvanced/Role/HasMessage.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package WebService::PayPal::PaymentsAdvanced::Role::HasMessage;
2              
3 8     8   5381 use Moo::Role;
  8         23  
  8         55  
4              
5 8     8   2618 use namespace::autoclean;
  8         23  
  8         103  
6              
7             our $VERSION = '0.000026';
8              
9 8     8   816 use Types::Common::String qw( NonEmptyStr );
  8         34  
  8         66  
10              
11             has message => (
12             is => 'lazy',
13             isa => NonEmptyStr,
14             init_arg => undef,
15             );
16              
17             sub _build_message {
18 8     8   249 my $self = shift;
19 8         149 return $self->params->{RESPMSG};
20             }
21              
22             1;
23              
24             =pod
25              
26             =head1 NAME
27              
28             WebService::PayPal::PaymentsAdvanced::Role::HasMessage - Role which provides message attribute to exception and response classes.
29              
30             =head1 VERSION
31              
32             version 0.000026
33              
34             =head1 AUTHOR
35              
36             Olaf Alders <olaf@wundercounter.com>
37              
38             =head1 COPYRIGHT AND LICENSE
39              
40             This software is copyright (c) 2020 by MaxMind, Inc.
41              
42             This is free software; you can redistribute it and/or modify it under
43             the same terms as the Perl 5 programming language system itself.
44              
45             =cut
46              
47             __END__
48             #ABSTRACT: Role which provides message attribute to exception and response classes.