File Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/POE.pm
Criterion Covered Total %
statement 15 16 93.7
branch 2 4 50.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 22 27 81.4


line stmt bran cond sub pod time code
1             package Perl::PrereqScanner::NotQuiteLite::Parser::POE;
2              
3 82     82   1251 use strict;
  82         162  
  82         2527  
4 82     82   377 use warnings;
  82         144  
  82         1644  
5 82     82   355 use Perl::PrereqScanner::NotQuiteLite::Util;
  82         158  
  82         18098  
6              
7             sub register { return {
8 81     81 0 435 use => {
9             POE => 'parse_poe_args',
10             },
11             }}
12              
13             sub parse_poe_args {
14 2     2 0 6 my ($class, $c, $used_module, $raw_tokens) = @_;
15 2         7 my $tokens = convert_string_tokens($raw_tokens);
16 2 50       10 if (is_version($tokens->[0])) {
17 0         0 $c->add($used_module => shift @$tokens);
18             }
19 2 50       6 $c->add($_ eq "POE" ? $_ : "POE::".$_ => 0) for grep {!ref $_} @$tokens;
  3         16  
20             }
21              
22             1;
23              
24             __END__