Result:
found more than 818 distributions - search limited to the first 2001 files matching your query
( run in 1.563 )
Algorithm-BIT-XS
view release on metacpan or search on metacpan
init_i18nl14n||5.006000|
init_ids|||
init_interp|||
init_main_stash|||
init_perllib|||
init_postdump_symbols|||
init_predump_symbols|||
init_stacks||5.005000|
init_tm||5.007002|
inplace_aassign|||
instr|||n
Algorithm-Backoff
view release on metacpan or search on metacpan
that you insert a prominent notice in each changed file stating how and
when you changed that file, and provided that you do at least ONE of the
following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or
an equivalent medium, or placing the modifications on a major archive
site such as uunet.uu.net, or by allowing the Copyright Holder to include
your modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-BestChoice
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
print << ".";
*** Could not find a version $ver or above for $pkg; skipping.
.
}
MY::postinstall( $pkg, $ver, $success ) if defined &MY::postinstall;
}
return $installed;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
print << ".";
*** Could not find a version $ver or above for $pkg; skipping.
.
}
MY::postinstall( $pkg, $ver, $success ) if defined &MY::postinstall;
}
return $installed;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
my %args = _make_args(@_);
no strict 'refs';
$PostambleUsed = 0;
local *MY::postamble = \&postamble unless defined &MY::postamble;
ExtUtils::MakeMaker::WriteMakefile(%args);
print << "." unless $PostambleUsed;
*** WARNING: Makefile written with customized MY::postamble() without
including contents from Module::AutoInstall::postamble() --
auto installation features disabled. Please contact the author.
.
return 1;
}
sub postamble {
$PostambleUsed = 1;
return <<"END_MAKE";
config :: installdeps
Algorithm-BinPack-2D
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-BinarySearch-Vec
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
";
return $inherited;
}
##---------------------------------------------------------------
sub MY::postamble {
package MY;
my $inherited = shift->SUPER::postamble(@_);
return $inherited;
}
Algorithm-BloomFilter
view release on metacpan or search on metacpan
init_i18nl14n||5.006000|
init_ids|||
init_interp|||
init_main_stash|||
init_perllib|||
init_postdump_symbols|||
init_predump_symbols|||
init_stacks||5.005000|
init_tm||5.007002|
instr|||n
intro_my|||
Algorithm-BreakOverlappingRectangles
view release on metacpan or search on metacpan
init_ids|||
init_interp|||
init_lexer|||
init_main_stash|||
init_perllib|||
init_postdump_symbols|||
init_predump_symbols|||
init_stacks||5.005000|
init_tm||5.007002|
instr|||
intro_my|||
Algorithm-Burg
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-C3
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-CP-IZ
view release on metacpan or search on metacpan
init_i18nl14n||5.006000|
init_ids|||
init_interp|||
init_main_stash|||
init_perllib|||
init_postdump_symbols|||
init_predump_symbols|||
init_stacks||5.005000|
init_tm||5.007002|
inplace_aassign|||
instr|||n
Algorithm-CRF
view release on metacpan or search on metacpan
t/test.data view on Meta::CPAN
Arizona NNP I
real JJ I
estate NN I
prices NNS I
, , O
posted VBD O
a DT B
third-quarter JJ I
loss NN I
of IN O
$ $ B
t/test.data view on Meta::CPAN
other JJ B
matters NNS I
, , O
and CC O
it PRP B
posted VBD O
a DT B
$ $ I
7.6 CD I
million CD I
reduction NN I
t/test.data view on Meta::CPAN
Col. NNP I
Noriega NNP I
has VBZ O
elected VBN O
to TO O
postpone VB O
his PRP$ B
visit NN I
to TO O
Washington NNP B
, , O
t/test.data view on Meta::CPAN
was VBD O
elected VBN O
to TO O
the DT B
additional JJ I
posts NNS I
of IN O
chairman NN B
, , O
president NN B
and CC O
t/test.data view on Meta::CPAN
William NNP B
R. NNP I
Attridge NNP I
resigned VBD O
those DT B
posts NNS I
, , O
as RB O
well RB O
as IN O
a DT B
t/test.data view on Meta::CPAN
held VBN I
publisher NN I
. . O
The DT B
post NN I
had VBD O
been VBN O
vacant JJ O
for IN O
more JJR B
t/test.data view on Meta::CPAN
than IN I
a DT I
year NN I
in IN O
the DT B
posts NNS I
. . O
Ms. NNP B
Clifton NNP I
had VBD O
t/test.data view on Meta::CPAN
marked VBN O
`` `` O
Hugo NNP B
'' '' O
and CC O
postmarked VBN O
by IN O
Jan. NNP B
16 CD I
. . O
t/test.data view on Meta::CPAN
she PRP B
is VBZ O
rewarded VBN O
by IN O
a DT B
picture-postcard NN I
vista NN I
: : O
a DT B
glade NN I
of IN O
t/test.data view on Meta::CPAN
nine CD I
months NNS I
, , O
the DT B
company NN I
posted VBD O
a DT B
14 CD I
% NN I
rise NN I
in IN O
t/test.data view on Meta::CPAN
, , O
while IN O
Manufacturers NNP B
Hanover NNP I
Corp. NNP I
posted VBD O
a DT B
$ $ I
789 CD I
million CD I
loss NN I
t/test.data view on Meta::CPAN
Three CD B
other JJ I
major JJ I
U.S. NNP I
banks NNS I
posted VBD O
earnings NNS B
increases NNS I
. . O
Wells NNP B
t/test.data view on Meta::CPAN
& CC I
Co. NNP I
of IN O
San NNP B
Francisco NNP I
posted VBD O
a DT B
17 CD I
% NN I
jump NN I
. . O
Algorithm-CheckDigits
view release on metacpan or search on metacpan
lib/Algorithm/CheckDigits.pm view on Meta::CPAN
'Rentenversicherungsnummer, VSNR (DE)' ],
'sedol' => [ 'Algorithm::CheckDigits::M10_008',
'Stock Exchange Daily Official List, SEDOL (GB)' ],
'betriebsnummer' => [ 'Algorithm::CheckDigits::M10_009',
'Betriebsnummer (DE)' ],
'postcheckkonti' => [ 'Algorithm::CheckDigits::M10_010',
'Postscheckkonti (CH)' ],
'ups' => [ 'Algorithm::CheckDigits::M10_011',
'United Parcel Service, UPS' ],
'isbn' => [ 'Algorithm::CheckDigits::M11_001',
'International Standard Book Number, ISBN10' ],
lib/Algorithm/CheckDigits.pm view on Meta::CPAN
=item betriebsnummer
See L<Algorithm::CheckDigits::M10_009>.
=item postscheckkonti
See L<Algorithm::CheckDigits::M10_010>.
=item ups
Algorithm-Classifier-IsolationForest
view release on metacpan or search on metacpan
lib/Algorithm/Classifier/IsolationForest.pm view on Meta::CPAN
* Each tree is built entirely with plain C data (row-index int arrays,
* a growable TreeBuf of packed doubles/ints) -- no Perl API call
* happens anywhere inside the parallel region. Each node record in
* TreeBuf uses _pack_tree's 6-double SoA layout (see the file-top
* comment), but the node ORDER differs: records are appended
* post-order (a node is pushed after both its children, since child
* indices must be known first), so the root is the last record --
* _pack_tree's pre-order puts it at 0. _unpack_forest accounts for
* this. Oblique coefficients are also always stored sparse (in the
* random pool's order) -- the dense-pack fast path is skipped because
* its only purpose is speeding up score_all_xs, and _rebuild_c_trees
lib/Algorithm/Classifier/IsolationForest.pm view on Meta::CPAN
}
/* Median of a[0..n-1] (reorders a[]). Odd n: the single middle order
* statistic. Even n: quickselect finds the lower-median at k = n/2-1,
* which leaves every a[i > k] >= a[k] (the standard quickselect
* post-condition) -- so the upper-median is just the min of that
* remaining slice, one more linear scan instead of a second full
* selection pass. */
static double _median_select(double *a, int n) {
if (n % 2 == 1) {
return _kth_smallest(a, n, n / 2);
lib/Algorithm/Classifier/IsolationForest.pm view on Meta::CPAN
# buffer plus the shared idx/val coefficient buffers, reconstructs the
# ordinary nested-arrayref tree structure _build_tree/_build_node_c
# produce. li/ri fields hold the child's absolute node index, so this
# just follows them recursively from whatever index the caller says the
# root lives at. NOTE: _pack_tree numbers nodes DFS pre-order (root at
# 0), but build_forest_openmp_xs appends nodes post-order (children
# before parent), putting the root LAST -- the caller must pass the
# right root index for the buffer's origin.
sub _unpack_node {
my ( $nodes, $idx, $val, $node_i ) = @_;
my $off = $node_i * 6;
lib/Algorithm/Classifier/IsolationForest.pm view on Meta::CPAN
} ## end else [ if ( $type == 0 ) ]
} ## end sub _unpack_node
# Unpacks every tree in the three per-tree packed-buffer arrayrefs
# build_forest_openmp_xs returns into the ordinary nested tree shape.
# The C builder pushes nodes post-order (a node is recorded after both
# of its children), so each tree's root is the LAST node record, not
# index 0 as in _pack_tree's pre-order layout.
sub _unpack_forest {
my ( $nodes_list, $idx_list, $val_list ) = @_;
my @trees;
Algorithm-Closest-NetworkAddress
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
print << ".";
*** Could not find a version $ver or above for $pkg; skipping.
.
}
MY::postinstall( $pkg, $ver, $success ) if defined &MY::postinstall;
}
return $installed;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
print << ".";
*** Could not find a version $ver or above for $pkg; skipping.
.
}
MY::postinstall( $pkg, $ver, $success ) if defined &MY::postinstall;
}
return $installed;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
my %args = _make_args(@_);
no strict 'refs';
$PostambleUsed = 0;
local *MY::postamble = \&postamble unless defined &MY::postamble;
ExtUtils::MakeMaker::WriteMakefile(%args);
print << "." unless $PostambleUsed;
*** WARNING: Makefile written with customized MY::postamble() without
including contents from Module::AutoInstall::postamble() --
auto installation features disabled. Please contact the author.
.
return 1;
}
sub postamble {
$PostambleUsed = 1;
return << ".";
config :: installdeps
Algorithm-Cluster-Thresh
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-Cluster
view release on metacpan or search on metacpan
perl/Record.pm view on Meta::CPAN
}
}
my $gid = 0;
my $aid = 0;
my $filename = $jobname;
my $postfix = '';
my @geneindex;
my @expindex;
if ($gene_cluster_type eq 'h') {
# Hierarchical clustering result
@geneindex = _savetree(jobname => $jobname,
perl/Record.pm view on Meta::CPAN
my $kggfilename = $jobname . "_K_G$k.kgg";
@geneindex = $self->_savekmeans(filename => $kggfilename,
clusterids => \@$geneclusters,
order => \@gorder,
transpose => 0);
$postfix = "_G$k";
}
else {
@geneindex = sort { $gorder[$a] <=> $gorder[$b] } (0..$ngenes-1);
}
if ($exp_cluster_type eq 'h') {
perl/Record.pm view on Meta::CPAN
my $kagfilename = $jobname . "_K_A$k.kag";
@expindex = $self->_savekmeans(filename => $kagfilename,
clusterids => \@$expclusters,
order => \@eorder,
transpose => 1);
$postfix = $postfix . "_A$k";
}
else {
@expindex = sort { $eorder[$a] <=> $eorder[$b] } (0..$nexps-1);
}
$filename = $filename . $postfix;
$self->_savedata(jobname => $filename,
gid => $gid,
aid => $aid,
geneindex => \@geneindex,
expindex => \@expindex);
Algorithm-ConsistentHash-CHash
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-ConsistentHash-JumpHash
view release on metacpan or search on metacpan
init_i18nl14n||5.006000|
init_ids|||
init_interp|||
init_main_stash|||
init_perllib|||
init_postdump_symbols|||
init_predump_symbols|||
init_stacks||5.005000|
init_tm||5.007002|
inplace_aassign|||
instr|||n
Algorithm-ConsistentHash-Ketama
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
depend => 'HASH',
dist => 'HASH',
dynamic_lib=> 'HASH',
linkext => 'HASH',
macro => 'HASH',
postamble => 'HASH',
realclean => 'HASH',
test => 'HASH',
tool_autosplit => 'HASH',
# special cases where you can use makemaker_append
inc/Module/Install/Makefile.pm view on Meta::CPAN
my $preamble = $self->preamble
? "# Preamble by $top_class $top_version\n"
. $self->preamble
: '';
my $postamble = "# Postamble by $top_class $top_version\n"
. ($self->postamble || '');
local *MAKEFILE;
open MAKEFILE, "+< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
eval { flock MAKEFILE, LOCK_EX };
my $makefile = do { local $/; <MAKEFILE> };
inc/Module/Install/Makefile.pm view on Meta::CPAN
# XXX - This is currently unused; not sure if it breaks other MM-users
# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
seek MAKEFILE, 0, SEEK_SET;
truncate MAKEFILE, 0;
print MAKEFILE "$preamble$makefile$postamble" or die $!;
close MAKEFILE or die $!;
1;
}
inc/Module/Install/Makefile.pm view on Meta::CPAN
my ($self, $text) = @_;
$self->{preamble} = $text . $self->{preamble} if defined $text;
$self->{preamble};
}
sub postamble {
my ($self, $text) = @_;
$self->{postamble} ||= $self->admin->postamble;
$self->{postamble} .= $text if defined $text;
$self->{postamble}
}
1;
__END__
Algorithm-CouponCode
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-Cron
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-CurveFit-Simple
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-DecisionTree
view release on metacpan or search on metacpan
lib/Algorithm/DecisionTree.pm view on Meta::CPAN
Version 2.22, I had set the required version of Perl to 5.18.0 since that's what I
used for testing the module. Slaven's feedback in the form of the Bug report
C<#96547> resulted in Version 2.23 of the module. Version 2.25 further downshifts
the required version of Perl to 5.10.
On the basis of the report posted by Slaven at C<rt.cpan.org> regarding Version 2.27,
I am removing the Perl version restriction altogether from Version 2.30. Thanks
Slaven!
Version 3.43 was prompted by a bug report sent by Jan Trukenmüller regarding a
missing backslash in a regex in the C<csv_cleanup_needed()> function. Thanks, Jan!
Algorithm-Dependency-MapReduce
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
my $preamble = $self->preamble
? "# Preamble by $top_class $top_version\n"
. $self->preamble
: '';
my $postamble = "# Postamble by $top_class $top_version\n"
. ($self->postamble || '');
local *MAKEFILE;
open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
my $makefile = do { local $/; <MAKEFILE> };
close MAKEFILE or die $!;
inc/Module/Install/Makefile.pm view on Meta::CPAN
# XXX - This is currently unused; not sure if it breaks other MM-users
# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
print MAKEFILE "$preamble$makefile$postamble" or die $!;
close MAKEFILE or die $!;
1;
}
inc/Module/Install/Makefile.pm view on Meta::CPAN
my ($self, $text) = @_;
$self->{preamble} = $text . $self->{preamble} if defined $text;
$self->{preamble};
}
sub postamble {
my ($self, $text) = @_;
$self->{postamble} ||= $self->admin->postamble;
$self->{postamble} .= $text if defined $text;
$self->{postamble}
}
1;
__END__
Algorithm-Dependency-Source-DBI
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
my $preamble = $self->preamble
? "# Preamble by $top_class $top_version\n"
. $self->preamble
: '';
my $postamble = "# Postamble by $top_class $top_version\n"
. ($self->postamble || '');
local *MAKEFILE;
open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
my $makefile = do { local $/; <MAKEFILE> };
close MAKEFILE or die $!;
inc/Module/Install/Makefile.pm view on Meta::CPAN
# XXX - This is currently unused; not sure if it breaks other MM-users
# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
print MAKEFILE "$preamble$makefile$postamble" or die $!;
close MAKEFILE or die $!;
1;
}
inc/Module/Install/Makefile.pm view on Meta::CPAN
my ($self, $text) = @_;
$self->{preamble} = $text . $self->{preamble} if defined $text;
$self->{preamble};
}
sub postamble {
my ($self, $text) = @_;
$self->{postamble} ||= $self->admin->postamble;
$self->{postamble} .= $text if defined $text;
$self->{postamble}
}
1;
__END__
Algorithm-Dependency
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-DependencySolver
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-Diff-Callback
view release on metacpan or search on metacpan
3. You may otherwise modify your copy of this Package in any way, provided that
you insert a prominent notice in each changed file stating how and when you
changed that file, and provided that you do at least ONE of the following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or an
equivalent medium, or placing the modifications on a major archive site
such as ftp.uu.net, or by allowing the Copyright Holder to include your
modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-Diff-JSON
view release on metacpan or search on metacpan
ARTISTIC.txt view on Meta::CPAN
that you insert a prominent notice in each changed file stating how and
when you changed that file, and provided that you do at least ONE of the
following:
a) place your modifications in the Public Domain or otherwise make them
Freely Available, such as by posting said modifications to Usenet or
an equivalent medium, or placing the modifications on a major archive
site such as uunet.uu.net, or by allowing the Copyright Holder to include
your modifications in the Standard Version of the Package.
b) use the modified Package only within your corporation or organization.
Algorithm-Diff-XS
view release on metacpan or search on metacpan
inc/Module/Install/Makefile.pm view on Meta::CPAN
my $preamble = $self->preamble
? "# Preamble by $top_class $top_version\n"
. $self->preamble
: '';
my $postamble = "# Postamble by $top_class $top_version\n"
. ($self->postamble || '');
local *MAKEFILE;
open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
my $makefile = do { local $/; <MAKEFILE> };
close MAKEFILE or die $!;
inc/Module/Install/Makefile.pm view on Meta::CPAN
# XXX - This is currently unused; not sure if it breaks other MM-users
# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
print MAKEFILE "$preamble$makefile$postamble" or die $!;
close MAKEFILE or die $!;
1;
}
inc/Module/Install/Makefile.pm view on Meta::CPAN
my ($self, $text) = @_;
$self->{preamble} = $text . $self->{preamble} if defined $text;
$self->{preamble};
}
sub postamble {
my ($self, $text) = @_;
$self->{postamble} ||= $self->admin->postamble;
$self->{postamble} .= $text if defined $text;
$self->{postamble}
}
1;
__END__
( run in 1.563 second using v1.01-cache-2.11-cpan-acf6aa7dc9e )