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__ |