File Coverage

blib/lib/Locale/TextDomain/OO/Plugin/Expand/BabelFish/Loc/DomainAndCategory.pm

Criterion	Covered	Total	%
statement	15	43	34.8
branch	0	2	0.0
condition			n/a
subroutine	5	18	27.7
pod	6	6	100.0
total	26	69	37.6

package Locale::TextDomain::OO::Plugin::Expand::BabelFish::Loc::DomainAndCategory; ## no critic (TidyCode)

use strict;
use warnings;
use Locale::Utils::PlaceholderBabelFish;
use Moo::Role;

our $VERSION = '1.030';

with qw(
    Locale::TextDomain::OO::Plugin::Expand::BabelFish::Loc
    Locale::TextDomain::OO::Role::DomainAndCategory
);

requires qw(
    loc_b
    loc_bp

    begin_c
    begin_d
    begin_dc
    callback_scope
    end_c
    end_d
    end_dc
);

sub loc_bd {
    my ( $self, $domain, @more ) = @_;

    return $self->callback_scope(
        sub {
            $self->begin_d($domain);
            return $self->loc_b(@more);
        },
    );
}

sub loc_bc {
    my ($self, @more) = @_;

    return $self->callback_scope(
        sub {
            $self->begin_c( splice @more, 1, 1 );
            return $self->loc_b(@more);
        },
    );
}

sub loc_bdc {
    my ( $self, $domain, @more ) = @_;

    return $self->callback_scope(
        sub {
            $self->begin_d($domain);
            $self->begin_c( splice @more, 1, 1 );
            return $self->loc_bc(@more);
        },
    );
}

sub loc_bdp {
    my ( $self, $domain, @more ) = @_;

    return $self->callback_scope(
        sub {
            $self->begin_d($domain);
            return $self->loc_bp(@more);
        },
    );
}

sub loc_bcp {
    my ( $self, @more ) = @_;

    return $self->callback_scope(
        sub {
            $self->begin_c( splice @more, 2, 1 );
            return $self->loc_bp(@more);
        },
    );
}

sub loc_bdcp {
    my ( $self, $domain, @more ) = @_;

    return $self->callback_scope(
        sub {
            $self->begin_d($domain);
            $self->begin_c( splice @more, 2, 1 );
            return $self->loc_bcp(@more);
        },
    );
}

{
    no warnings qw(redefine); ## no critic (NoWarnings)

    # Dummy methods for string marking.
    my $dummy = sub {
        my (undef, @more) = @_;
        return wantarray ? @more : $more[0];
    };

    *loc_begin_bc  = \&begin_c;
    *loc_begin_bd  = \&begin_d;
    *loc_begin_bdc = \&begin_dc;

    *loc_end_bc  = \&end_c;
    *loc_end_bd  = \&end_d;
    *loc_end_bdc = \&end_dc;

    *Nloc_bd   = $dummy;
    *Nloc_bdp  = $dummy;

    *Nloc_bc   = $dummy;
    *Nloc_bcp  = $dummy;

    *Nloc_bdc   = $dummy;
    *Nloc_bdcp  = $dummy;
}

1;

__END__