11 my ($test, $segment, $text);
15 if (shift =~ /^=for test (\S+)(?:\s+(\S+))?/) {
17 ($test, $segment) = ($1, $2);
27 push(@{$tests{$test}{$segment}||=[]}, $text);
34 my @lines = io('lib/local/lib.pm')->getlines;
38 foreach my $line (@lines) {
43 foreach my $test (keys %tests) {
44 my $data = $tests{$test};
45 my $text = join("\n", q{
48 use Test::More 'no_plan';
50 }, @{$data->{setup}||[]},
51 map { "{\n$_}\n"; } @{$data->{''}||[]}
53 $text > io("t/${test}.t");