File Coverage

blib/lib/VS/RuleEngine/Hook/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::Hook::Perl;
2              
3 19     19   1222 use strict;
  19         34  
  19         742  
4 19     19   100 use warnings;
  19         34  
  19         519  
5              
6 19     19   101 use Carp qw(croak);
  19         34  
  19         1158  
7              
8 19     19   105 use base qw(VS::RuleEngine::Cv VS::RuleEngine::Hook);
  19         38  
  19         11263  
9              
10             sub invoke {
11 31     31 1 47 my $self = shift;
12 31         138 return $self->($self, @_);
13             }
14              
15             1;
16             __END__