CP932-R2
view release on metacpan or search on metacpan
t/1003_mbtr.t view on Meta::CPAN
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 141
sub { $_='AAA'; my $r=mbtr($_,'A','1','c'); $r == 0 },
sub { $_='AAA'; my $r=mbtr($_,'A','1','c'); $_ eq 'AAA' },
sub { $_='AAA'; my $r=mbtr($_,'AA','12','c'); $r == 0 },
sub { $_='AAA'; my $r=mbtr($_,'AA','12','c'); $_ eq 'AAA' },
sub { $_='AAA'; my $r=mbtr($_,'AAA','123','c'); $r == 0 },
sub { $_='AAA'; my $r=mbtr($_,'AAA','123','c'); $_ eq 'AAA' },
sub { $_='AAABBBCCC'; my $r=mbtr($_,'AB','12','c'); $r == 3 },
sub { $_='AAABBBCCC'; my $r=mbtr($_,'AB','12','c'); $_ eq 'AAABBB222' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','12','c'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','12','c'); $_ eq 'AB2AB2AB2' },
# 151
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','c'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','c'); $_ eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','cd'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','cd'); $_ eq 'ABABAB' },
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 161
sub { $_='ＡＡＡ'; my $r=mbtr($_,'Ａ','１','c'); $r == 0 },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'Ａ','１','c'); $_ eq 'ＡＡＡ' },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡ','１２','c'); $r == 0 },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡ','１２','c'); $_ eq 'ＡＡＡ' },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡＡ','１２３','c'); $r == 0 },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡＡ','１２３','c'); $_ eq 'ＡＡＡ' },
sub { $_='ＡＡＡＢＢＢＣＣＣ'; my $r=mbtr($_,'ＡＢ','１２','c'); $r == 3 },
sub { $_='ＡＡＡＢＢＢＣＣＣ'; my $r=mbtr($_,'ＡＢ','１２','c'); $_ eq 'ＡＡＡＢＢＢ２２２' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１２','c'); $r == 3 },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１２','c'); $_ eq 'ＡＢ２ＡＢ２ＡＢ２' },
# 171
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','c'); $r == 3 },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','c'); $_ eq 'ＡＢ１ＡＢ１ＡＢ１' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','cd'); $r == 3 },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','cd'); $_ eq 'ＡＢＡＢＡＢ' },
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
##############################################################################
# 181
sub { $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/cs; $r == 3 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/cs; $_ eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/AB/11/cs; $r == 3 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/AB/11/cs; $_ eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/B/1/cds; $r == 6 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/B/1/cds; $_ eq 'BBB' },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/B/12/cds; $r == 6 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/B/12/cds; $_ eq 'BBB' },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/BC/11/cds; $r == 3 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/BC/11/cds; $_ eq 'BCBCBC' },
# 191
sub { $_='ABCABCABC'; my $r= $_ =~ tr/BC/1/cds; $r == 3 },
sub { $_='ABCABCABC'; my $r= $_ =~ tr/BC/1/cds; $_ eq 'BCBCBC' },
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 201
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','cs'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','cs'); $_ eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','11','cs'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','11','cs'); $_ eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','1','cds'); $r == 6 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','1','cds'); $_ eq 'BBB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','12','cds'); $r == 6 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','12','cds'); $_ eq 'BBB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','11','cds'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','11','cds'); $_ eq 'BCBCBC' },
# 211
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','1','cds'); $r == 3 },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','1','cds'); $_ eq 'BCBCBC' },
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 221
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','cs'); $r == 3 },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','cs'); $_ eq 'ＡＢ１ＡＢ１ＡＢ１' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１１','cs'); $r == 3 },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１１','cs'); $_ eq 'ＡＢ１ＡＢ１ＡＢ１' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'Ｂ','１','cds'); $r == 6 },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'Ｂ','１','cds'); $_ eq 'ＢＢＢ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'Ｂ','１２','cds'); $r == 6 },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'Ｂ','１２','cds'); $_ eq 'ＢＢＢ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＢＣ','１１','cds'); $r == 3 },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＢＣ','１１','cds'); $_ eq 'ＢＣＢＣＢＣ' },
# 231
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＢＣ','１','cds'); $r == 3 },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＢＣ','１','cds'); $_ eq 'ＢＣＢＣＢＣ' },
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
sub {1},
##############################################################################
# 241
sub { ($] < 5.014) or eval q{ $_='AAA'; my $r= $_ =~ tr/A/1/r; $r eq '111' }},
sub { ($] < 5.014) or eval q{ $_='AAA'; my $r= $_ =~ tr/AA/12/r; $r eq '111' }},
sub { ($] < 5.014) or eval q{ $_='AAA'; my $r= $_ =~ tr/AAA/123/r; $r eq '111' }},
sub { ($] < 5.014) or eval q{ $_='AAABBBCCC'; my $r= $_ =~ tr/AB/12/r; $r eq '111222CCC' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/12/r; $r eq '12C12C12C' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/r; $r eq '11C11C11C' }},
sub {1},
sub {1},
sub {1},
sub {1},
# 251
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/dr; $r eq '1C1C1C' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/sr; $r eq '1C1C1C' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/11/sr; $r eq '1C1C1C' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/dsr; $r eq '1C1C1C' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/11/dsr; $r eq '1C1C1C' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/ABC/11/dsr; $r eq '1' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/ABC/1/dsr; $r eq '1' }},
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 261
sub { $_='AAA'; my $r=mbtr($_,'A','1','r'); $r eq '111' },
sub { $_='AAA'; my $r=mbtr($_,'AA','12','r'); $r eq '111' },
sub { $_='AAA'; my $r=mbtr($_,'AAA','123','r'); $r eq '111' },
sub { $_='AAABBBCCC'; my $r=mbtr($_,'AB','12','r'); $r eq '111222CCC' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','12','r'); $r eq '12C12C12C' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','r'); $r eq '11C11C11C' },
sub {1},
sub {1},
sub {1},
sub {1},
# 271
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','dr'); $r eq '1C1C1C' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','sr'); $r eq '1C1C1C' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','11','sr'); $r eq '1C1C1C' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','dsr'); $r eq '1C1C1C' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','11','dsr'); $r eq '1C1C1C' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'ABC','11','dsr'); $r eq '1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'ABC','1','dsr'); $r eq '1' },
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 281
sub { $_='ＡＡＡ'; my $r=mbtr($_,'Ａ','１','r'); $r eq '１１１' },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡ','１２','r'); $r eq '１１１' },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡＡ','１２３','r'); $r eq '１１１' },
sub { $_='ＡＡＡＢＢＢＣＣＣ'; my $r=mbtr($_,'ＡＢ','１２','r'); $r eq '１１１２２２ＣＣＣ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１２','r'); $r eq '１２Ｃ１２Ｃ１２Ｃ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','r'); $r eq '１１Ｃ１１Ｃ１１Ｃ' },
sub {1},
sub {1},
sub {1},
sub {1},
# 291
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','dr'); $r eq '１Ｃ１Ｃ１Ｃ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','sr'); $r eq '１Ｃ１Ｃ１Ｃ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１１','sr'); $r eq '１Ｃ１Ｃ１Ｃ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','dsr'); $r eq '１Ｃ１Ｃ１Ｃ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１１','dsr'); $r eq '１Ｃ１Ｃ１Ｃ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢＣ','１１','dsr'); $r eq '１' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢＣ','１','dsr'); $r eq '１' },
sub {1},
sub {1},
sub {1},
##############################################################################
# 301
sub { ($] < 5.014) or eval q{ $_='AAA'; my $r= $_ =~ tr/A/1/cr; $r eq 'AAA' }},
sub { ($] < 5.014) or eval q{ $_='AAA'; my $r= $_ =~ tr/AA/12/cr; $r eq 'AAA' }},
sub { ($] < 5.014) or eval q{ $_='AAA'; my $r= $_ =~ tr/AAA/123/cr; $r eq 'AAA' }},
sub { ($] < 5.014) or eval q{ $_='AAABBBCCC'; my $r= $_ =~ tr/AB/12/cr; $r eq 'AAABBB222' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/12/cr; $r eq 'AB2AB2AB2' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/cr; $r eq 'AB1AB1AB1' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/cdr; $r eq 'ABABAB' }},
sub {1},
sub {1},
sub {1},
# 311
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/1/csr; $r eq 'AB1AB1AB1' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/AB/11/csr; $r eq 'AB1AB1AB1' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/B/1/cdsr; $r eq 'BBB' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/B/11/cdsr; $r eq 'BBB' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/BC/11/cdsr; $r eq 'BCBCBC' }},
sub { ($] < 5.014) or eval q{ $_='ABCABCABC'; my $r= $_ =~ tr/BC/1/cdsr; $r eq 'BCBCBC' }},
sub {1},
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 321
sub { $_='AAA'; my $r=mbtr($_,'A','1','cr'); $r eq 'AAA' },
sub { $_='AAA'; my $r=mbtr($_,'AA','12','cr'); $r eq 'AAA' },
sub { $_='AAA'; my $r=mbtr($_,'AAA','123','cr'); $r eq 'AAA' },
sub { $_='AAABBBCCC'; my $r=mbtr($_,'AB','12','cr'); $r eq 'AAABBB222' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','12','cr'); $r eq 'AB2AB2AB2' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','cr'); $r eq 'AB1AB1AB1' },
sub {1},
sub {1},
sub {1},
sub {1},
# 331
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','cdr'); $r eq 'ABABAB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','1','csr'); $r eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'AB','11','csr'); $r eq 'AB1AB1AB1' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','1','cdsr'); $r eq 'BBB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'B','11','cdsr'); $r eq 'BBB' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','11','cdsr'); $r eq 'BCBCBC' },
sub { $_='ABCABCABC'; my $r=mbtr($_,'BC','1','cdsr'); $r eq 'BCBCBC' },
sub {1},
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 341
sub { $_='ＡＡＡ'; my $r=mbtr($_,'Ａ','１','cr'); $r eq 'ＡＡＡ' },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡ','１２','cr'); $r eq 'ＡＡＡ' },
sub { $_='ＡＡＡ'; my $r=mbtr($_,'ＡＡＡ','１２３','cr'); $r eq 'ＡＡＡ' },
sub { $_='ＡＡＡＢＢＢＣＣＣ'; my $r=mbtr($_,'ＡＢ','１２','cr'); $r eq 'ＡＡＡＢＢＢ２２２' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１２','cr'); $r eq 'ＡＢ２ＡＢ２ＡＢ２' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','cr'); $r eq 'ＡＢ１ＡＢ１ＡＢ１' },
sub {1},
sub {1},
sub {1},
sub {1},
# 351
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','cdr'); $r eq 'ＡＢＡＢＡＢ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１','csr'); $r eq 'ＡＢ１ＡＢ１ＡＢ１' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＡＢ','１１','csr'); $r eq 'ＡＢ１ＡＢ１ＡＢ１' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'Ｂ','１','cdsr'); $r eq 'ＢＢＢ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'Ｂ','１１','cdsr'); $r eq 'ＢＢＢ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＢＣ','１１','cdsr'); $r eq 'ＢＣＢＣＢＣ' },
sub { $_='ＡＢＣＡＢＣＡＢＣ'; my $r=mbtr($_,'ＢＣ','１','cdsr'); $r eq 'ＢＣＢＣＢＣ' },
sub {1},
sub {1},
sub {1},
##############################################################################
# 361
sub { $_='1AB'; my $r= $_ =~ tr/AB/11/s; $r == 2 },
sub { $_='1AB'; my $r= $_ =~ tr/AB/11/s; $_ eq '11' },
sub { $_='AB1'; my $r= $_ =~ tr/AB/11/s; $r == 2 },
sub { $_='AB1'; my $r= $_ =~ tr/AB/11/s; $_ eq '11' },
sub { $_='1AB1'; my $r= $_ =~ tr/AB/11/s; $r == 2 },
sub { $_='1AB1'; my $r= $_ =~ tr/AB/11/s; $_ eq '111' },
sub { $_='111'; my $r= $_ =~ tr/AB/23/s; $r == 0 },
sub { $_='111'; my $r= $_ =~ tr/AB/23/s; $_ eq '111' },
sub { $_='11AB'; my $r= $_ =~ tr/AB/11/s; $r == 2 },
sub { $_='11AB'; my $r= $_ =~ tr/AB/11/s; $_ eq '111' },
# 371
sub { $_='AB11'; my $r= $_ =~ tr/AB/11/s; $r == 2 },
sub { $_='AB11'; my $r= $_ =~ tr/AB/11/s; $_ eq '111' },
sub { $_='11AB11'; my $r= $_ =~ tr/AB/11/s; $r == 2 },
sub { $_='11AB11'; my $r= $_ =~ tr/AB/11/s; $_ eq '11111' },
sub { $_='ABAB'; my $r= $_ =~ tr/AB/11/; $r == 4 },
sub { $_='ABAB'; my $r= $_ =~ tr/AB/11/; $_ eq '1111' },
sub { $_='ABAB'; my $r= $_ =~ tr/AB/11/s; $r == 4 },
sub { $_='ABAB'; my $r= $_ =~ tr/AB/11/s; $_ eq '1' },
sub {1},
sub {1},
#-----------------------------------------------------------------------------
# 381
sub { $_='1AB'; my $r=mbtr($_,'AB','11','s'); $r == 2 },
sub { $_='1AB'; my $r=mbtr($_,'AB','11','s'); $_ eq '11' },
sub { $_='AB1'; my $r=mbtr($_,'AB','11','s'); $r == 2 },
sub { $_='AB1'; my $r=mbtr($_,'AB','11','s'); $_ eq '11' },
sub { $_='1AB1'; my $r=mbtr($_,'AB','11','s'); $r == 2 },
sub { $_='1AB1'; my $r=mbtr($_,'AB','11','s'); $_ eq '111' },
sub { $_='111'; my $r=mbtr($_,'AB','23','s'); $r == 0 },
sub { $_='111'; my $r=mbtr($_,'AB','23','s'); $_ eq '111' },
sub { $_='11AB'; my $r=mbtr($_,'AB','11','s'); $r == 2 },
( run in 0.720 second using v1.01-cache-2.11-cpan-e1769b4cff6 )