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   77573 use strict;
  2         4  
  2         57  
4 2     2   10 use warnings;
  2         4  
  2         62  
5 2     2   489 use version 0.77;
  2         2072  
  2         16  
6              
7 2     2   152 use English qw(-no_match_vars);
  2         4  
  2         9  
8              
9             our $VERSION = version->declare('v0.0.5');
10              
11             sub new {
12 3     3 0 6583 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         23 $class,
22             );
23             }
24              
25             sub method {
26 3     3 1 1874 my ($self) = @ARG;
27              
28 3         18 return $self->{method};
29             }
30              
31             sub arguments {
32 3     3 1 9 my ($self) = @ARG;
33              
34 3         12 return $self->{arguments};
35             }
36              
37             sub want_array {
38 3     3 1 8 my ($self) = @ARG;
39              
40 3         14 return $self->{want_array};
41             }
42              
43             sub times {
44 3     3 1 10 my ($self) = @ARG;
45              
46 3         11 return $self->{times};
47             }
48              
49             1;
50              
51             __END__