File Coverage

blib/lib/Rosetta/Model/L/en.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 18 20 90.0


line stmt bran cond sub pod time code
1             #!perl
2 1     1   5154 use 5.008001;
  1         4  
  1         37  
3 1     1   5 use utf8;
  1         2  
  1         7  
4 1     1   21 use strict;
  1         3  
  1         38  
5 1     1   5 use warnings;
  1         2  
  1         33  
6              
7             ###########################################################################
8             ###########################################################################
9              
10             # Constant values used by packages in this file:
11 1     1   646 use only 'Readonly' => '1.03-';
  0            
  0            
12             Readonly my %TEXT_STRINGS => (
13             'ROS_M_D_ARG_AOH_TO_CONSTR_RT_ND_HAS_KEY_CONFL'
14             => q[.(): as expected, argument is an Array ref]
15             . q[ of Hash refs, where each Hash ref specifies the values for]
16             . q[ attributes of a new Node object to be created as a Root]
17             . q[ Node of the invocant Document; however, at least one of]
18             . q[ the given Hash refs defines an explicit '' key,]
19             . q[ which isn't allowed when creating Nodes from .],
20              
21             'ROS_M_N_ARG_AOH_TO_CONSTR_CH_ND_HAS_KEY_CONFL'
22             => q[.(): as expected, argument is an Array ref]
23             . q[ of Hash refs, where each Hash ref specifies the values for]
24             . q[ attributes of a new Node object to be created as a Child]
25             . q[ Node of the invocant Node; however, at least one of]
26             . q[ the given Hash refs defines an explicit '' key,]
27             . q[ which isn't allowed when creating Nodes from .],
28             );
29              
30             ###########################################################################
31             ###########################################################################
32              
33             { package Rosetta::Model::L::en; # module
34             use version; our $VERSION = qv('0.400.1');
35             sub get_text_by_key {
36             my (undef, $msg_key) = @_;
37             return $TEXT_STRINGS{$msg_key};
38             }
39             } # module Rosetta::Model::L::en
40              
41             ###########################################################################
42             ###########################################################################
43              
44             1; # Magic true value required at end of a reuseable file's code.
45             __END__