File Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/Autouse.pm
Criterion Covered Total %
statement 17 19 89.4
branch 3 6 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 25 32 78.1


line stmt bran cond sub pod time code
1             package Perl::PrereqScanner::NotQuiteLite::Parser::Autouse;
2              
3 82     82   1257 use strict;
  82         222  
  82         2115  
4 82     82   394 use warnings;
  82         153  
  82         1669  
5 82     82   354 use Perl::PrereqScanner::NotQuiteLite::Util;
  82         146  
  82         18002  
6              
7             sub register { return {
8 81     81 0 407 use => {
9             'autouse' => 'parse_autouse_args',
10             },
11             }}
12              
13             sub parse_autouse_args {
14 2     2 0 5 my ($class, $c, $used_module, $raw_tokens) = @_;
15              
16 2         5 my $tokens = convert_string_tokens($raw_tokens);
17 2 50       5 if (is_version($tokens->[0])) {
18 0         0 $c->add($used_module => shift @$tokens);
19             }
20 2         3 my $module = $tokens->[0];
21 2 50       4 if (ref $module) {
22 0         0 $module = $module->[0];
23             }
24 2 50       5 if (is_module_name($module)) {
25 2         5 $c->add_recommendation($module => 0);
26             }
27             }
28              
29             1;
30              
31             __END__