—# @(#)$Id: Constants.pm 416 2012-11-07 07:46:46Z pjf $
package
File::Gettext::Constants;
use
strict;
use
warnings;
my
@_constants
;
BEGIN {
@_constants
= (
qw(CONTEXT_SEP DIRECTORIES MAGIC_N MAGIC_V PLURAL_SEP)
);
}
exports
=> [
@_constants
],
groups
=> {
default
=> [
@_constants
], },
};
sub
CONTEXT_SEP () {
return
"\004"
;
}
sub
DIRECTORIES () {
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__
=pod
=head1 Name
File::Gettext::Constants - Definitions of constant values
=head1 Version
0.4.$Rev: 416 $
=head1 Synopsis
use File::Gettext::Constants;
my $magic = MAGIC_V;
=head1 Description
Exports a list of subroutines each of which returns a constant value
=head1 Subroutines/Methods
=head2 CONTEXT_SEP
Character used to separate the context from the message id in a gettext
.mo file
=head2 DIRECTORIES
List of default system directories the might contain a .mo file
=head2 MAGIC_N
Magic number at start of .mo file
=head2 MAGIC_V
Magic number at start of .mo file (other byte order)
=head2 PLURAL_SEP
Character used to separate one plural string from another in a gettext
.mo file
=head1 Diagnostics
None
=head1 Configuration and Environment
None
=head1 Dependencies
=over 3
=item L<Sub::Exporter>
=back
=head1 Incompatibilities
There are no known incompatibilities in this module
=head1 Bugs and Limitations
There are no known bugs in this module.
Please report problems to the address below.
Patches are welcome
=head1 Author
Peter Flanigan, C<< <Support at RoxSoft.co.uk> >>
=head1 License and Copyright
Copyright (c) 2011 Peter Flanigan. All rights reserved
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. See L<perlartistic>
This program is distributed in the hope that it will be useful,
but WITHOUT WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE
=cut
# Local Variables:
# mode: perl
# tab-width: 3
# End: