File Coverage

blib/lib/JIP/Mock/Event.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 4 5 80.0
total 31 32 96.8


line stmt bran cond sub pod time code
1             package JIP::Mock::Event;
2              
3 3     3   74284 use strict;
  3         17  
  3         83  
4 3     3   17 use warnings;
  3         4  
  3         76  
5              
6 3     3   14 use English qw(-no_match_vars);
  3         4  
  3         13  
7              
8             our $VERSION = 'v0.0.4';
9              
10             sub new {
11 31     31 0 4376 my ( $class, %param ) = @ARG;
12              
13             return bless(
14             {
15             method => $param{method},
16             arguments => $param{arguments},
17             want_array => $param{want_array},
18             times => $param{times},
19             },
20 31         141 $class,
21             );
22             }
23              
24             sub method {
25 13     13 1 1243 my ($self) = @ARG;
26              
27 13         48 return $self->{method};
28             }
29              
30             sub arguments {
31 13     13 1 23 my ($self) = @ARG;
32              
33 13         48 return $self->{arguments};
34             }
35              
36             sub want_array {
37 7     7 1 14 my ($self) = @ARG;
38              
39 7         28 return $self->{want_array};
40             }
41              
42             sub times { ## no critic (Subroutines::ProhibitBuiltinHomonyms)
43 8     8 1 29 my ($self) = @ARG;
44              
45 8         25 return $self->{times};
46             }
47              
48             1;
49              
50             __END__