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.20';
3 15     15   82 use strict;
  15         25  
  15         419  
4 15     15   80 use warnings;
  15         30  
  15         663  
5 15     15   7294 use Tangerine::Utils qw/accessor/;
  15         41  
  15         2016  
6              
7             sub new {
8 196     196 0 407 my $class = shift;
9 196         515 my %args = @_;
10             bless {
11             _type => $args{type},
12 196         1673 }, $class
13             }
14              
15 1104     1104 1 7050 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__