File Coverage

blib/lib/App/perlfind/Plugin/UseModule.pm

Criterion	Covered	Total	%
statement	27	51	52.9
branch			n/a
condition			n/a
subroutine	17	17	100.0
pod			n/a
total	44	68	64.7

package App::perlfind::Plugin::UseModule;
use strict;
use warnings;
use App::perlfind;
our $VERSION = '2.07';

App::perlfind->add_trigger(
    'matches.add' => sub {
        my ($class, $word, $matches) = @_;
        # does it look like a package name?
        return unless $$word =~ /^\w+(::\w+)*$/;
        my $try_module = sub {
            my $module = shift;
            eval "use $module;";
            return 0 if $@;
            push @$matches, $module;
            return 1;
        };

        # try it as a module
        return if $try_module->($$word);

        if ($$word =~ /::[A-Z]\w*$/) {
            push @$matches, $$word;
        } elsif ($$word =~ s/::\w+$//) {
            $try_module->($$word);
        }
    }
);
1;
__END__