view release on metacpan or  search on metacpan

lib/Asm/C.pm  view on Meta::CPAN

500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
 }
 
test unless caller;
 
1;
# podDocumentation
__DATA__
use Time::HiRes qw(time);
use Test::More;
 
my $localTest = ((caller(1))[0]//'Asm::C') eq "Asm::C";                         # Local testing mode
 
Test::More->builder->output("/dev/null") if $localTest;                         # Reduce number of confirmation messages during testing
 
if ($^O =~ m(bsd|linux)i)
  {if (confirmHasCommandLineCommand(q(gcc))
   &&  confirmHasCommandLineCommand(q(readelf)))
    {plan tests => 17
    }
  else
   {plan skip_all =>qq(gcc or readelf missing on: $^O);