40 |
my $tests; |
my $tests; |
41 |
|
|
42 |
map { |
map { |
43 |
$tests->{$_}++ if m{\.t$}; |
$tests->{$_}->{'test modified'}++ if m{\.t$}; |
44 |
} @{ $self->tests }; |
} @{ $self->tests }; |
45 |
|
|
46 |
map { |
map { |
95 |
. |
. |
96 |
join(' ', |
join(' ', |
97 |
map { |
map { |
98 |
# qq|<a target="editor" href="/editor+$_+1" title="edit">$_</a>| |
if ( m{\s} ) { |
99 |
qq|<a target="introspect" href="/$_" title="introspect">$_</a>| |
$_ # human comment with space |
100 |
|
} else { |
101 |
|
qq|<a target="introspect" href="/$_" title="introspect">$_</a>| |
102 |
|
# qq|<a target="editor" href="/editor+$_+1" title="edit">$_</a>| |
103 |
|
} |
104 |
} keys %{ $tests->{$_} } |
} keys %{ $tests->{$_} } |
105 |
) |
) |
106 |
} @tests ) |
} @tests ) |