Test::Base

2009鐃緒申鐃緒申鐃緒申05·鐃緒申鐃�27鐃緒申鐃緒申鐃緒申06:31

$\«\Æ\´\ê¡¼¤Ç¤¹$ Perl

Test::Base鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋�緒申

鐃暑Ǚ申鐃緒申鐃緒申��￥申Test::Base鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純™申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申perl鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃署¨�緒申Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃出�緒申鐃緒申鐃�Test::Base鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�(*Ž\鐃緒申�鐃緒申Ž\)\鐃緒申�鐃渋�渋�暑Ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￠´�緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃述�緒申¾鐃緒申鐃�²鐃緒申�鐃緒申¼鐃緒申臓鐃�

use strict;
use Test::Base;

filters {
    i => [qw/lines chomp array test_method/],
    e => [qw/lines chomp array/],
};

sub test_method {
    my $data = shift; # 鐃緒申鐃緒申鐃遵Î�術�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
    $data->[0] *= 2;
    $data->[1] =~ s/\d//g;
    return $data;
}

run_is_deeply i => 'e';

__END__
===
--- i
1
sasata299
--- e
2
sasata
===
--- i
2
zozom
--- e
4
zozom

test_method鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

1. 鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃�2鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申��術�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申¼鐃緒申�鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申
2. 鐃暑ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃巡™申鐃緒申�鐃緒申鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�2鐃緒申鐃緒申鐃巡™申¹鐃緒申鐃緒申鐃緒申
3. 鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申�鐃緒申鐃淳�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申�鐃緒申»鐃緒申��申漫鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申½鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申��申鐃緒申鐃�
4. 鐃緒申鐃緒申鐃遵Î�術�緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃述�緒申鐃緒申�鐃緒申¹鐃緒申臓鐃�

i鐃緒申鐃緒申input\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃渋￥申e鐃緒申鐃緒申expected\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申�鐃緒申½鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓��¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃�¾鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

Test::Base鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�input\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃�expected\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃�·鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�²鐃緒申鐃�¹鐃緒申��申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃渋￥申��申½鐃緒申��申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�³鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�Ð鐃緒申臓鐃�\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申�鐃獣￥申鐃緒申鐃渋�獣�渋�緒申

lines\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�: input\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃�²鐃緒申鐃�¹鐃緒申國鐃緒申鐃緒申鐃緒申鐃緒申鐃盾™申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申���術�緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃俊�緒申¹
chomp\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�: \鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃�²鐃緒申鐃�¹鐃緒申�鐃緒申鐃緒申鐃�»鐃緒申��申鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申��申鐃緒申鐃�
array\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�: 鐃緒申鐃緒申鐃遵Î�術�緒申鐃緒申鐃�¼鐃緒申�鐃緒申鐃�¼鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￠Ç鐃緒申���緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃俊�緒申¹

鐃緒申�鐃緒申鐃緒申�鐃渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�input\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃�lines\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃渋￥申chomp\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃渋￥申array\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申臓鐃暑Ǚ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申test_method\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申½鐃緒申鐃緒申鐃緒申·鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申expected\鐃緒申鐃緒申鐃緒申¼\鐃緒申�鐃緒申鐃緒申鐃�lines\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃渋￥申chomp\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃渋￥申array\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申·鐃緒申鐃�²鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃渋￥申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃述�緒申鐃緒申鐃�³鐃緒申�鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃渋￥申run_is鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�run_is_deeply鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃�»鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃�³鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申臓鐃暑Ǚ申½鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃出°Õ�緒申µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Filter鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�yaml鐃緒申鐃緒申鐃緒申鐃緒申鐃�«eval鐃緒申鐃緒申鐃緒申鐃緒申鐃�«dumper鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�¾鐃緒申��申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑Ǚ申²¼鐃緒申鐃緒申鐃緒申\µ\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�»²¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

Test::Base::Filter - Test::Base 鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\¹
鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申 /usr/lib/perl5/site_perl/5.8.8/Test/Base/Filter.pm 鐃緒申鐃緒申鐃緒申鐃縦�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\½鐃緒申鐃�¼\¹鐃緒申鐃緒申鐃述�緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�« 鐃緒申�鐃緒申

\鐃緒申鐃�\鐃緒申鐃緒申臓鐃�: perl; Test::Base; \鐃緒申鐃�\¹\鐃緒申鐃�

2008鐃緒申鐃緒申鐃緒申07·鐃緒申鐃�03鐃緒申鐃緒申鐃緒申07:14

$\«\Æ\´\ê¡¼¤Ç¤¹$ Perl

Test::Base鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純™申·

\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申«鐃緒申鐃緒申鐃緒申鐃緒申鐃�³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�³(#`鐃緒申\鐃緒申鐃�)Ž鐃緒申鐃�

$ÃÎ¼±\¼\í¤«¤é³Ø¤Ö \½\Õ\È\¦\§\￠\Æ\¹\È$ 鐃緒申鐃緒申鐃緒申¼鐃緒申\¼\鐃緒申鐃緒申鐃緒申«鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃� \½\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申\鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�
鐃緒申鐃緒申鐃緒申¼鐃緒申�鐃渋￥申¹鐃緒申鐃緒申鐃緒申鐃� ¼鐃緒申��申
鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申µ鐃緒申臓鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申¼鐃緒申鐃�
鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃巡¡￥申2005-02-18
鐃緒申鐃緒申鐃曙™申¹鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃純¡￥申

\鐃緒申鐃�\鐃緒申鐃�\³\鐃緒申�鐃緒申鐃緒申�鐃緒申«鐃緒申鐃緒申鐃緒申

鐃緒申�鐃獣�渋�獣�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�perl鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃�\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃�¾鐃緒申鐃緒申鐃緒申Test::Base鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃縦�渋�緒申Ž\鐃緒申鐃�Ž\)
Test::More鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾￥申¹鐃緒申鐃�鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申²鐃緒申鐃緒申鐃緒申鐃緒申鐃�·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�

\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃術�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申�鐃緒申鐃緒申臓鐃�

use strict;
use Test::Base;

use lib qw(../lib);

filters {
    i => [qw/chomp replace/],
    e => qw/chomp/,
};

sub replace { 
    my $data = shift;
    $data =~ s/(.+)/uc($1)/ge;
    return $data;
}

run_is i => 'e';

__END__
=== replace test 1
--- i
aaa
bbb
--- e
AAA
BBB
=== replace test 2
--- i
fuga
123
HOGE
--- e
FUGA
123
HOGE

filters鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓��鐃緒申鐃�²鐃緒申�鐃緒申鐃縮�緒申鐃緒申��申½鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申¼鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申¾鐃緒申鐃�¹鐃緒申鐃緒申鐃渋￥申i(input)鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申chomp鐃緒申鐃緒申鐃緒申replace鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申�鐃緒申¼鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申e(expected)鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申chomp鐃緒申鐃緒申鐃述�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申__END__鐃暑Ǚ申²¼鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�--- i 鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃出�渋�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃述�渋￥申--- e 鐃緒申鐃緒申鐃渋�緒申鐃緒申鐃緒申鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃�=== 鐃緒申鐃緒申鐃渋�緒申鐃緒申�鐃緒申鐃縮�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申¾鐃緒申鐃緒申��申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�渋￥申

¼鐃緒申鐃�¹鐃緒申�鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申臓鐃渋￥申鐃�µ»鐃緒申鐃�\鐃緒申鐃�\¹\鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申(*鐃緒申鐃�鐃緒申\鐃緒申�鐃緒申*)鐃緒申臓��鐃緒申鐃�¾鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�

ok 1 - replace test 1
ok 2 - replace test 2
1..2

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃縮�渋￥申\鐃緒申鐃�\¹\鐃緒申鐃�\³鐃緒申鐃�¼\鐃緒申鐃�½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃�·鐃緒申鐃�¹½³鐃緒申��申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申鐃緒申鐃緒申鐃緒申臓鐃緒申³鐃緒申鐃緒申鐃緒申鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申½鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申臓鐃�