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   33065 use strict;
  21         51  
  21         668  
4 21     21   113 use warnings;
  21         50  
  21         820  
5             require Locale::MO::File;
6 21     21   115 use Moo;
  21         44  
  21         130  
7 21     21   7187 use MooX::StrictConstructor;
  21         47  
  21         163  
8 21     21   17815 use namespace::autoclean;
  21         48  
  21         184  
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 184 my ($self, $filename) = @_;
18            
19 38         640 return Locale::MO::File
20             ->new( filename => $filename )
21             ->read_file
22             ->get_messages;
23             }
24            
25             1;
26            
27             __END__