File Coverage

blib/lib/Tangerine/Hook.pm
Criterion Covered Total %
statement 13 14 92.8
branch n/a
condition n/a
subroutine 5 6 83.3
pod 2 3 66.6
total 20 23 86.9


line stmt bran cond sub pod time code
1             package Tangerine::Hook;
2             $Tangerine::Hook::VERSION = '0.23';
3 16     16   56 use strict;
  16         21  
  16         363  
4 16     16   53 use warnings;
  16         19  
  16         457  
5 16     16   4636 use Tangerine::Utils qw/accessor/;
  16         24  
  16         1684  
6              
7             sub new {
8 212     212 0 251 my $class = shift;
9 212         386 my %args = @_;
10             bless {
11             _type => $args{type},
12 212         1159 }, $class
13             }
14              
15 1178     1178 1 3394 sub type { accessor _type => @_ }
16              
17             sub run {
18 0     0 1   warn "Hook run() method not implemented."
19             }
20              
21             1;
22              
23             __END__