NAME

Locale::Maketext::TieHash::L10N - Tying language handle to a hash

VERSION

0.09

SYNOPSIS

use strict;
use warnings;

use Locale::Maketext::TieHash::L10N;
use MyProgram::L10N;

# tie and configure
tie my %mt, 'Locale::Maketext::TieHash::L10N', (
    # save language handle
    L10N => ( MyProgram::L10N->get_handle() or die 'What language?' ),
    # set option numf_comma to change . and , inside of numbers
    numf_comma => 1,
);

...

print <<"EOT";
$mt{Example}:
$mt{[ 'Can not open file [_1]: [_2].', $file_name, $! ]}
EOT

The way without this module - You better see the difference.

use strict;
use warnings;

use MyProgram::L10N;

my $lh = MyProgram::L10N->get_handle()
    or die 'What language?';
$lh{numf_comma} = 1;

...

# no string interpolation for translation
print
    $lh->maketext('Example')
    . ":\n"
    . $lh->maketext( 'Can not open file [_1]: [_2].', $f, $! )
    . "\n";

Example for writing HTML

use strict;
use warnings;

use Locale::Maketext::TieHash::L10N;
use MyProgram::L10N;
use charnames qw(:full);
use Readonly qw(Readonly);

tie my %mt, 'Locale::Maketext::TieHash::L10N', (
    # save language handle
    L10N       => ( MyProgram::L10N->get_handle() or die 'What language?' ),
    # set option numf_comma to change . and , inside of numbers
    numf_comma => 1,
    # For no-break space between number and dimension unit
    # set the "nbsp_flag" to a placeholder
    # like "\N{INFORMATION SEPARATOR ONE}" or something else.
    nbsp_flag  => "\N{INFORMATION SEPARATOR ONE}",
    # For Unicode set "nbsp" to "\N{NO-BREAK SPACE}".
    # For testing set "nbsp" to a string which you see in the Browser
    # like:
    nbsp       => '<span style="color:red">_</span>',
);

...

# The browser shows value and unit always on a line.
Readonly my $IS1 => "\N{INFORMATION SEPARATOR ONE}";
print <<"EOT";
$mt{["Put [*,_1,${IS1}component,${IS1}components,no component] together, then have [*,_2,${IS1}piece,${IS1}pieces,no piece] of equipment.", $component, $piece]}
EOT

read Configuration

my %config = tied(%mt)->config();

write Configuration

tied(%mt)->config(numf_comma => 0, nbsp_flag => q{});

my %config = tied(%mt)->config(numf_comma => 0, nbsp_flag => undef);

EXAMPLE

Inside of this Distribution is a directory named example. Run this *.pl files.

DESCRIPTION

Object methods like 'maketext' don't have interpreted into strings. The module ties the language handle to a hash. The object method 'maketext' is executed at fetch hash. At long last this is the same, only the notation is shorter.

Sometimes the object method 'maketext' expects more than 1 parameter. Then submit a reference on an array as hash key.

If you write HTML text with 'Locale::Maketext', it then can happen that value and unity stand on separate lines. The 'nbsp_flag' prevents the line break. The 'nbsp_flag' per default is undef and this functionality is switched off. Set your choice this value on a character string. For switching the functionality off, set the value to undef or a character string of the length 0. 'nbsp' per default is ' '.

SUBROUTINES/METHODS

method TIEHASH

Tie the hash and set options defaults.

use Locale::Maketext::TieHash::L10N;
tie my %mt, 'Locale::Maketext::TieHash::L10N', %config;

method config

It's an multiple get-/setter. Accepts all parameters as Hash and gives a Hash back with all options.

my %full_config = tied(%mt)->config(
    key1 => $value1,
    ...
);

my %full_config = tied(%mt)->config();

method set_L10N

Set the language handle.

tied(%mt)->set_L10N($lh);

method get_L10N

Get the langusage handle.

$lh = tied(%mt)->get_L10N();

method set_numf_comma

Configure the numf_comma option of the language handle to change . and , inside of numbers.

tied(%mt)->set_numf_comma(1);

method get_numf_comma

Get the numf_comma option of the language hndle.

$numf_comma = tied(%mt)->get_numf_comma();

method set_nbsp

Set the no-break space string. The default is ' '.

# using unicode
tied(%mt)->set_nbsp("\N{NO-BREAK SPACE}");

# for debugging a HTML response
tied(%mt)->set_nbsp('see_position_of_nbsp_in_HTML_response');

method get_nbsp

Get the no-break space string.

$nbsp = tied(%mt)->get_nbsp();

method set_nbsp_flag

Set a flag to say:

Substitute the whitespace before this flag and this flag to no-break space or to the debugging string.

The 'nbsp_flag' is a string (1 or more characters).

tied(%mt)->set_nbsp_flag("\N{INFORMATION SEPARATOR ONE}");

method get_nbsp_flag

$nbsp_flag = tied(%mt)->get_nbsp_flag();

method FETCH

Translate the given key of the hash and give back the translated string as value.

# translation
print $mt{'you write this language'};

# the same is:
print $lh->maketext('you write this language');

...

print $mt{['Put [*,_1,component,components,no component] together.', $number]};

# the same is:
print $lh->maketext('Put [*,_1,component,components,no component] together.', $number);

...

# Use "nbsp" and the "nbsp_flag".
print $mt{["Put [*,_1,${IS1}component,${IS1}components,no component] together.", $number]};

# the same is:
my $translation = $lh->maketext("Put [*,_1,${IS1}component,${IS1}components,no component] together.", $number);
$tanslation =~ s{ $IS1}{\N{NO-BREAK SPACE}}msg; # But no global debugging function is available.

The method calls croak, if the method 'maketext' of your stored language handle dies.

method Config (deprecated)

Use method config.

It's the same usage like method config.

method STORE (deprecated)

Use method config.

Stores the language handle or options.

# store the language handle
$mt{L10N} = $lh;

# store option of language handle
$mt{numf_comma} = 1;
# the same is:
$lh->{numf_comma} = 1;

# for debugging the HTML response
$mt{nbsp} = 'see_position_of_nbsp_in_HTML_response'; # default is '&nbsp;'

# Set a flag to say:
# Substitute the whitespace before this flag and this flag
# to no-break space
# or to the debugging string.

# The "nbsp_flag" is a string (1 or more characters).
$mt{nbsp_flag} = "\N{UNIT SEPARATOR ONE}";

method Keys (deprecated)

Use method config.

Get all keys back.

method Values (deprecated)

Use method config.

Get all values back.

method Get (deprecated)

Use method get_L10N, get_numf_comma, get_nbsp and/or get_nbsp_flag.

Submit 1 key or more. The method Get give you the values back.

DIAGNOSTICS

All methods can croak at false parameters.

CONFIGURATION AND ENVIRONMENT

nothing

DEPENDENCIES

Carp

Params::Validate Comfortable parameter validation

INCOMPATIBILITIES

not known

BUGS AND LIMITATIONS

not known

AUTHOR

Steffen Winkler

LICENSE AND COPYRIGHT

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

To install Locale::Maketext::TieHash::L10N, copy and paste the appropriate command in to your terminal.

cpanm

cpanm Locale::Maketext::TieHash::L10N

CPAN shell

perl -MCPAN -e shell
install Locale::Maketext::TieHash::L10N

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)

NAME

VERSION

SYNOPSIS

The way without this module - You better see the difference.

Example for writing HTML

read Configuration

write Configuration

EXAMPLE

DESCRIPTION

SUBROUTINES/METHODS

method TIEHASH

method config

method set_L10N

method get_L10N

method set_numf_comma

method get_numf_comma

method set_nbsp

method get_nbsp

method set_nbsp_flag

method get_nbsp_flag

method FETCH

method Config (deprecated)

method STORE (deprecated)

method Keys (deprecated)

method Values (deprecated)

method Get (deprecated)

DIAGNOSTICS

CONFIGURATION AND ENVIRONMENT

DEPENDENCIES

INCOMPATIBILITIES

BUGS AND LIMITATIONS

SEE ALSO

AUTHOR

LICENSE AND COPYRIGHT

Module Install Instructions