File Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/Mixin.pm
Criterion Covered Total %
statement 15 16 93.7
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 21 25 84.0


line stmt bran cond sub pod time code
1             package Perl::PrereqScanner::NotQuiteLite::Parser::Mixin;
2              
3 82     82   1089 use strict;
  82         141  
  82         1810  
4 82     82   315 use warnings;
  82         146  
  82         1437  
5 82     82   319 use Perl::PrereqScanner::NotQuiteLite::Util;
  82         143  
  82         15707  
6              
7             sub register { return {
8 81     81 0 365 use => {
9             mixin => 'parse_mixin_args',
10             },
11             }}
12              
13             sub parse_mixin_args {
14 1     1 0 3 my ($class, $c, $used_module, $raw_tokens) = @_;
15              
16 1         3 my $tokens = convert_string_tokens($raw_tokens);
17 1 50       4 if (is_version($tokens->[0])) {
18 0         0 $c->add($used_module => shift @$tokens);
19             }
20 1         3 $c->add($_ => 0) for grep {!ref $_} @$tokens;
  2         7  
21             }
22              
23             1;
24              
25             __END__