File Coverage

blib/lib/Rosetta/Utility/SQLBuilder/L/en.pm

Criterion	Covered	Total	%
statement	15	17	88.2
branch			n/a
condition			n/a
subroutine	5	6	83.3
pod	1	1	100.0
total	21	24	87.5

#!perl
use 5.008001; use utf8; use strict; use warnings;

package Rosetta::Utility::SQLBuilder::L::en;
use version; our $VERSION = qv('0.3.0');

######################################################################

my $CSB = 'Rosetta::Utility::SQLBuilder';

my %text_strings = (
    'ROS_U_SB_METH_ARG_UNDEF' =>
        $CSB . q[.{METH}(): ]
        . q[undefined (or missing) {ARGNM} argument],
    'ROS_U_SB_METH_ARG_NO_ARY' =>
        $CSB . q[.{METH}(): ]
        . q[invalid {ARGNM} argument; ]
        . q[it is not a Array ref, but rather is "{ARGVL}"],
    'ROS_U_SB_METH_ARG_NO_HASH' =>
        $CSB . q[.{METH}(): ]
        . q[invalid {ARGNM} argument; ]
        . q[it is not a Hash ref, but rather is "{ARGVL}"],
    'ROS_U_SB_METH_ARG_NO_NODE' =>
        $CSB . q[.{METH}(): ]
        . q[invalid {ARGNM} argument; ]
        . q[it is not a Node object, but rather is "{ARGVL}"],

    'ROS_U_SB_METH_ARG_WRONG_NODE_TYPE' =>
        $CSB . q[.{METH}(): ]
        . q[invalid {ARGNM} argument; ]
        . q[it is not a "{EXPNTYPE}" Node, but rather is a "{ARGNTYPE}" Node],

    'ROS_U_SB_IDENT_STYLE_ARG_INVAL' =>
        $CSB . q[.identifier_style(): ]
        . q[invalid NEW_VALUE argument; ]
        . q[it is not one of "{EXPVLS}", but rather is "{ARGVL}"],
);

######################################################################

sub get_text_by_key {
    my (undef, $msg_key) = @_;
    return $text_strings{$msg_key};
}

######################################################################

1;
__END__