File Coverage

blib/lib/Test/Kantan/State.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 0 3 0.0
total 33 36 91.6


line stmt bran cond sub pod time code
1             package Test::Kantan::State;
2 4     4   610 use strict;
  4         8  
  4         160  
3 4     4   19 use warnings;
  4         9  
  4         101  
4 4     4   2134 use utf8;
  4         27  
  4         25  
5 4     4   186 use 5.010_001;
  4         13  
  4         181  
6              
7 4     4   3181 use Moo;
  4         54301  
  4         28  
8              
9             has pass_cnt => (is => 'ro', default => sub { 0 });
10             has fail_cnt => (is => 'ro', default => sub { 0 });
11              
12 4     4   5609 no Moo;
  4         8  
  4         1364  
13              
14             sub is_passing {
15 2     2 0 5 my $self = shift;
16 2         29 return $self->fail_cnt == 0;
17             }
18              
19             sub passed {
20 39     39 0 327 my ($self) = @_;
21 39         128 $self->{pass_cnt}++;
22             }
23              
24             sub failed {
25 22     22 0 164 my ($self) = @_;
26 22         66 $self->{fail_cnt}++;
27             }
28              
29             1;