File Coverage

blib/lib/Locale/KeyedText/L/en.pm
Criterion Covered Total %
statement 13 15 86.6
branch n/a
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 18 22 81.8


line stmt bran cond sub pod time code
1 1     1   1831 use 5.008001;
  1         3  
2 1     1   4 use utf8;
  1         1  
  1         5  
3 1     1   15 use strict;
  1         1  
  1         12  
4 1     1   2 use warnings;
  1         2  
  1         163  
5              
6             ###########################################################################
7             ###########################################################################
8              
9             # Constant values used by packages in this file:
10             my $TEXT_STRINGS = {
11             # This group of strings is generic and can be used by any package:
12              
13             'LKT_ARGS_BAD_PSEUDO_NAMED'
14             => q[.(): bad pseudo-named arguments list;]
15             . q[ it must have an even number of positional elements.],
16              
17             'LKT_ARG_UNDEF'
18             => q[.(): argument is undefined (or missing).],
19             'LKT_ARG_NO_ARY'
20             => q[.(): argument is not an Array ref,]
21             . q[ but rather contains ''.],
22             'LKT_ARG_NO_HASH'
23             => q[.(): argument is not a Hash ref,]
24             . q[ but rather contains ''.],
25             'LKT_ARG_NO_EXP_TYPE'
26             => q[.(): argument is not a ,]
27             . q[ but rather contains ''.],
28              
29             'LKT_ARG_ARY_ELEM_UNDEF'
30             => q[.(): argument is an Array ref as expected,]
31             . q[ but one of its elements is undefined.],
32             'LKT_ARG_ARY_ELEM_NO_ARY'
33             => q[.(): argument is an Array ref as expected,]
34             . q[ but one of its elements is not an Array ref,]
35             . q[ but rather contains ''.],
36             'LKT_ARG_ARY_ELEM_NO_HASH'
37             => q[.(): argument is an Array ref as expected,]
38             . q[ but one of its elements is not a Hash ref,]
39             . q[ but rather contains ''.],
40             'LKT_ARG_ARY_ELEM_NO_EXP_TYPE'
41             => q[.(): argument is an Array ref as expected,]
42             . q[ but one of its elements is not a ,]
43             . q[ but rather contains ''.],
44              
45             'LKT_ARG_HASH_VAL_UNDEF'
46             => q[.(): argument is a Hash ref as expected,]
47             . q[ but the value for its '' key is undefined.],
48             'LKT_ARG_HASH_VAL_NO_ARY'
49             => q[.(): argument is a Hash ref as expected,]
50             . q[ but the value for its '' key is not an Array ref,]
51             . q[ but rather contains ''.],
52             'LKT_ARG_HASH_VAL_NO_HASH'
53             => q[.(): argument is a Hash ref as expected,]
54             . q[ but the value for its '' key is not a Hash ref,]
55             . q[ but rather contains ''.],
56             'LKT_ARG_HASH_VAL_NO_EXP_TYPE'
57             => q[.(): argument is a Hash ref as expected,]
58             . q[ but the value for its '' key is not a ,]
59             . q[ but rather contains ''.],
60              
61             'LKT_ARG_ARY_NO_ELEMS'
62             => q[.(): argument is an Array ref as expected,]
63             . q[ but it has no elements.],
64             'LKT_ARG_HASH_NO_ELEMS'
65             => q[.(): argument is a Hash ref as expected,]
66             . q[ but it has no elements.],
67              
68             'LKT_ARG_EMP_STR'
69             => q[.(): argument is an empty string.],
70             'LKT_ARG_ARY_ELEM_EMP_STR'
71             => q[.(): argument is an Array ref as expected,]
72             . q[ but one of its elements is an empty string.],
73             'LKT_ARG_HASH_KEY_EMP_STR'
74             => q[.(): argument is a Hash ref as expected,]
75             . q[ but one of its keys is an empty string.],
76             'LKT_ARG_HASH_VAL_EMP_STR'
77             => q[.(): argument is a Hash ref as expected,]
78             . q[ but the value for its '' key is an empty string.],
79              
80             # This group of strings is specific to Locale::KeyedText itself:
81              
82             'LKT_T_FAIL_LOAD_TMPL_MOD'
83             => q[.(): can't load Locale::KeyedText Template]
84             . q[ module '': ],
85             'LKT_T_FAIL_GET_TMPL_TEXT'
86             => q[.(): can't invoke get_text_by_key() on]
87             . q[ Locale::KeyedText Template module '':]
88             . q[ ],
89             };
90              
91             ###########################################################################
92             ###########################################################################
93              
94             { package Locale::KeyedText::L::en; # module
95             BEGIN {
96 1     1   2 our $VERSION = '2.001000';
97 1         686 $VERSION = eval $VERSION;
98             }
99             sub get_text_by_key {
100 0     0 0   my (undef, $msg_key) = @_;
101 0           return $TEXT_STRINGS->{$msg_key};
102             }
103             } # module Locale::KeyedText::L::en
104              
105             ###########################################################################
106             ###########################################################################
107              
108             1;