File Coverage

blib/lib/VS/RuleEngine/Input/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::Input::Perl;
2              
3 14     14   76 use strict;
  14         31  
  14         671  
4 14     14   69 use warnings;
  14         138  
  14         423  
5              
6 14     14   75 use Carp qw(croak);
  14         28  
  14         686  
7              
8 14     14   96 use base qw(VS::RuleEngine::Cv VS::RuleEngine::Input);
  14         34  
  14         8631  
9              
10             sub value {
11 35     35 1 42 my $self = shift;
12 35         123 return $self->($self, @_);
13             }
14              
15             1;
16             __END__