File Coverage

blib/lib/App/perlfind/Plugin/SpecialPackages.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package App::perlfind::Plugin::SpecialPackages;
2 2     2   4177 use 5.008;
  2         8  
  2         815  
3 2     2   13 use strict;
  2         5  
  2         383  
4 2     2   11 use warnings;
  2         6  
  2         396  
5 2     2   12 use App::perlfind;
  2         4  
  2         592  
6             our $VERSION = '2.05';
7             App::perlfind->add_trigger(
8             'matches.add' => sub {
9             my ($class, $word, $matches) = @_;
10             $$word =~ /^UNIVERSAL::/ && push @$matches, 'perlobj';
11             $$word =~ /^CORE::/ && push @$matches, 'perlsub';
12             }
13             );
14             1;
15             __END__