view release on metacpan or  search on metacpan

xt/cover.pl  view on Meta::CPAN

    chdir '..' or die "$!";
};

do "./Build.PL";

local @ARGV = (@ARGV, 'testcover');
do "./Build";

 view release on metacpan or  search on metacpan

lib/Respite/Server/Test.pm  view on Meta::CPAN

    # start the server in a child, block the parent until ready

    my $pid = fork;
    die "Could not fork during test\n" if ! defined $pid;
    if (!$pid) { # child
        local @ARGV;
        $server->run_server(setsid => 0, background => 0); # allow a kill term to close the server too
        exit;
    }

    $client->{'_test_ender'} = end {

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

  $rv;
}

sub usage
{
  my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
  my %M = ( 'I' => '*' );
  $usage =~ s/^\s*perl\s+\S+/$^X $0/;
  $usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;

  print <<ENDUSAGE;

ppport.h  view on Meta::CPAN

  exit 2;
}

sub strip
{
  my $self = do { local(@ARGV,$/)=($0); <> };
  my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
  $copy =~ s/^(?=\S+)/    /gms;
  $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
  $self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {

 view release on metacpan or  search on metacpan

lib/Rex/Apache/Build.pm  view on Meta::CPAN

          . ". Using current time." );
      return "" . time;
    }

    my ($version) =
      grep { $_ = $1 if $_ =~ $regex; } eval { local (@ARGV) = ($file); <>; };

    return $version;

  };
}