File Coverage

blib/lib/App/perlfind/Plugin/Label.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package App::perlfind::Plugin::Label;
2 10     10   2407273 use strict;
  10         29  
  10         400  
3 10     10   41 use warnings;
  10         14  
  10         281  
4 10     10   462 use App::perlfind;
  10         67  
  10         287  
5             our $VERSION = '2.07';
6              
7             App::perlfind->add_trigger(
8             'matches.add' => sub {
9             my ($class, $word, $matches) = @_;
10              
11             # Is it a label (ends with ':')? Do this after %found_in, because there are
12             # special labels such as 'SKIP:' and 'TODO:' that map to Test::More
13             if ($$word =~ /^\w+:$/) { push @$matches, 'perlsyn' }
14             }
15             );
16             1;
17             __END__