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

package File::Gettext::Constants;

use strict;
use warnings;

use Exporter 5.57 qw( import );

our @EXPORT = qw( CONTEXT_SEP DIRECTORIES LOCALE_DIRS MAGIC_N
                  MAGIC_V PLURAL_SEP );

sub CONTEXT_SEP () {
   return "\004";
}

sub DIRECTORIES () { # TODO: Deprecated
   return LOCALE_DIRS();
}

sub LOCALE_DIRS () {
   return [ [ q(), qw(usr share locale) ],
            [ q(), qw(usr local share locale) ],
            [ q(), qw(usr lib locale) ] ];
}

sub MAGIC_N () {
   return 0x950412de;
}

sub MAGIC_V () {
   return 0xde120495;
}

sub PLURAL_SEP () {
   return "\000";
}

1;

__END__