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   5707 use Moo::Role;
  8         20  
  8         61  
4              
5 8     8   2554 use namespace::autoclean;
  8         49  
  8         167  
6              
7             our $VERSION = '0.000027';
8              
9 8     8   753 use Types::Common::String qw( NonEmptyStr );
  8         23  
  8         67  
10              
11             has message => (
12             is => 'lazy',
13             isa => NonEmptyStr,
14             init_arg => undef,
15             );
16              
17             sub _build_message {
18 8     8   264 my $self = shift;
19 8         155 return $self->params->{RESPMSG};
20             }
21              
22             1;
23              
24             =pod
25              
26             =encoding UTF-8
27              
28             =head1 NAME
29              
30             WebService::PayPal::PaymentsAdvanced::Role::HasMessage - Role which provides message attribute to exception and response classes.
31              
32             =head1 VERSION
33              
34             version 0.000027
35              
36             =head1 SUPPORT
37              
38             Bugs may be submitted through L<https://github.com/maxmind/webservice-paypal-paymentsadvanced/issues>.
39              
40             =head1 AUTHOR
41              
42             Olaf Alders <olaf@wundercounter.com>
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             This software is copyright (c) 2021 by MaxMind, Inc.
47              
48             This is free software; you can redistribute it and/or modify it under
49             the same terms as the Perl 5 programming language system itself.
50              
51             =cut
52              
53             __END__
54             #ABSTRACT: Role which provides message attribute to exception and response classes.