File Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/TestClassMost.pm
Criterion Covered Total %
statement 20 21 95.2
branch 7 10 70.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 32 38 84.2


line stmt bran cond sub pod time code
1             package Perl::PrereqScanner::NotQuiteLite::Parser::TestClassMost;
2              
3 82     82   1269 use strict;
  82         166  
  82         2234  
4 82     82   339 use warnings;
  82         152  
  82         1605  
5 82     82   353 use Perl::PrereqScanner::NotQuiteLite::Util;
  82         148  
  82         19812  
6              
7             sub register { return {
8 81     81 0 377 use => {
9             'Test::Class::Most' => 'parse_test_class_most_args',
10             },
11             }}
12              
13             sub parse_test_class_most_args {
14 3     3 0 13 my ($class, $c, $used_module, $raw_tokens) = @_;
15              
16 3         10 my $tokens = convert_string_token_list($raw_tokens);
17 3 50       10 if (is_version($tokens->[0])) {
18 0         0 $c->add($used_module => shift @$tokens);
19             }
20              
21 3         11 while(my ($key, $value) = splice @$tokens, 0, 2) {
22 5 50       38 my $keystr = ref $key ? $key->[0] : $key;
23 5 100       13 if ($keystr eq 'parent') {
24 3 100       8 if (!ref $value) {
    50          
25 2         6 $c->add($value => 0);
26             } elsif ($value->[1] eq '[]') {
27 1         3 my $tokens_inside = convert_string_token_list($value->[0]);
28 1         5 $c->add($_ => 0) for @$tokens_inside;
29             }
30             }
31             }
32             }
33              
34             1;
35              
36             __END__