File Coverage

blib/lib/VS/RuleEngine/Rule/Perl.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package VS::RuleEngine::Rule::Perl;
2              
3 17     17   789 use strict;
  17         34  
  17         651  
4 17     17   169 use warnings;
  17         33  
  17         533  
5              
6 17     17   88 use Carp qw(croak);
  17         30  
  17         1115  
7              
8 17     17   104 use base qw(VS::RuleEngine::Cv VS::RuleEngine::Rule);
  17         35  
  17         10835  
9              
10             sub evaluate {
11 19     19 1 32 my $self = shift;
12 19         104 return $self->($self, @_);
13             }
14              
15             1;
16             __END__