view release on metacpan or  search on metacpan

lib/App/palien.pm  view on Meta::CPAN

}

sub _libs ($)
{
  my($alien) = @_;
  scalar $alien->libs;
}

sub main
{
  local(undef, @ARGV) = @_;

  my $bin_dir;
  my $dir_sep = ' ';
  my $cflags;
  my $libs;
  my $dll;
  my $modversion;
  my $detail;
  my $status = 0;

t/app_af.t  view on Meta::CPAN

use Test2::V0 -no_srand => 1;
use App::af;

subtest 'compute_class' => sub {

  subtest 'normal' => sub {

    local @ARGV = qw( download --foo --bar --baz );

    is( App::af->compute_class, 'App::af::download' );

  };

  subtest 'normal' => sub {

    local @ARGV = qw( --version );

    is( App::af->compute_class, 'App::af::default' );

  };

  subtest 'none' => sub {

    local @ARGV = qw();

    is( App::af->compute_class, 'App::af::default' );

  };

};

done_testing;