view release on metacpan or  search on metacpan

lib/Module/ScanDeps/Static.pm  view on Meta::CPAN

      push @argv, $arg_name if $cli_values{$o};
    }
    elsif ( defined $cli_values{$o} ) {
      push @argv, ( $arg_name => $cli_values{$o} );
    }
    else {
      push @argv, $arg_name;
    }
  }

  local @ARGV = @argv;

  my $self = __PACKAGE__->main($TRUE);

  foreach my $k ( keys %extra_values ) {
    my $setter = "set_$k";
    $self->$setter( $extra_values{$k} );
  }

  return $self;
}

t/01-scandeps.t  view on Meta::CPAN

# use these
use Buz::Baz 1.0;
use Foo::Bar;
# require those
require Carp;
END_OF_CODE

########################################################################
subtest 'use' => sub {
########################################################################
  local @ARGV = ( '--add-version', 'scan' );

  no strict 'refs'; ## no critic
  no warnings 'redefine'; ## no critic

  *{'Module::ScanDeps::Static::cmd_scan'} = sub {
    my ($scanner) = @_;

    open my $fh, '<', \$CODE;
    $scanner->set_handle($fh);

t/01-scandeps.t  view on Meta::CPAN

  Module::ScanDeps::Static->main();
};

########################################################################
subtest 'require' => sub {
########################################################################

  no strict 'refs'; ## no critic
  no warnings 'redefine'; ## no critic

  local @ARGV = qw(scan);

  *{'Module::ScanDeps::Static::cmd_scan'} = sub {
    my ($scanner) = @_;
    open my $fh, '<', \$CODE;

    $scanner->set_handle($fh);

    my @dependencies = $scanner->parse;
    my $require      = $scanner->get_require;