Result:
found 101 distributions and 122 files matching your query !
( run in 0.493 )
Net-ISP-Balance
view release on metacpan or search on metacpan
if (-e "$install_etc/$strip") {
print STDERR "skip $install_etc/$strip: already installed\n";
unlink "./blib/$File::Find::name";
return;
}
$self->copy_if_modified(from => $File::Find::name,
to_dir => './blib');
}},
'./etc'
);
}
OpenGuides
view release on metacpan or search on metacpan
lib/OpenGuides/Build.pm view on Meta::CPAN
} else {
if ( $script_filename ne "wiki.cgi" ) {
File::Copy::copy("wiki.cgi", $script_filename)
or die "Can't copy('wiki.cgi', '$script_filename'): $!";
}
my $copy = $self->copy_if_modified(
$script_filename,
$install_directory
);
if ( $copy ) {
$self->fix_shebang_line($copy);
lib/OpenGuides/Build.pm view on Meta::CPAN
foreach my $script ( @extra_scripts ) {
if ( $FAKE ) {
print "$script -> $install_directory/$script (FAKE)\n";
} else {
my $copy = $self->copy_if_modified( $script, $install_directory );
if ( $copy ) {
$self->fix_shebang_line($copy);
$self->make_executable($copy) unless $script eq "wiki.conf";
$self->add_custom_lib_path( $copy, $custom_lib_path )
if $custom_lib_path;
lib/OpenGuides/Build.pm view on Meta::CPAN
print "Installing templates to $template_path:\n";
foreach my $template ( @templates ) {
if ( $FAKE ) {
print "templates/$template -> $template_path/$template (FAKE)\n";
} else {
$self->copy_if_modified(from => "templates/$template", to_dir => $template_path, flatten => 1)
or print "Skipping $template_path/$template (unchanged)\n";
}
}
if ( $FAKE ) {
print "Making $custom_template_path.\n";
lib/OpenGuides/Build.pm view on Meta::CPAN
print "Installing static files to $static_path:\n";
foreach my $static_file ( @static_files ) {
if ( $FAKE ) {
print "static/$static_file -> $static_path/$static_file (FAKE)\n";
} else {
$self->copy_if_modified(from => "static/$static_file", to_dir => $static_path, flatten => 1)
or print "Skipping $static_path/$static_file (unchanged)\n";
}
}
}
Padre
view release on metacpan or search on metacpan
lib/Padre/PluginBuilder.pm view on Meta::CPAN
$module =~ s/^Padre::Plugin:://;
$module =~ s/::/-/g;
my $plugin = "$module.par";
require Padre;
return $self->copy_if_modified(
from => $plugin,
to_dir => Padre::Constant::PLUGIN_DIR,
);
}
Pangloss
view release on metacpan or search on metacpan
sub process_web_files {
my $self = shift;
my $files = $self->find_web_files;
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$self->copy_if_modified(from => $from, to => $to );
}
return $self;
}
sub process_conf_files {
my $self = shift;
my $files = $self->find_conf_files;
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$self->copy_if_modified(from => $from, to => $to );
}
return $self;
}
sub find_web_files { shift->find_all_files_no_cvs( 'web' ) }
Parse-STDF
view release on metacpan or search on metacpan
$self->up_to_date($cfile, $pmfile);
}
print "swig: $file -> $cfile\n" if $verb;
$self->do_system('swig', '-o', $cfile, '-perl', '-outdir',
$lib, @swig_flags, $file);
$self->copy_if_modified(from => $pmfile, to_dir => 'blib');
}
return 1;
}
sub process_c_files {
my $self = shift;
extra_compiler_flags => $self->config('extra_compiler_flags'));
print "CB compiled: $obj\n" if $verb;
my $lib = $cb->link(objects => $obj,
extra_linker_flags => $self->config('extra_linker_flags'));
print "CB generated: $lib\n" if $verb;
$self->copy_if_modified(from => $lib, to => $libname);
}
return 1;
}
!);
#
Pinwheel
view release on metacpan or search on metacpan
lib/Module/Build/PinwheelApp.pm view on Meta::CPAN
sub copy_all_by_type {
my ($self, $dir) = @_;
my $files = $self->find_pinwheel_files($dir);
foreach my $file (@$files) {
next if $file =~ /\/\./;
$self->copy_if_modified(from => $file, to => File::Spec->catfile($self->blib, $file) );
}
}
Plack-App-MCCS
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
$self->autosplit_file($_, $blib) for ref($split) ? @$split : ($split);
}
foreach my $element (@{$self->build_elements}) {
my $method = "process_${element}_files";
$method = "process_files_by_extension" unless $self->can($method);
$self->$method($element);
}
$self->depends_on('config_data');
}
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
$self->log_info("Building " . $self->dist_name . "\n");
$self->depends_on('code');
$self->depends_on('docs');
}
sub process_files_by_extension {
my ($self, $ext) = @_;
my $method = "find_${ext}_files";
my $files = $self->can($method) ? $self->$method() : $self->_find_file_by_type($ext, 'lib');
foreach my $file (sort keys %$files) {
$self->copy_if_modified(from => $file, to => File::Spec->catfile($self->blib, $files->{$file}) );
}
}
sub process_support_files {
my $self = shift;
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
# root for all File::ShareDir paths
my $share_prefix = File::Spec->catdir($self->blib, qw/lib auto share/);
# copy all share files to blib
foreach my $file (sort keys %$files) {
$self->copy_if_modified(
from => $file, to => File::Spec->catfile( $share_prefix, $files->{$file} )
);
}
}
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
croak 'Can\'t build xs files under --pureperl-only' if %$files && $self->pureperl_only;
foreach my $from (sort keys %$files) {
my $to = $files->{$from};
unless ($from eq $to) {
$self->add_to_cleanup($to);
$self->copy_if_modified( from => $from, to => $to );
}
$self->process_xs($to);
}
}
sub process_pod_files { shift()->process_files_by_extension(shift()) }
sub process_pm_files { shift()->process_files_by_extension(shift()) }
sub process_script_files {
my $self = shift;
my $files = $self->find_script_files;
return unless keys %$files;
my $script_dir = File::Spec->catdir($self->blib, 'script');
File::Path::mkpath( $script_dir );
foreach my $file (sort keys %$files) {
my $result = $self->copy_if_modified($file, $script_dir, 'flatten') or next;
$self->fix_shebang_line($result) unless $self->is_vmsish;
$self->make_executable($result);
}
}
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
File::Spec->rel2abs( $dir ) );
my $to_file =
File::Spec->catfile( $ppm, 'blib',
exists( $types{$type} ) ? $types{$type} : $type,
$rel_file );
$self->copy_if_modified( from => $file, to => $to_file );
}
}
foreach my $type ( qw(bin lib) ) {
$self->htmlify_pods( $type, File::Spec->catdir($ppm, 'blib', 'html') );
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
$self->log_info("Creating $dist_dir\n");
$self->add_to_cleanup($dist_dir);
foreach my $file (sort keys %$dist_files) {
next if $file =~ m{^MYMETA\.}; # Double check that we skip MYMETA.*
my $new = $self->copy_if_modified(from => $file, to_dir => $dist_dir, verbose => 0);
}
$self->do_create_bundle_inc if @{$self->bundle_inc};
$self->_sign_dir($dist_dir) if $self->{properties}{sign};
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
warn "'Argument list' was 'too long', env lengths are $env_entries";
}
return !$status;
}
sub copy_if_modified {
my $self = shift;
my %args = (@_ > 3
? ( @_ )
: ( from => shift, to_dir => shift, flatten => shift )
);
$args{verbose} = !$self->quiet
unless exists $args{verbose};
my $file = $args{from};
unless (defined $file and length $file) {
die "No 'from' parameter given to copy_if_modified";
}
# makes no sense to replicate an absolute path, so assume flatten
$args{flatten} = 1 if File::Spec->file_name_is_absolute( $file );
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
} elsif (defined $args{to_dir} and length $args{to_dir}) {
$to_path = File::Spec->catfile( $args{to_dir}, $args{flatten}
? File::Basename::basename($file)
: $file );
} else {
die "No 'to' or 'to_dir' parameter given to copy_if_modified";
}
return if $self->up_to_date($file, $to_path); # Already fresh
{
Pod-Simple-XHTML-BlendedCode
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
$self->autosplit_file($_, $blib) for ref($split) ? @$split : ($split);
}
foreach my $element (@{$self->build_elements}) {
my $method = "process_${element}_files";
$method = "process_files_by_extension" unless $self->can($method);
$self->$method($element);
}
$self->depends_on('config_data');
}
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
$self->log_info("Building " . $self->dist_name . "\n");
$self->depends_on('code');
$self->depends_on('docs');
}
sub process_files_by_extension {
my ($self, $ext) = @_;
my $method = "find_${ext}_files";
my $files = $self->can($method) ? $self->$method() : $self->_find_file_by_type($ext, 'lib');
while (my ($file, $dest) = each %$files) {
$self->copy_if_modified(from => $file, to => File::Spec->catfile($self->blib, $dest) );
}
}
sub process_support_files {
my $self = shift;
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
# root for all File::ShareDir paths
my $share_prefix = File::Spec->catdir($self->blib, qw/lib auto share/);
# copy all share files to blib
while (my ($file, $dest) = each %$files) {
$self->copy_if_modified(
from => $file, to => File::Spec->catfile( $share_prefix, $dest )
);
}
}
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
my $self = shift;
my $files = $self->find_xs_files;
while (my ($from, $to) = each %$files) {
unless ($from eq $to) {
$self->add_to_cleanup($to);
$self->copy_if_modified( from => $from, to => $to );
}
$self->process_xs($to);
}
}
sub process_pod_files { shift()->process_files_by_extension(shift()) }
sub process_pm_files { shift()->process_files_by_extension(shift()) }
sub process_script_files {
my $self = shift;
my $files = $self->find_script_files;
return unless keys %$files;
my $script_dir = File::Spec->catdir($self->blib, 'script');
File::Path::mkpath( $script_dir );
foreach my $file (keys %$files) {
my $result = $self->copy_if_modified($file, $script_dir, 'flatten') or next;
$self->fix_shebang_line($result) unless $self->is_vmsish;
$self->make_executable($result);
}
}
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
File::Spec->rel2abs( $dir ) );
my $to_file =
File::Spec->catfile( $ppm, 'blib',
exists( $types{$type} ) ? $types{$type} : $type,
$rel_file );
$self->copy_if_modified( from => $file, to => $to_file );
}
}
foreach my $type ( qw(bin lib) ) {
local $self->{properties}{html_css} = 'Active.css';
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
$self->delete_filetree($dist_dir);
$self->log_info("Creating $dist_dir\n");
$self->add_to_cleanup($dist_dir);
foreach my $file (keys %$dist_files) {
my $new = $self->copy_if_modified(from => $file, to_dir => $dist_dir, verbose => 0);
}
$self->do_create_bundle_inc if @{$self->bundle_inc};
$self->_sign_dir($dist_dir) if $self->{properties}{sign};
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
warn "'Argument list' was 'too long', env lengths are $env_entries";
}
return !$status;
}
sub copy_if_modified {
my $self = shift;
my %args = (@_ > 3
? ( @_ )
: ( from => shift, to_dir => shift, flatten => shift )
);
$args{verbose} = !$self->quiet
unless exists $args{verbose};
my $file = $args{from};
unless (defined $file and length $file) {
die "No 'from' parameter given to copy_if_modified";
}
# makes no sense to replicate an absolute path, so assume flatten
$args{flatten} = 1 if File::Spec->file_name_is_absolute( $file );
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
} elsif (defined $args{to_dir} and length $args{to_dir}) {
$to_path = File::Spec->catfile( $args{to_dir}, $args{flatten}
? File::Basename::basename($file)
: $file );
} else {
die "No 'to' or 'to_dir' parameter given to copy_if_modified";
}
return if $self->up_to_date($file, $to_path); # Already fresh
{
REST-Neo4p
view release on metacpan or search on metacpan
}
# use the dist-version-from .pm's .md as README.md
if ($self->dist_version_from) {
my $mdf = $self->dist_version_from;
$mdf =~ s/\.pm/\.md/;
$self->copy_if_modified( from => $mdf, to => 'README.md' );
}
}
});
RogersMine
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
$self->autosplit_file($_, $blib) for ref($split) ? @$split : ($split);
}
foreach my $element (@{$self->build_elements}) {
my $method = "process_${element}_files";
$method = "process_files_by_extension" unless $self->can($method);
$self->$method($element);
}
$self->depends_on('config_data');
}
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
$self->log_info("Building " . $self->dist_name . "\n");
$self->depends_on('code');
$self->depends_on('docs');
}
sub process_files_by_extension {
my ($self, $ext) = @_;
my $method = "find_${ext}_files";
my $files = $self->can($method) ? $self->$method() : $self->_find_file_by_type($ext, 'lib');
foreach my $file (sort keys %$files) {
$self->copy_if_modified(from => $file, to => File::Spec->catfile($self->blib, $files->{$file}) );
}
}
sub process_support_files {
my $self = shift;
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
# root for all File::ShareDir paths
my $share_prefix = File::Spec->catdir($self->blib, qw/lib auto share/);
# copy all share files to blib
foreach my $file (sort keys %$files) {
$self->copy_if_modified(
from => $file, to => File::Spec->catfile( $share_prefix, $files->{$file} )
);
}
}
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
croak 'Can\'t build xs files under --pureperl-only' if %$files && $self->pureperl_only;
foreach my $from (sort keys %$files) {
my $to = $files->{$from};
unless ($from eq $to) {
$self->add_to_cleanup($to);
$self->copy_if_modified( from => $from, to => $to );
}
$self->process_xs($to);
}
}
sub process_pod_files { shift()->process_files_by_extension(shift()) }
sub process_pm_files { shift()->process_files_by_extension(shift()) }
sub process_script_files {
my $self = shift;
my $files = $self->find_script_files;
return unless keys %$files;
my $script_dir = File::Spec->catdir($self->blib, 'script');
File::Path::mkpath( $script_dir );
foreach my $file (sort keys %$files) {
my $result = $self->copy_if_modified($file, $script_dir, 'flatten') or next;
$self->fix_shebang_line($result) unless $self->is_vmsish;
$self->make_executable($result);
}
}
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
File::Spec->rel2abs( $dir ) );
my $to_file =
File::Spec->catfile( $ppm, 'blib',
exists( $types{$type} ) ? $types{$type} : $type,
$rel_file );
$self->copy_if_modified( from => $file, to => $to_file );
}
}
foreach my $type ( qw(bin lib) ) {
$self->htmlify_pods( $type, File::Spec->catdir($ppm, 'blib', 'html') );
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
$self->log_info("Creating $dist_dir\n");
$self->add_to_cleanup($dist_dir);
foreach my $file (sort keys %$dist_files) {
next if $file =~ m{^MYMETA\.}; # Double check that we skip MYMETA.*
my $new = $self->copy_if_modified(from => $file, to_dir => $dist_dir, verbose => 0);
}
$self->do_create_bundle_inc if @{$self->bundle_inc};
$self->_sign_dir($dist_dir) if $self->{properties}{sign};
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
warn "'Argument list' was 'too long', env lengths are $env_entries";
}
return !$status;
}
sub copy_if_modified {
my $self = shift;
my %args = (@_ > 3
? ( @_ )
: ( from => shift, to_dir => shift, flatten => shift )
);
$args{verbose} = !$self->quiet
unless exists $args{verbose};
my $file = $args{from};
unless (defined $file and length $file) {
die "No 'from' parameter given to copy_if_modified";
}
# makes no sense to replicate an absolute path, so assume flatten
$args{flatten} = 1 if File::Spec->file_name_is_absolute( $file );
local/lib/perl5/Module/Build/Base.pm view on Meta::CPAN
} elsif (defined $args{to_dir} and length $args{to_dir}) {
$to_path = File::Spec->catfile( $args{to_dir}, $args{flatten}
? File::Basename::basename($file)
: $file );
} else {
die "No 'to' or 'to_dir' parameter given to copy_if_modified";
}
return if $self->up_to_date($file, $to_path); # Already fresh
{
Rudesind
view release on metacpan or search on metacpan
inc/Rudesind/Build.pm view on Meta::CPAN
my $to =
File::Spec->catfile( $self->notes('Rudesind_root'),
$dir,
File::Basename::basename($file) );
$self->copy_if_modified( from => $file,
to => $to,
flatten => 1,
);
}
}
SMOP
view release on metacpan or search on metacpan
inc/MyBuilder.pm view on Meta::CPAN
# copy headers so that they can be used when compiling generated files
for my $header (@{$self->rscan_dir(catdir($module,"src"),qr/\.h$/)}) {
my $dest = $header;
$dest =~ s/^/$BUILDDIR\//;
$self->copy_if_modified( from => $header, to => $dest);
}
push(@INCLUDE,"$module/include");
SOOT
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
$self->autosplit_file($_, $blib) for ref($split) ? @$split : ($split);
}
foreach my $element (@{$self->build_elements}) {
my $method = "process_${element}_files";
$method = "process_files_by_extension" unless $self->can($method);
$self->$method($element);
}
$self->depends_on('config_data');
}
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
$self->log_info("Building " . $self->dist_name . "\n");
$self->depends_on('code');
$self->depends_on('docs');
}
sub process_files_by_extension {
my ($self, $ext) = @_;
my $method = "find_${ext}_files";
my $files = $self->can($method) ? $self->$method() : $self->_find_file_by_type($ext, 'lib');
while (my ($file, $dest) = each %$files) {
$self->copy_if_modified(from => $file, to => File::Spec->catfile($self->blib, $dest) );
}
}
sub process_support_files {
my $self = shift;
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
# root for all File::ShareDir paths
my $share_prefix = File::Spec->catdir($self->blib, qw/lib auto share/);
# copy all share files to blib
while (my ($file, $dest) = each %$files) {
$self->copy_if_modified(
from => $file, to => File::Spec->catfile( $share_prefix, $dest )
);
}
}
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
my $self = shift;
my $files = $self->find_xs_files;
while (my ($from, $to) = each %$files) {
unless ($from eq $to) {
$self->add_to_cleanup($to);
$self->copy_if_modified( from => $from, to => $to );
}
$self->process_xs($to);
}
}
sub process_pod_files { shift()->process_files_by_extension(shift()) }
sub process_pm_files { shift()->process_files_by_extension(shift()) }
sub process_script_files {
my $self = shift;
my $files = $self->find_script_files;
return unless keys %$files;
my $script_dir = File::Spec->catdir($self->blib, 'script');
File::Path::mkpath( $script_dir );
foreach my $file (keys %$files) {
my $result = $self->copy_if_modified($file, $script_dir, 'flatten') or next;
$self->fix_shebang_line($result) unless $self->is_vmsish;
$self->make_executable($result);
}
}
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
File::Spec->rel2abs( $dir ) );
my $to_file =
File::Spec->catfile( $ppm, 'blib',
exists( $types{$type} ) ? $types{$type} : $type,
$rel_file );
$self->copy_if_modified( from => $file, to => $to_file );
}
}
foreach my $type ( qw(bin lib) ) {
local $self->{properties}{html_css} = 'Active.css';
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
$self->delete_filetree($dist_dir);
$self->log_info("Creating $dist_dir\n");
$self->add_to_cleanup($dist_dir);
foreach my $file (keys %$dist_files) {
my $new = $self->copy_if_modified(from => $file, to_dir => $dist_dir, verbose => 0);
}
$self->do_create_bundle_inc if @{$self->bundle_inc};
$self->_sign_dir($dist_dir) if $self->{properties}{sign};
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
warn "'Argument list' was 'too long', env lengths are $env_entries";
}
return !$status;
}
sub copy_if_modified {
my $self = shift;
my %args = (@_ > 3
? ( @_ )
: ( from => shift, to_dir => shift, flatten => shift )
);
$args{verbose} = !$self->quiet
unless exists $args{verbose};
my $file = $args{from};
unless (defined $file and length $file) {
die "No 'from' parameter given to copy_if_modified";
}
# makes no sense to replicate an absolute path, so assume flatten
$args{flatten} = 1 if File::Spec->file_name_is_absolute( $file );
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
} elsif (defined $args{to_dir} and length $args{to_dir}) {
$to_path = File::Spec->catfile( $args{to_dir}, $args{flatten}
? File::Basename::basename($file)
: $file );
} else {
die "No 'to' or 'to_dir' parameter given to copy_if_modified";
}
return if $self->up_to_date($file, $to_path); # Already fresh
{
SVN-Notify
view release on metacpan or search on metacpan
my $to_dir = $self->localize_file_path("t/scripts");
for my $base (qw(testsvnlook testsendmail)) {
my $script = "$to_dir/$base";
push @scripts, $self->localize_file_path($script);
my $orig = $self->localize_file_path("t/bin/$base");
$self->copy_if_modified(
from => $orig,
to_dir => $to_dir,
flatten => 1,
);
}
Siesta
view release on metacpan or search on metacpan
lib/Siesta/Build.pm view on Meta::CPAN
my @files = $self->_find_extras;
print "installing extras to $path\n";
for (@files) {
$FAKE
? print "$_ -> $path/$_ (FAKE)\n"
: $self->copy_if_modified($_, $path);
}
}
sub ACTION_cover {
my $self = shift;
Silki
view release on metacpan or search on metacpan
inc/Silki/Build.pm view on Meta::CPAN
or return;
for my $file ( grep { -f } @{ $self->rscan_dir('share') } ) {
( my $shareless = $file ) =~ s{share[/\\]}{};
$self->copy_if_modified(
from => $file,
to => File::Spec->catfile( $share_dir, $shareless ),
);
}
Starlight
view release on metacpan or search on metacpan
inc/Module/Build/My.pm view on Meta::CPAN
# Replace *.pl files with ones without suffix
sub process_script_files {
my $self = shift;
local *copy_if_modified = sub {
my $self = shift;
my %args = (@_ > 3 ? (@_) : (from => shift, to_dir => shift, flatten => shift));
# Only for script/*.pl files
if ($args{from} =~ /\bscript\/.*\.pl$/ and $args{to_dir}) {
my (undef, undef, $file) = File::Spec->splitpath($args{from});
$file =~ s/\.pl$//;
$args{to} = File::Spec->catfile($args{to_dir}, $file);
delete $args{to_dir};
return $self->SUPER::copy_if_modified(%args);
}
return $self->SUPER::copy_if_modified(%args);
};
$self->SUPER::process_script_files;
}
Starlink-AST
view release on metacpan or search on metacpan
or ((grep {$_ eq $dirname} ('', qw/src wcslib/)) and (not $exclude{$file}) and (
$include{$file}
or $file =~ '^[^f].*\.c$'
or $file =~ '^.*\.h$'
))) {
$self->copy_if_modified(from => $path, to => File::Spec->catfile('ast', @dir, $file));
}
}
}
sub ACTION_realclean {
my $self = shift;
Stem
view release on metacpan or search on metacpan
BuildStem.pm view on Meta::CPAN
$self->blib,
$file =~ /_demo$/ ? 'demo' : 'bin' ) ;
File::Path::mkpath( $bin_dir );
my $result = $self->copy_if_modified(
$file, $bin_dir, 'flatten') or next;
#print "COPY $file\n" ;
$self->fix_run_stem($result);
$self->fix_demos($result);
TAP-Parser-SourceHandler-MyTAP
view release on metacpan or search on metacpan
# Copy the test scripts and then set the shebang line and make
# sure that they're executable.
my $to_dir = $self->localize_file_path("t/scripts");
my $from = $self->localize_file_path("t/bin/mysql");
my $to = $self->localize_file_path("$to_dir/mysql");
$self->copy_if_modified(
from => $from,
to_dir => $to_dir,
flatten => 1,
);
$self->fix_shebang_line($to);
TAP-Parser-SourceHandler-pgTAP
view release on metacpan or search on metacpan
# Copy the test scripts and then set the shebang line and make
# sure that they're executable.
my $to_dir = $self->localize_file_path("t/scripts");
my $from = $self->localize_file_path("t/bin/psql");
my $to = $self->localize_file_path("$to_dir/psql");
$self->copy_if_modified(
from => $from,
to_dir => $to_dir,
flatten => 1,
);
$self->fix_shebang_line($to);
Test-Perl-Dist
view release on metacpan or search on metacpan
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
$self->autosplit_file($_, $blib) for ref($split) ? @$split : ($split);
}
foreach my $element (@{$self->build_elements}) {
my $method = "process_${element}_files";
$method = "process_files_by_extension" unless $self->can($method);
$self->$method($element);
}
$self->depends_on('config_data');
}
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
$self->log_info("Building " . $self->dist_name . "\n");
$self->depends_on('code');
$self->depends_on('docs');
}
sub process_files_by_extension {
my ($self, $ext) = @_;
my $method = "find_${ext}_files";
my $files = $self->can($method) ? $self->$method() : $self->_find_file_by_type($ext, 'lib');
while (my ($file, $dest) = each %$files) {
$self->copy_if_modified(from => $file, to => File::Spec->catfile($self->blib, $dest) );
}
}
sub process_support_files {
my $self = shift;
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
# root for all File::ShareDir paths
my $share_prefix = File::Spec->catdir($self->blib, qw/lib auto share/);
# copy all share files to blib
while (my ($file, $dest) = each %$files) {
$self->copy_if_modified(
from => $file, to => File::Spec->catfile( $share_prefix, $dest )
);
}
}
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
my $self = shift;
my $files = $self->find_xs_files;
while (my ($from, $to) = each %$files) {
unless ($from eq $to) {
$self->add_to_cleanup($to);
$self->copy_if_modified( from => $from, to => $to );
}
$self->process_xs($to);
}
}
sub process_pod_files { shift()->process_files_by_extension(shift()) }
sub process_pm_files { shift()->process_files_by_extension(shift()) }
sub process_script_files {
my $self = shift;
my $files = $self->find_script_files;
return unless keys %$files;
my $script_dir = File::Spec->catdir($self->blib, 'script');
File::Path::mkpath( $script_dir );
foreach my $file (keys %$files) {
my $result = $self->copy_if_modified($file, $script_dir, 'flatten') or next;
$self->fix_shebang_line($result) unless $self->is_vmsish;
$self->make_executable($result);
}
}
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
File::Spec->rel2abs( $dir ) );
my $to_file =
File::Spec->catfile( $ppm, 'blib',
exists( $types{$type} ) ? $types{$type} : $type,
$rel_file );
$self->copy_if_modified( from => $file, to => $to_file );
}
}
foreach my $type ( qw(bin lib) ) {
local $self->{properties}{html_css} = 'Active.css';
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
$self->delete_filetree($dist_dir);
$self->log_info("Creating $dist_dir\n");
$self->add_to_cleanup($dist_dir);
foreach my $file (keys %$dist_files) {
my $new = $self->copy_if_modified(from => $file, to_dir => $dist_dir, verbose => 0);
}
$self->do_create_bundle_inc if @{$self->bundle_inc};
$self->_sign_dir($dist_dir) if $self->{properties}{sign};
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
warn "'Argument list' was 'too long', env lengths are $env_entries";
}
return !$status;
}
sub copy_if_modified {
my $self = shift;
my %args = (@_ > 3
? ( @_ )
: ( from => shift, to_dir => shift, flatten => shift )
);
$args{verbose} = !$self->quiet
unless exists $args{verbose};
my $file = $args{from};
unless (defined $file and length $file) {
die "No 'from' parameter given to copy_if_modified";
}
# makes no sense to replicate an absolute path, so assume flatten
$args{flatten} = 1 if File::Spec->file_name_is_absolute( $file );
inc/inc_Module-Build/Module/Build/Base.pm view on Meta::CPAN
} elsif (defined $args{to_dir} and length $args{to_dir}) {
$to_path = File::Spec->catfile( $args{to_dir}, $args{flatten}
? File::Basename::basename($file)
: $file );
} else {
die "No 'to' or 'to_dir' parameter given to copy_if_modified";
}
return if $self->up_to_date($file, $to_path); # Already fresh
{
Text-BibTeX
view release on metacpan or search on metacpan
inc/MyBuilder.pm view on Meta::CPAN
$self->dispatch("create_binaries");
$self->dispatch("create_tests");
$self->dispatch("compile_xscode");
$self->copy_if_modified( from => 'btparse/src/btparse.h',
to_dir => "blib/usrinclude",
flatten => 1);
$self->SUPER::ACTION_code;
}
inc/MyBuilder.pm view on Meta::CPAN
extra_linker_flags => $extra_linker_flags);
}
}
for my $file (@toinstall) {
$self->copy_if_modified( from => $file,
to_dir => "blib/bin",
flatten => 1);
}
}
inc/MyBuilder.pm view on Meta::CPAN
}
my $libdir = catdir($self->blib, 'usrlib');
mkpath( $libdir, 0, 0777 ) unless -d $libdir;
$self->copy_if_modified( from => $libfile,
to_dir => $libdir,
flatten => 1 );
}
sub ACTION_test {
Thrall
view release on metacpan or search on metacpan
inc/Module/Build/My.pm view on Meta::CPAN
# Replace *.pl files with ones without suffix
sub process_script_files {
my $self = shift;
local *copy_if_modified = sub {
my $self = shift;
my %args = (@_ > 3 ? (@_) : (from => shift, to_dir => shift, flatten => shift));
# Only for script/*.pl files
if ($args{from} =~ /\bscript\/.*\.pl$/ and $args{to_dir}) {
my (undef, undef, $file) = File::Spec->splitpath($args{from});
$file =~ s/\.pl$//;
$args{to} = File::Spec->catfile($args{to_dir}, $file);
delete $args{to_dir};
return $self->SUPER::copy_if_modified(%args);
}
return $self->SUPER::copy_if_modified(%args);
};
$self->SUPER::process_script_files;
}
Unicode-Collate-Standard-V3_1_1
view release on metacpan or search on metacpan
sub process_extra_files {
my $self = shift;
my $files = $self->find_extra_files;
foreach my $file (@$files) {
$self->copy_if_modified($file, 'blib');
}
}
sub find_extra_files {
my $self = shift;
Win32-CommandLine
view release on metacpan or search on metacpan
File::Spec->rel2abs( $dir ) );
my $to_file =
File::Spec->catdir( $ppm, 'blib',
exists( $types{$type} ) ? $types{$type} : $type,
$rel_file );
$self->copy_if_modified( from => $file, to => $to_file );
}
}
foreach my $type ( qw(bin lib) ) {
local $self->{properties}{html_css} = 'Active.css';
XAS-Collector
view release on metacpan or search on metacpan
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->fix_shebang_line($result) unless $self->is_vmsish;
$self->make_executable($result);
}
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->make_executable($result);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->make_executable($result);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
XAS-Logmon
view release on metacpan or search on metacpan
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->fix_shebang_line($result) unless $self->is_vmsish;
$self->make_executable($result);
}
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$self->make_executable($from);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$self->make_executable($from);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
XAS-Model
view release on metacpan or search on metacpan
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->fix_shebang_line($result) unless $self->is_vmsish;
$self->make_executable($result);
}
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->make_executable($result);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->make_executable($result);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
XAS
view release on metacpan or search on metacpan
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->fix_shebang_line($result) unless $self->is_vmsish;
$self->make_executable($result);
}
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->make_executable($from);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to) or next;
$self->make_executable($result);
}
return $self;
mkdir $dir unless (-e $dir);
while (my ($from, $to) = each %$files) {
$to = catfile('blib', $to);
$result = $self->copy_if_modified(from => $from, to => $to);
}
return $self;
( run in 0.493 second using v1.01-cache-2.11-cpan-0d8aa00de5b )