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.20';
3 15     15   69 use strict;
  15         25  
  15         364  
4 15     15   68 use warnings;
  15         27  
  15         407  
5 15     15   67 use Tangerine::Utils qw/accessor/;
  15         26  
  15         2367  
6              
7             sub new {
8 165     165 0 727 my $class = shift;
9 165         356 my %args = @_;
10             bless {
11             _version => $args{version},
12             _line => $args{line} // 0,
13             _extra => $args{extra} // {},
14 165   50     1926 }, $class
      50        
15             }
16              
17 15     15 1 55 sub version { accessor _version => @_ }
18 314     314 1 29051 sub line { accessor _line => @_ }
19 0     0 1   sub extra { accessor _extra => @_ }
20              
21             1;
22              
23             __END__