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   45682 use strict;
  21         43  
  21         566  
4 21     21   97 use warnings;
  21         38  
  21         700  
5             require Locale::MO::File;
6 21     21   95 use Moo;
  21         37  
  21         106  
7 21     21   5944 use MooX::StrictConstructor;
  21         44  
  21         121  
8 21     21   14591 use namespace::autoclean;
  21         39  
  21         144  
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 161 my ($self, $filename) = @_;
18            
19 38         599 return Locale::MO::File
20             ->new( filename => $filename )
21             ->read_file
22             ->get_messages;
23             }
24            
25             1;
26            
27             __END__