Result:
found 101 distributions and 122 files matching your query !
( run in 0.372 )
XAS-Service
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;
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-Spooler
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-Supervisor
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;
XS-Parse-Keyword
view release on metacpan or search on metacpan
inc/Module/Build/with/XSTests.pm view on Meta::CPAN
foreach my $from ( sort keys %$testxsfiles ) {
my $to = $testxsfiles->{$from};
if( $to ne $from ) {
$self->add_to_cleanup( $to );
$self->copy_if_modified( from => $from, to => $to );
}
$self->process_xs( $to );
}
}
XS-Parse-Sublike
view release on metacpan or search on metacpan
inc/Module/Build/with/XSTests.pm view on Meta::CPAN
foreach my $from ( sort keys %$testxsfiles ) {
my $to = $testxsfiles->{$from};
if( $to ne $from ) {
$self->add_to_cleanup( $to );
$self->copy_if_modified( from => $from, to => $to );
}
$self->process_xs( $to );
}
}
Xacobeo
view release on metacpan or search on metacpan
inc/MyBuilder.pm view on Meta::CPAN
foreach my $entry (@{ $self->rscan_dir('share') }) {
# Skip hidden entries or folders
next if $entry =~ m,(^|/)\., or -d $entry;
$self->copy_if_modified(
from => $entry,
to => catfile($self->blib, $entry)
);
}
inc/MyBuilder.pm view on Meta::CPAN
# Copy the XS.xs and the typemap file to the lib folder. This way
# Module::Build will handle the compilation and installation of the XS
# library.
foreach my $file ('XS.xs', 'libxml2-perl.typemap') {
$self->copy_if_modified(
from => catfile('xs', $file),
to => catfile('lib', 'Xacobeo', $file),
);
}
YATT-Lite
view release on metacpan or search on metacpan
misc/cpan/MyBuilder.pm view on Meta::CPAN
my ($self, $from, $dest) = @_;
my $to = $self->catfile($self->blib, $dest);
if ($ENV{DEBUG_BUILD}) {
print STDERR "$from => $to\n";
} else {
$self->copy_if_modified(from => $from, to => $to);
}
}
sub prune {
$File::Find::prune = 1;
misc/cpan/MyBuilder.pm view on Meta::CPAN
$build->process_${element}_files($element);
$build->_find_file_by_...;
$self->copy_if_modified(from => $fn, to => $self->catfile($self->blib, $dest));
ExtUtils::Install::install(
$self->install_map, $self->verbose, 0, $self->{args}{uninst}||0
);
Zoidberg
view release on metacpan or search on metacpan
b/ModuleBuildZoid.pm view on Meta::CPAN
my $blib = $self->blib;
my $testPL = File::Spec->catfile('b','test.PL');
$self->run_perl_script($testPL);
$self->copy_if_modified( from => $_, to => File::Spec->catfile($blib, 'doc', $_) )
for qw/Changes README/;
}
sub process_MyPost_files {
Zoom-Meeting
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
{
dotReader
view release on metacpan or search on metacpan
inc/dtRdrBuilder.pm view on Meta::CPAN
m/\..*\.swp/ and return;
if(-d $_ and m/\.svn/) {
$File::Find::prune = 1;
return;
}
$self->copy_if_modified(
from => $_,
to => "$ret_dir/$dest_dir/$_",
verbose => 0,
);
}}, '.');
inc/dtRdrBuilder.pm view on Meta::CPAN
unlink("$dest_dir/$_") or die $_;
File::Copy::copy("$dest_dir/log.conf.par", "$dest_dir/$_");
}
foreach my $file (qw(LICENSE COPYING)) {
$self->copy_if_modified(
from => $file,
to => "$dest_dir/$file",
verbose => 1,
);
}
jmx4perl
view release on metacpan or search on metacpan
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/Module-Build/Module/Build/Base.pm view on Meta::CPAN
my $self = shift;
$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/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/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/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->_sign_dir($dist_dir) if $self->{properties}{sign};
}
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/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
{
( run in 0.372 second using v1.01-cache-2.11-cpan-0d8aa00de5b )