File Coverage

blib/lib/Tangerine/Occurence.pm
Criterion Covered Total %
statement 14 15 93.3
branch n/a
condition 2 4 50.0
subroutine 6 7 85.7
pod 3 4 75.0
total 25 30 83.3


line stmt bran cond sub pod time code
1             package Tangerine::Occurence;
2             $Tangerine::Occurence::VERSION = '0.19';
3 15     15   73 use strict;
  15         19  
  15         469  
4 15     15   107 use warnings;
  15         23  
  15         505  
5 15     15   74 use Tangerine::Utils qw/accessor/;
  15         22  
  15         2720  
6              
7             sub new {
8 160     160 0 606 my $class = shift;
9 160         289 my %args = @_;
10             bless {
11             _version => $args{version},
12             _line => $args{line} // 0,
13             _extra => $args{extra} // {},
14 160   50     1604 }, $class
      50        
15             }
16              
17 15     15 1 53 sub version { accessor _version => @_ }
18 304     304 1 21122 sub line { accessor _line => @_ }
19 0     0 1   sub extra { accessor _extra => @_ }
20              
21             1;
22              
23             __END__