File Coverage

blib/lib/EBook/EPUB/Check/Result.pm
Criterion Covered Total %
statement 6 12 50.0
branch 0 2 0.0
condition n/a
subroutine 2 5 40.0
pod 2 3 66.6
total 10 22 45.4


line stmt bran cond sub pod time code
1             package EBook::EPUB::Check::Result;
2              
3 2     2   11 use strict;
  2         5  
  2         48  
4 2     2   13 use warnings;
  2         3  
  2         195  
5              
6             sub new
7             {
8 0     0 0   my ($class, $out) = @_;
9 0           bless { out => $out }, $class;
10             }
11              
12 0 0   0 1   sub is_valid { ${ shift->{out} } =~ /No errors or warnings detected/i ? 1 : 0; }
  0            
13 0     0 1   sub report { ${ shift->{out} }; }
  0            
14              
15             1;
16              
17             __END__