File Coverage

blib/lib/Test/Unit/Listener.pm
Criterion Covered Total %
statement 10 32 31.2
branch n/a
condition n/a
subroutine 4 10 40.0
pod 0 6 0.0
total 14 48 29.1


line stmt bran cond sub pod time code
1             package Test::Unit::Listener;
2             BEGIN {
3 2     2   52 $Test::Unit::Listener::VERSION = '0.25_1325'; # added by dist-tools/SetVersion.pl
4             }
5 2     2   1410 use Test::Unit::Loader;
  2         8  
  2         57  
6 2     2   15 use Carp;
  2         5  
  2         128  
7 2     2   11 use strict;
  2         4  
  2         654  
8              
9             sub new {
10 0     0 0   my $class = shift;
11 0           croak "call to abstract constructor ${class}::new";
12             }
13              
14             sub start_suite {
15 0     0 0   my $self = shift;
16 0           my $class = ref($self);
17 0           my ($suite) = @_;
18 0           croak "call to abstract method ${class}::start_suite";
19             }
20              
21             sub start_test {
22 0     0 0   my $self = shift;
23 0           my $class = ref($self);
24 0           my ($test) = @_;
25 0           croak "call to abstract method ${class}::start_test";
26             }
27              
28             sub add_error {
29 0     0 0   my $self = shift;
30 0           my $class = ref($self);
31 0           my ($test, $exception) = @_;
32 0           croak "call to abstract method ${class}::add_error";
33             }
34              
35             sub add_failure {
36 0     0 0   my $self = shift;
37 0           my $class = ref($self);
38 0           my ($test, $exception) = @_;
39 0           croak "call to abstract method ${class}::add_failure";
40             }
41            
42             sub end_test {
43 0     0 0   my $self = shift;
44 0           my $class = ref($self);
45 0           my ($test) = @_;
46 0           croak "call to abstract method ${class}::end_test";
47             }
48            
49             1;
50             __END__