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.19';
3 15     15   92 use strict;
  15         21  
  15         648  
4 15     15   80 use warnings;
  15         26  
  15         867  
5 15     15   6373 use Tangerine::Utils qw/accessor/;
  15         44  
  15         2302  
6              
7             sub new {
8 196     196 0 298 my $class = shift;
9 196         490 my %args = @_;
10             bless {
11             _type => $args{type},
12 196         1183 }, $class
13             }
14              
15 1076     1076 1 5221 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__