Result:
found more than 1380 distributions - search limited to the first 2001 files matching your query
( run in 1.011 )
Algorithm-CP-IZ
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-Classifier-IsolationForest
view release on metacpan or search on metacpan
t/90-cli-commands.t view on Meta::CPAN
my @lines = split /\n/, $out;
is( scalar @lines, 121, 'one output row per input row on resume' );
};
subtest 'stream --score-only does not advance the model' => sub {
my $before = do { local ( @ARGV, $/ ) = ($omodel); <> };
my $out = `$^X -Ilib $bin stream --score-only -i $stream_csv -m $omodel -o $oscores 2>&1`;
is( $?, 0, 'stream --score-only exits 0' );
ok( -s $oscores, 'score output file written' );
my $after = do { local ( @ARGV, $/ ) = ($omodel); <> };
is( $after, $before, 'model file unchanged by --score-only' );
};
subtest 'stream --learn-only emits nothing but updates the model' => sub {
my $before = do { local ( @ARGV, $/ ) = ($omodel); <> };
my $out = `$^X -Ilib $bin stream --learn-only -i $stream_csv -m $omodel 2>&1`;
is( $?, 0, 'stream --learn-only exits 0' );
is( $out, '', 'no score output' );
my $after = do { local ( @ARGV, $/ ) = ($omodel); <> };
isnt( $after, $before, 'model file advanced by --learn-only' );
};
subtest 'info recognises an online model' => sub {
my $out = `$^X -Ilib $bin info -m $omodel 2>&1`;
t/90-cli-commands.t view on Meta::CPAN
= `$^X -Ilib $bin fit -i $raw_csv -o $mmodel -n 30 -m 32 -s 42 -t method -t path_len -t bytes --mungers $munger_json 2>&1`;
is( $?, 0, 'fit --mungers exits 0' ) or diag $out;
ok( -s $mmodel, 'model written' );
like(
scalar(
do { local ( @ARGV, $/ ) = ($mmodel); <> }
),
qr/"mungers"/,
'model JSON carries the munger spec'
);
}; ## end 'fit --mungers accepts raw CSV and saves the spec' => sub
Algorithm-ConsistentHash-CHash
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-ConsistentHash-JumpHash
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-Diff-XS
view release on metacpan or search on metacpan
print " --- hint for $func ---\n", $hint;
}
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;
Algorithm-Heapify-XS
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-KNN-XS
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-LBFGS
view release on metacpan or search on metacpan
print " --- hint for $func ---\n", $hint;
}
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;
Algorithm-Line-Lerp
view release on metacpan or search on metacpan
$rv || 0;
}
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;
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') {
Algorithm-MedianSelect-XS
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-MinPerfHashTwoLevel
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-PageRank-XS
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-Permute
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-QuadTree-XS
view release on metacpan or search on metacpan
$rv || 0;
}
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;
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') {
Algorithm-RectanglesContainingDot_XS
view release on metacpan or search on metacpan
print " --- hint for $func ---\n", $hint;
}
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;
exit 2;
}
sub strip
{
my $self = do { local(@ARGV,$/)=($0); <> };
$self =~ s/^$HS+Do NOT edit.*?(?=^-)//ms;
$self =~ s/^SKIP.*(?=^__DATA__)/SKIP
if (\@ARGV && \$ARGV[0] eq '--unstrip') {
eval { require Devel::PPPort };
\$@ and die "Cannot require Devel::PPPort, please install.\\n";
Algorithm-Statistic
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-StringHash-FromCSharp35-XS
view release on metacpan or search on metacpan
$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;
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') {
Algorithm-TrunkClassifier
view release on metacpan or search on metacpan
Algorithm/TrunkClassifier/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;
Algorithm/TrunkClassifier/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') {
Alien-AntTweakBar
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
libs => '-L' . $self->quote_literal('@PrEfIx@/lib') . ' -lAntTweakBar',
cflags => '-I' . $self->quote_literal('@PrEfIx@/include'),
});
}
# mark sucessfully finished build
local @ARGV = ('build_done');
ExtUtils::Command::touch;
}
$self->SUPER::ACTION_code;
}
Alien-Base-Wrapper
view release on metacpan or search on metacpan
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Foo2');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=1 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo3');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=2 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo -lbaz )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo4');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=1 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo5', 'Alien::Bar5');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -I/bar/include -DFOO5=1 -DBAR5=1 one two three ) ],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib -L/foo/lib --ld-foo --ld-bar one two three -lfoo -lbar )],
'ld',
);
Alien-Box2D
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-Build
view release on metacpan or search on metacpan
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Foo2');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=1 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo3');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=2 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo -lbaz )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo4');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -DBAR=1 one two three )],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib one two three -lfoo )],
'ld',
);
t/alien_base_wrapper.t view on Meta::CPAN
Alien::Base::Wrapper->import('Alien::Foo5', 'Alien::Bar5=1.23');
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::cc();
},
[shellwords($Config{cc}), qw( -I/foo/include -I/bar/include -DFOO5=1 -DBAR5=1 one two three ) ],
'cc',
);
is(
exec_arrayref {
local @ARGV = qw( one two three );
Alien::Base::Wrapper::ld();
},
[shellwords($Config{ld}), qw( -L/foo/lib -L/foo/lib --ld-foo --ld-bar one two three -lfoo -lbar )],
'ld',
);
Alien-CMake
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-FreeImage
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
LIBS => ' -L' . $self->quote_literal('@PrEfIx@') . $libs,
INC => ' -DFREEIMAGE_LIB -I' . $self->quote_literal('@PrEfIx@') . ' ',
});
# mark sucessfully finished build
local @ARGV = ('build_done');
ExtUtils::Command::touch();
}
$self->SUPER::ACTION_code;
}
Alien-PNG
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-ROOT
view release on metacpan or search on metacpan
inc/Alien/ROOT/Builder/Utility.pm view on Meta::CPAN
File::Spec->splitdir( $dir ), $file );
}
sub aroot_touch {
require ExtUtils::Command;
local @ARGV = @_;
ExtUtils::Command::touch();
}
1;
Alien-SDL
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-SDL2
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
}
sub touch_build_done_marker {
my $self = shift;
require ExtUtils::Command;
local @ARGV = ('build_done');
ExtUtils::Command::touch();
$self->add_to_cleanup('build_done');
}
sub clean_build_done_marker {
Alien-Selenium
view release on metacpan or search on metacpan
inc/My/Module/Build.pm view on Meta::CPAN
*read_file = \&My::Module::Build::read_file; }
use Test::More;
use Fatal qw(mkdir chdir);
local @ARGV = qw(--noinstall-everything);
my $define_options =
My::Tests::Below->pod_code_snippet("option-graph");
$define_options =~ s/\.\.\.//g;
my $builder = eval $define_options; die $@ if $@;
Alien-Tidyp
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
LIBS => '-L' . $self->quote_literal('@PrEfIx@/lib') . ' -ltidyp',
INC => '-I' . $self->quote_literal('@PrEfIx@/include/tidyp'),
});
}
# mark sucessfully finished build
local @ARGV = ('build_done');
ExtUtils::Command::touch();
}
$self->SUPER::ACTION_code;
}
( run in 1.011 second using v1.01-cache-2.11-cpan-ac8be02dad9 )