File Coverage

blib/lib/SmokeRunner/Multi/Reporter.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package SmokeRunner::Multi::Reporter;
2             BEGIN {
3 4     4   21937 $SmokeRunner::Multi::Reporter::AUTHORITY = 'cpan:YANICK';
4             }
5             {
6             $SmokeRunner::Multi::Reporter::VERSION = '0.19';
7             }
8             #ABSTRACT: Base class for reporting on smoke tests
9              
10 4     4   28 use strict;
  4         6  
  4         105  
11 4     4   17 use warnings;
  4         7  
  4         110  
12              
13 4     4   20 use base 'Class::Accessor::Fast';
  4         7  
  4         3152  
14             __PACKAGE__->mk_ro_accessors( 'runner' );
15              
16 4     4   13556 use SmokeRunner::Multi::Validate qw( validate RUNNER_TYPE TEST_SET_TYPE );
  4         16  
  4         33  
17              
18              
19             {
20             my $spec = { runner => RUNNER_TYPE,
21             };
22              
23             sub new {
24 11     11 1 1265805 my $class = shift;
25 11         922 my %p = validate( @_, $spec );
26              
27 10         151 return bless \%p, $class;
28             }
29             }
30              
31             sub report {
32 1     1 1 11 die "The report() method must be overridden in a subclass.\n"
33             }
34              
35              
36             1;
37              
38             __END__