File Coverage

blib/lib/Business/MollieAPI/TestLog.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package Business::MollieAPI::TestLog;
2 1     1   12914 use Moo::Role;
  1         3  
  1         10  
3              
4             has log_response_called => (is => 'rw', default => 0);
5              
6             has log_response_message => (is => 'rw');
7              
8             after log_response => sub {
9             my ($self, $log) = @_;
10             $self->log_response_called($self->log_response_called+1);
11             $self->log_response_message($log);
12             return;
13             };
14              
15              
16             1;