File Coverage

lib/Perl/PrereqScanner/NotQuiteLite/Parser/SyntaxCollector.pm

Criterion	Covered	Total	%
statement	33	34	97.0
branch	12	16	75.0
condition	2	3	66.6
subroutine	5	5	100.0
pod	0	2	0.0
total	52	60	86.6

package Perl::PrereqScanner::NotQuiteLite::Parser::SyntaxCollector;

use strict;
use warnings;
use Perl::PrereqScanner::NotQuiteLite::Util;

sub register { return {
  use => {
    'Syntax::Collector' => 'parse_syntax_collector_args',
  },
}}

sub parse_syntax_collector_args {
  my ($class, $c, $used_module, $raw_tokens) = @_;

  my $tokens = convert_string_token_list($raw_tokens);

  if (is_version($tokens->[0])) {
    $c->add($used_module => shift @$tokens);
  }

  my $spec;
  if (!(@$tokens % 2)) {
    while(my ($key, $value) = splice @$tokens, 0, 2) {
      my $keystr = ref $key ? $key->[0] : $key;
      if ($keystr eq '-collect') {
        $spec = $value;
        last;
      }
    }
  } else {
    $spec = $tokens->[0];
  }
  if (ref $spec) {
    $spec = $spec->[0];
  }
  return if !$spec or ref $spec;

  my @features =
    map {
      m{^
        (use|no) \s+      # "use" or "no"
        (\S+) \s+         # module name
        ([\d\._v]+)       # module version
        (?:               # everything else
          \s* (.+)
        )?                #    ... perhaps
        [;] \s*           # semicolon
      $}x
        ? [$1, $2, $3, [ defined($4) ? eval "($4)" : ()] ]
        : die("Line q{$_} doesn't conform to 'use MODULE VERSION [ARGS];'")
    }
    grep { ! m/^#/ }                # not a comment
    grep { m/[A-Z0-9]/i }           # at least one alphanum
    map  { s/(^\s+)|(\s+$)//; $_ }  # trim
    map  { split /(\r?\n|\r)/ }     # split lines
    $spec;

  for my $feature (@features) {
    $c->add($feature->[1], $feature->[2]);
  }
}

1;

__END__