view release on metacpan or search on metacpan
script/ansible-perl view on Meta::CPAN
$fp->packlists_to_tree($base, \@packlists);
my $code=$fp->fatpack_file($ENV{ANSIBLE_MODULE});
$ENV{ANSIBLE_MODULE}=$ENV{ANSIBLE_MODULE}.'.packed';
spurt $code, $ENV{ANSIBLE_MODULE};
chmod 0755, $ENV{ANSIBLE_MODULE};
print "Wrote $ENV{ANSIBLE_MODULE}\n";
exit 0;
}
$ENV{ANSIBLE_ARGS} ||="{}";
view release on metacpan or search on metacpan
lib/Any/Template/ProcessDir.pm view on Meta::CPAN
if ( $self->same_dir ) {
unlink($dest_file);
}
else {
make_path( dirname($dest_file) );
chmod( $self->dir_create_mode(), dirname($dest_file) )
if defined( $self->dir_create_mode() );
}
write_file( $dest_file, $dest_text );
chmod( $self->file_create_mode(), $dest_file )
if defined( $self->file_create_mode() );
}
sub _build_process_file {
return sub {
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text AIO.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::AIO",
VERSION_FROM => "AIO.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text BDB.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::BDB",
VERSION_FROM => "BDB.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use Canary::Stability AnyEvent::DBI => 1, 5.008;
my $mm = MM->new({
dist => {
PREOP => 'pod2text DBI.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::DBI",
VERSION_FROM => "DBI.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text DBus.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::DBus",
VERSION_FROM => "DBus.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'File::Temp' => 0,
},
dist => {
COMPRESS => 'gzip -9f',
SUFFIX => 'gz',
PREOP => 'pod2text lib/AnyEvent/EditText.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
},
clean => { FILES => 'AnyEvent-EditText-*' },
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
require 5.008;
WriteMakefile(
dist => {
PREOP => 'pod2text FCP.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::FCP",
VERSION_FROM => "FCP.pm",
view release on metacpan or search on metacpan
lib/AnyEvent/FTP/Client/Site/Proftpd.pm view on Meta::CPAN
sub ratio { shift->client->push_command([SITE => "RATIO"] ) }
sub quota { shift->client->push_command([SITE => "QUOTA"] ) }
sub help { shift->client->push_command([SITE => "HELP $_[0]"] ) }
sub chgrp { shift->client->push_command([SITE => "CHGRP $_[0] $_[1]"] ) }
sub chmod { shift->client->push_command([SITE => "CHMOD $_[0] $_[1]"] ) }
1;
__END__
lib/AnyEvent/FTP/Client/Site/Proftpd.pm view on Meta::CPAN
$client->site->proftpd->chgrp( $arg1, $arg2 );
Execute C<SITE CHGRP> command.
=head2 chmodk
$client->site->proftpd->chmodk( $arg1, $arg2 );
Execute C<SITE CHMOD> command.
=head1 AUTHOR
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use 5.008;
WriteMakefile(
dist => {
PREOP => 'pod2text FastPing.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
PREREQ_PM => {
AnyEvent => 0,
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'Encode' => 0,
},
dist => {
COMPRESS => 'gzip -9f',
SUFFIX => 'gz',
PREOP => 'pod2text lib/AnyEvent/Feed.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
},
clean => { FILES => 'AnyEvent-Feed' },
);
view release on metacpan or search on metacpan
t/lib/TestSupport.pm view on Meta::CPAN
sub modify_attrs_on_test_files {
my (@files) = @_;
for my $file (@files) {
my $full_file = File::Spec->catfile( $dir, $file );
chmod 0750, $full_file or die "Error chmod on $full_file: $!";
}
}
our @received = ();
our @expected = ();
view release on metacpan or search on metacpan
lib/AnyEvent/Filesys/Watcher/FSEvents.pm view on Meta::CPAN
kFSEventStreamEventFlagItemFinderInfoMod => MODIFIED,
# chown().
kFSEventStreamEventFlagItemChangeOwner => MODIFIED,
# chmod().
kFSEventStreamEventFlagItemXattrMod => MODIFIED,
# These should be clear. They are, of course, not ignored, but they don't
# modify the event type.
kFSEventStreamEventFlagItemIsFile => IGNORE,
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use 5.008;
WriteMakefile(
dist => {
PREOP => 'pod2text Pool.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::Fork::Pool",
VERSION_FROM => "Pool.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use 5.008;
WriteMakefile(
dist => {
PREOP => 'pod2text RPC.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::Fork::RPC",
VERSION_FROM => "RPC.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use 5.008;
WriteMakefile(
dist => {
PREOP => 'pod2text Remote.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::Fork::Remote",
VERSION_FROM => "Remote.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use 5.008;
WriteMakefile(
dist => {
PREOP => 'pod2text Fork.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::Fork",
VERSION_FROM => "Fork.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text GDB.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::GDB",
VERSION_FROM => "GDB.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text GPSD.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::GPSD",
VERSION_FROM => "GPSD.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text HTTP.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::HTTP",
VERSION_FROM => "HTTP.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'AnyEvent::HTTP' => 0,
'bytes' => 0,
'Compress::Zlib' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz',
PREOP => 'pod2text lib/AnyEvent/HTTPD.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
},
clean => { FILES => 'AnyEvent-HTTPD-*' },
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'Encode' => 0,
},
dist => {
COMPRESS => 'gzip -9f',
SUFFIX => 'gz',
PREOP => 'pod2text lib/AnyEvent/IRC.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
},
clean => { FILES => 'AnyEvent-IRC-*' },
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use Canary::Stability AnyEvent::MP => 1, 5.008002;
my $mm = MM->new({
dist => {
PREOP => 'pod2text MP.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::MP",
VERSION_FROM => "MP/Config.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text MPV.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::MPV",
VERSION_FROM => "MPV.pm",
view release on metacpan or search on metacpan
xt/author/pod_link.t view on Meta::CPAN
diag "checking lib instead of blib";
}
my $dir = path('~/.xor/cache');
$dir->mkpath;
$dir->chmod(0700);
my $ua = HTTP::Tiny::Mech->new(
mechua => WWW::Mechanize::Cached->new(
cache => CHI->new(
# keep cache around for 24hrs
expires_in => 60*60*24,
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text Porttracker.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::Porttracker",
VERSION_FROM => "Porttracker.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use Canary::Stability AnyEvent::ReadLine::Gnu => 1, 5.010;
WriteMakefile(
dist => {
PREOP => 'pod2text Gnu.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::ReadLine::Gnu",
VERSION_FROM => "Gnu.pm",
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
'Scalar::Util' => 0,
},
dist => {
COMPRESS => 'gzip -9f',
SUFFIX => 'gz',
PREOP => 'pod2text lib/AnyEvent/RetryTimer.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
},
clean => { FILES => 'AnyEvent-RetryTimer' },
);
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
my $mm = MM->new({
dist => {
PREOP => 'pod2text SNMP.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
COMPRESS => 'gzip -9v',
SUFFIX => '.gz',
},
NAME => "AnyEvent::SNMP",
VERSION_FROM => "SNMP.pm",
view release on metacpan or search on metacpan
lib/AnyEvent/IO.pm view on Meta::CPAN
use base "Exporter";
our @AIO_REQ = qw(
aio_load aio_open aio_close aio_seek aio_read aio_write aio_truncate
aio_utime aio_chown aio_chmod aio_stat aio_lstat
aio_link aio_symlink aio_readlink aio_rename aio_unlink
aio_mkdir aio_rmdir aio_readdir
);
*EXPORT = \@AIO_REQ;
our @FLAGS = qw(O_RDONLY O_WRONLY O_RDWR O_CREAT O_EXCL O_TRUNC O_APPEND);
lib/AnyEvent/IO.pm view on Meta::CPAN
aio_chown "file", undef, 0, sub {
@_
or return AE::log error => "chown 'file': $!";
};
=item aio_chmod $fh_or_path, $perms, $cb->($success)
Calls C<chmod> on the path or perl file handle and passes a true value to
the callback on success.
Example: change F<file> to be user/group/world-readable, but leave the other flags
alone.
aio_stat "file", sub {
@_
or return AE::log error => "file: $!";
aio_chmod "file", (stat _)[2] & 07777 | 00444, sub { };
};
=item aio_stat $fh_or_path, $cb->($success)
=item aio_lstat $path, $cb->($success)