File Coverage

blib/lib/Tangerine/HookData.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	6	6	100.0
subroutine	8	8	100.0
pod	4	5	80.0
total	34	35	97.1

package Tangerine::HookData;
$Tangerine::HookData::VERSION = '0.20';
use strict;
use warnings;
use Tangerine::Utils qw/accessor/;

sub new {
    my $class = shift;
    my %args = @_;
    bless {
        _children => $args{children} // [],
        _hooks => $args{hooks} // [],
        _modules => $args{modules} // {},
        _type => $args{type},
    }, $class
}

sub children { accessor _children => @_  }
sub hooks { accessor _hooks => @_  }
sub modules { accessor _modules => @_  }
sub type { accessor _type => @_ }

1;

__END__