File Coverage

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

Criterion	Covered	Total	%
statement	28	29	96.5
branch	9	12	75.0
condition	4	12	33.3
subroutine	6	6	100.0
pod	0	3	0.0
total	47	62	75.8

package Perl::PrereqScanner::NotQuiteLite::Parser::ClassAutouse;

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

sub register { return {
  use => {
    'Class::Autouse' => 'parse_class_autouse_args',
  },
}}

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

  my $tokens = convert_string_tokens($raw_tokens);
  if (is_version($tokens->[0])) {
    $c->add($used_module => shift @$tokens);
  }
  while(my $token = shift @$tokens) {
    my $module = $token;
    if (ref $module) {
      $module = $module->[0];
    }
    if (is_module_name($module)) {
      $c->add_recommendation($module => 0);
    }
  }

  $c->register_method_parser(
    'autouse',
    [$class, 'parse_autouse_method_args', $used_module],
  );
}

sub parse_autouse_method_args {
  my ($class, $c, $used_module, $raw_tokens) = @_;
  my $tokens = convert_string_tokens($raw_tokens);

  # Check class
  my ($klass, $arrow, $method, @args) = @$tokens;
  return unless $klass and ref $klass and $klass->[0] eq $used_module;
  return unless $method and ref $method and $method->[0] eq 'autouse';
  for my $arg (@args) {
    next if ref $arg;
    $c->add_recommendation($arg => 0);
  }
}

1;

__END__