11 my ($test, $segment, $text);
16 if ($line =~ /^=for test (\S+)(?:\s+(\S+))?/) {
18 ($test, $segment) = ($1, $2);
21 } elsif ($line =~ /^=begin testing/) {
22 $mode = 'find_comment';
23 ($test, $segment, $text) = ('', '', '');
27 sub mode::find_comment {
30 if ($line =~ /^\#\:\: test (\S+)(?:\s+(\S+))?/) {
32 ($test, $segment) = ($1, $2);
41 push(@{$tests{$test}{$segment}||=[]}, $text);
48 my @lines = io('lib/local/lib.pm')->getlines;
52 foreach my $line (@lines) {
57 foreach my $test (keys %tests) {
58 my $data = $tests{$test};
59 my $text = join("\n", q{
62 use Test::More 'no_plan';
64 }, @{$data->{setup}||[]},
65 map { "{\n$_}\n"; } @{$data->{''}||[]}
67 $text > io("t/${test}.t");