File Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/Aliased.pm
Criterion Covered Total %
statement 18 19 94.7
branch 5 6 83.3
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 28 32 87.5


line stmt bran cond sub pod time code
1             package Perl::PrereqScanner::NotQuiteLite::Parser::Aliased;
2              
3 82     82   1274 use strict;
  82         149  
  82         2767  
4 82     82   368 use warnings;
  82         148  
  82         1957  
5 82     82   381 use Perl::PrereqScanner::NotQuiteLite::Util;
  82         149  
  82         19316  
6              
7             sub register { return {
8 81     81 0 412 use => {
9             aliased => 'parse_aliased_args',
10             },
11             }}
12              
13             sub parse_aliased_args {
14 7     7 0 17 my ($class, $c, $used_module, $raw_tokens) = @_;
15              
16 7         20 my $tokens = convert_string_tokens($raw_tokens);
17              
18 7 50       21 if (is_version($tokens->[0])) {
19 0         0 $c->add($used_module => shift @$tokens);
20             }
21 7         12 my $module = $tokens->[0];
22 7 100       18 if (ref $module) {
23 2         5 $module = $module->[0];
24             }
25 7 100       16 if (is_module_name($module)) {
26 6         18 $c->add($module => 0);
27             }
28              
29             # TODO: support alias keyword?
30             }
31              
32             1;
33              
34             __END__