はてなさんの Perlによるオブジェクト指向プログラミング に沿って適宜進めます。
t/sorter.t を各自のディレクトリにcopyしてテストが通るように lib/Sorter.pm を実装してください。
テスト実行
$ tree
.
├── lib
│ └── Sorter.pm
└── t
└── sort.t
$ prove -lvr t
t/sort.t ..
ok 1 - The object isa Sorter
1..1
ok 1 - init
ok 1
ok 2
ok 3
ok 4
1..4
ok 2 - values
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
1..11
ok 3 - sort
1..3
ok
All tests successful.
Files=1, Tests=3, 0 wallclock secs ( 0.03 usr 0.01 sys + 0.06 cusr 0.01 csys = 0.11 CPU)
Result: PASS
下記のインターフェースを満たす My::List とそのテストを作成してください。
my $list = My::List->new;
$list->append("Hello");
$list->append("World");
$list->append(2008);
my $iter = $list->iterator;
while ($iter->has_next) {
print $iter->next->value;
}