File Coverage

blib/lib/Localizer/Dictionary.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 3 3 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1             package Localizer::Dictionary;
2 2     2   69230 use strict;
  2         4  
  2         57  
3 2     2   9 use warnings;
  2         2  
  2         48  
4 2     2   890 use utf8;
  2         9  
  2         11  
5 2     2   86 use 5.010_001;
  2         6  
  2         125  
6              
7             use Class::Accessor::Lite 0.05 (
8 2         15 ro => [qw(_entries)],
9 2     2   1484 );
  2         2093  
10              
11             sub new {
12 2     2 1 21 my $class = shift;
13 2         13 bless {
14             _entries => {},
15             }, $class;
16             }
17              
18             sub exists_msgid {
19 2     2 1 808 my ($self, $msgid) = @_;
20 2         6 exists $self->_entries->{$msgid}
21             }
22              
23             sub add_entry_position {
24 42     42 1 77 my ($self, $msgid, $file, $line) = @_;
25 42         36 push @{$self->_entries->{$msgid}->{position}}, [$file, $line];
  42         93  
26             }
27              
28             1;
29             __END__