File Coverage

lib/File/Gettext/Constants.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 9 9 100.0
pod 6 6 100.0
total 30 30 100.0


line stmt bran cond sub pod time code
1             package File::Gettext::Constants;
2              
3 2     2   544788 use strict;
  2         19  
  2         83  
4 2     2   11 use warnings;
  2         5  
  2         117  
5              
6 2     2   11 use Exporter 5.57 qw( import );
  2         78  
  2         525  
7              
8             our @EXPORT = qw( CONTEXT_SEP DIRECTORIES LOCALE_DIRS MAGIC_N
9             MAGIC_V PLURAL_SEP );
10              
11             sub CONTEXT_SEP () {
12 18     18 1 140 return "\004";
13             }
14              
15             sub DIRECTORIES () { # TODO: Deprecated
16 1     1 1 1701 return LOCALE_DIRS();
17             }
18              
19             sub LOCALE_DIRS () {
20 5     5 1 67 return [ [ q(), qw(usr share locale) ],
21             [ q(), qw(usr local share locale) ],
22             [ q(), qw(usr lib locale) ] ];
23             }
24              
25             sub MAGIC_N () {
26 1     1 1 459 return 0x950412de;
27             }
28              
29             sub MAGIC_V () {
30 1     1 1 5 return 0xde120495;
31             }
32              
33             sub PLURAL_SEP () {
34 1     1 1 4 return "\000";
35             }
36              
37             1;
38              
39             __END__