File Coverage

blib/lib/JIP/Spy/Event.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 4 5 80.0
total 35 36 97.2


line stmt bran cond sub pod time code
1             package JIP::Spy::Event;
2              
3 2     2   74268 use strict;
  2         5  
  2         56  
4 2     2   9 use warnings;
  2         3  
  2         56  
5 2     2   444 use version 0.77;
  2         1968  
  2         15  
6              
7 2     2   154 use English qw(-no_match_vars);
  2         4  
  2         9  
8              
9             our $VERSION = version->declare('v0.0.3');
10              
11             sub new {
12 3     3 0 6596 my ( $class, %param ) = @ARG;
13              
14             return bless(
15             {
16             method => $param{method},
17             arguments => $param{arguments},
18             want_array => $param{want_array},
19             times => $param{times},
20             },
21 3         34 $class,
22             );
23             }
24              
25             sub method {
26 3     3 1 1848 my ($self) = @ARG;
27              
28 3         18 return $self->{method};
29             }
30              
31             sub arguments {
32 3     3 1 10 my ($self) = @ARG;
33              
34 3         12 return $self->{arguments};
35             }
36              
37             sub want_array {
38 3     3 1 10 my ($self) = @ARG;
39              
40 3         12 return $self->{want_array};
41             }
42              
43             sub times {
44 3     3 1 9 my ($self) = @ARG;
45              
46 3         12 return $self->{times};
47             }
48              
49             1;
50              
51             __END__