File Coverage

blib/lib/Locale/TextDomain/OO/Lexicon/File/MO.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Locale::TextDomain::OO::Lexicon::File::MO; ## no critic (TidyCode)
2            
3 21     21   31118 use strict;
  21         59  
  21         689  
4 21     21   151 use warnings;
  21         48  
  21         795  
5             require Locale::MO::File;
6 21     21   122 use Moo;
  21         49  
  21         123  
7 21     21   6754 use MooX::StrictConstructor;
  21         56  
  21         140  
8 21     21   17266 use namespace::autoclean;
  21         56  
  21         151  
9            
10             our $VERSION = '1.031';
11            
12             with qw(
13             Locale::TextDomain::OO::Lexicon::Role::File
14             );
15            
16             sub read_messages {
17 38     38 1 200 my ($self, $filename) = @_;
18            
19 38         670 return Locale::MO::File
20             ->new( filename => $filename )
21             ->read_file
22             ->get_messages;
23             }
24            
25             1;
26            
27             __END__