File Coverage

blib/lib/Locale/TextDomain/OO/FunctionalInterface.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	18	24	75.0
condition	2	6	33.3
subroutine	10	10	100.0
pod			n/a
total	74	84	88.1

package Locale::TextDomain::OO::FunctionalInterface; ## no critic (TidyCode)

use strict;
use warnings;

our $VERSION = '1.000';

use Carp qw(confess);
use Scalar::Util qw(set_prototype);

my %method_name = map { $_ => undef } qw(
    loc_begin_d
    loc_begin_c
    loc_begin_dc
    loc_end_d
    loc_end_c
    loc_end_dc
    loc_
    loc_x
    loc_n
    loc_nx
    loc_p
    loc_px
    loc_np
    loc_npx
    loc_d
    loc_dx
    loc_dn
    loc_dnx
    loc_dp
    loc_dpx
    loc_dnp
    loc_dnpx
    loc_c
    loc_cx
    loc_cn
    loc_cnx
    loc_cp
    loc_cpx
    loc_cnp
    loc_cnpx
    loc_dc
    loc_dcx
    loc_dcn
    loc_dcnx
    loc_dcp
    loc_dcpx
    loc_dcnp
    loc_dcnpx

    Nloc_
    Nloc_x
    Nloc_n
    Nloc_nx
    Nloc_p
    Nloc_px
    Nloc_np
    Nloc_npx
    Nloc_d
    Nloc_dx
    Nloc_dn
    Nloc_dnx
    Nloc_dp
    Nloc_dpx
    Nloc_dnp
    Nloc_dnpx
    Nloc_c
    Nloc_cx
    Nloc_cn
    Nloc_cnx
    Nloc_cp
    Nloc_cpx
    Nloc_cnp
    Nloc_cnpx
    Nloc_dc
    Nloc_dcx
    Nloc_dcn
    Nloc_dcnx
    Nloc_dcp
    Nloc_dcpx
    Nloc_dcnp
    Nloc_dcnpx

    __begin_d
    __begin_c
    __begin_dc
    __end_d
    __end_c
    __end_dc
    __
    __x
    __n
    __nx
    __p
    __px
    __np
    __npx
    __d
    __dx
    __dn
    __dnx
    __dp
    __dpx
    __dnp
    __dnpx
    __c
    __cx
    __cn
    __cnx
    __cp
    __cpx
    __cnp
    __cnpx
    __dc
    __dcx
    __dcn
    __dcnx
    __dcp
    __dcpx
    __dcnp
    __dcnpx

    N__
    N__x
    N__n
    N__nx
    N__p
    N__px
    N__np
    N__npx
    N__d
    N__dx
    N__dn
    N__dnx
    N__dp
    N__dpx
    N__dnp
    N__dnpx
    N__c
    N__cx
    N__cn
    N__cnx
    N__cp
    N__cpx
    N__cnp
    N__cnpx
    N__dc
    N__dcx
    N__dcn
    N__dcnx
    N__dcp
    N__dcpx
    N__dcnp
    N__dcnpx

    locn
    Nlocn

    maketext
    maketext_p
    maketext_d
    maketext_dp
    maketext_c
    maketext_cp
    maketext_dc
    maketext_dcp

    Nmaketext
    Nmaketext_p
    Nmaketext_d
    Nmaketext_dp
    Nmaketext_c
    Nmaketext_cp
    Nmaketext_dc
    Nmaketext_dcp

    loc
    loc_m
    loc_mp

    localise
    localise_m
    localise_mp

    localize
    localize_m
    localize_mp

    Nloc
    Nloc_m
    Nloc_mp
);

our $loc_ref = do { my $loc; \$loc }; ## no critic(PackageVars)

sub import {
    my (undef, @imports) = @_;

    if (! @imports) {
        @imports = (
            qw($loc_ref),
            keys %method_name,
        );
    }

    my $caller = caller;
    my $package = __PACKAGE__;

    IMPORT:
    for my $import (@imports) {
        defined $import
            or confess 'An undefined value is not a function name';
        if ($import eq '$loc_ref') { ## no critic (InterpolationOfMetachars)
            no strict qw(refs);       ## no critic (NoStrict)
            no warnings qw(redefine); ## no critic (NoWarnings)
            *{"$caller\::loc_ref"} = \$loc_ref;
            next IMPORT;
        }
        exists $method_name{$import}
            or confess qq{"$import" is not exported};
        my $prototype = $import;
        ## no critic (ComplexRegexes)
        $prototype =~ s{
            \b N?
            (?:
                loc_begin_
                | ( loc_ )                        # 1
                | __begin_
                | ( __ )                          # 2
                | ( loc (?: ali[sz]e ) (?: _m ) ) # 3
                | ( maketext [_]? )               # 4
            )
            (d)?                    # 5
            (c)?                    # 6
            (n)?                    # 7
            (p)?                    # 8
            (x)?                    # 9
            \b
            | \b N? ( locn ) \b
        }{
            $10
            ? (
                (  $5                   ? q{$}  : q{} ) # domain
                .( $8                   ? q{$}  : q{} ) # context
                .( $1 || $2 || $3 || $4 ? q{$}  : q{} ) # singular
                .( $7                   ? q{$$} : q{} ) # plural, count
                .( $6                   ? q{$}  : q{} ) # category
                .( $3 ||$4 || $9        ? q{@}  : q{} ) # placeholder
            )
            : q{@};
        }xmse or $prototype = q{};
        ## use critic (ComplexRegexes)
        no strict qw(refs);       ## no critic (NoStrict)
        no warnings qw(redefine); ## no critic (NoWarnings)
        *{"$caller\::$import"} = set_prototype(
            sub {
                return ${$loc_ref}->$import(@_);
            },
            $prototype,
        );
    }

    return;
}

1;

__END__