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.23';
3 16     16   53 use strict;
  16         16  
  16         337  
4 16     16   46 use warnings;
  16         13  
  16         339  
5 16     16   45 use Tangerine::Utils qw/accessor/;
  16         14  
  16         1928  
6              
7             sub new {
8 176     176 0 486 my $class = shift;
9 176         252 my %args = @_;
10             bless {
11             _version => $args{version},
12             _line => $args{line} // 0,
13             _extra => $args{extra} // {},
14 176   50     1378 }, $class
      50        
15             }
16              
17 19     19 1 40 sub version { accessor _version => @_ }
18 336     336 1 17810 sub line { accessor _line => @_ }
19 0     0 1   sub extra { accessor _extra => @_ }
20              
21             1;
22              
23             __END__