File Coverage

blib/lib/VS/RuleEngine/Output.pm
Criterion Covered Total %
statement 21 25 84.0
branch 6 8 75.0
condition 9 12 75.0
subroutine 6 7 85.7
pod 4 4 100.0
total 46 56 82.1


line stmt bran cond sub pod time code
1             package VS::RuleEngine::Output;
2              
3 17     17   39579 use strict;
  17         36  
  17         608  
4 17     17   93 use warnings;
  17         38  
  17         626  
5              
6 17     17   318 use Carp qw(croak);
  17         40  
  17         5210  
7              
8             sub new {
9 0     0 1 0 my $self = shift;
10 0   0     0 $self = ref $self || $self;
11 0 0       0 croak "new() should not be called as a function" if !$self;
12 0         0 croak "Class '$self' does not override new()";
13             }
14              
15             sub pre_process {
16 3     3 1 1194 my $self = shift;
17 3   100     15 $self = ref $self || $self;
18 3 100       120 croak "pre_process() should not be called as a function" if !$self;
19 2         348 croak "Class '$self' does not override pre_process()";
20             }
21              
22             sub process {
23 3     3 1 1089 my $self = shift;
24 3   100     15 $self = ref $self || $self;
25 3 100       130 croak "process() should not be called as a function" if !$self;
26 2         211 croak "Class '$self' does not override process()";
27             }
28              
29             sub post_process {
30 3     3 1 1051 my $self = shift;
31 3   100     13 $self = ref $self || $self;
32 3 100       107 croak "post_process() should not be called as a function" if !$self;
33 2         217 croak "Class '$self' does not override post_process()";
34             }
35              
36             1;
37             __END__