File Coverage

blib/lib/VS/RuleEngine/Output/Perl.pm
Criterion Covered Total %
statement 14 16 87.5
branch n/a
condition n/a
subroutine 5 7 71.4
pod 3 3 100.0
total 22 26 84.6


line stmt bran cond sub pod time code
1             package VS::RuleEngine::Output::Perl;
2              
3 15     15   88 use strict;
  15         30  
  15         505  
4 15     15   82 use warnings;
  15         30  
  15         412  
5              
6 15     15   85 use Carp qw(croak);
  15         29  
  15         884  
7              
8 15     15   82 use base qw(VS::RuleEngine::Cv VS::RuleEngine::Output);
  15         30  
  15         9593  
9              
10 0     0 1 0 sub pre_process {
11             }
12              
13 0     0 1 0 sub post_process {
14             }
15              
16             sub process {
17 2     2 1 3 my $self = shift;
18 2         14 return $self->($self, @_);
19             }
20              
21             1;
22             __END__