File Coverage

blib/lib/VS/RuleEngine/Action/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::Action::Perl;
2              
3 16     16   793 use strict;
  16         32  
  16         645  
4 16     16   96 use warnings;
  16         33  
  16         507  
5              
6 16     16   155 use Carp qw(croak);
  16         55  
  16         900  
7              
8 16     16   98 use base qw(VS::RuleEngine::Cv VS::RuleEngine::Action);
  16         30  
  16         11579  
9              
10             sub perform {
11 21     21 1 38 my $self = shift;
12 21         83 return $self->($self, @_);
13             }
14              
15             1;
16             __END__