view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
t/01__base_dir.t view on Meta::CPAN
};
done_testing;
__END__
# vi: set ts=4 sw=4 sts=0 et ft=perl fenc=utf-8 ff=unix :
view release on metacpan or search on metacpan
lib/AWS/CLIWrapper.pm view on Meta::CPAN
# cperl-indent-level: 4
# indent-tabs-mode: nil
# coding: utf-8
# End:
# vi: set ts=4 sw=4 sts=0 et ft=perl fenc=utf-8 ff=unix :
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
't/02zip.t',
't/03process.t',
't/lib/TestHelper/CreateTestFiles.pm'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
lib/AWS/S3/File.pm view on Meta::CPAN
Update contents and/or contenttype of the file.
=head2 signed_url( $expiry_time )
Will return a signed URL for public access to the file. $expiry_time should be a
Unix seconds since epoch, and will default to now + 1 hour is not passed.
Note that the Signature parameter value will be URI encoded to prevent reserved
characters (+, =, etc) causing a bad request.
=head1 SEE ALSO
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
warnings 0
ExtUtils-Helpers-0.021
pathname: L/LE/LEONT/ExtUtils-Helpers-0.021.tar.gz
provides:
ExtUtils::Helpers 0.021
ExtUtils::Helpers::Unix 0.021
ExtUtils::Helpers::VMS 0.021
ExtUtils::Helpers::Windows 0.021
requirements:
Carp 0
Config 0
cpanfile.snapshot view on Meta::CPAN
URI::file::Base undef
URI::file::FAT undef
URI::file::Mac undef
URI::file::OS2 undef
URI::file::QNX undef
URI::file::Unix undef
URI::file::Win32 undef
URI::ftp undef
URI::gopher undef
URI::http undef
URI::https undef
view release on metacpan or search on metacpan
1.02 -Syntax error fixes (pull request from unixtastic)
-Added Date::Parse dependency (pull request from MartinMcGrath)
1.01 -Improvements to the region guessing algorithm to support s3 virtual hosts
1.00 -Basic module written.
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
2. grep() method added
3. -total parameter added to fetch() grep() and find()
4. ace.pl added to exampe directory
5. new patch file adds a few essential bug fixes to ace 4_5e.
6. asGIF() method is now documented
7. updated patchfile to include "phoenix effect" aceserver bug
1.37 1. Added timestamp and comment handling.
2. Added -filled and -chunksize arguments to fetch_many().
3. Quashed a bug in list(-filled).
4. More regression tests.
view release on metacpan or search on metacpan
fortune/jackbauer view on Meta::CPAN
%
Jack once ripped a mans heart out and showed it to him. Then realized he had the wrong guy. Put it back in him, did CPR, saved his life and then shot for getting blood on his super-cell phone.
%
When Jack Bauer wants to beat a video game, he just turns the system on.
%
Producers at FOX wanted to add a sex scene with Jack and Audrey to Season 5, but nixed it when it took up all 24 hours of the season.
%
When Jack Bauer gets thirsty, he interrogates the CEO of Pepsi into revealing which bottles are free soda winners, and kills the other bottles for not cooperating.
%
Kevin Bacon always makes sure to stay at least 7 steps away from Jake Bauer.
%
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
DateTime::TimeZone::America::North_Dakota::New_Salem 1.75
DateTime::TimeZone::America::Ojinaga 1.75
DateTime::TimeZone::America::Panama 1.75
DateTime::TimeZone::America::Pangnirtung 1.75
DateTime::TimeZone::America::Paramaribo 1.75
DateTime::TimeZone::America::Phoenix 1.75
DateTime::TimeZone::America::Port_au_Prince 1.75
DateTime::TimeZone::America::Port_of_Spain 1.75
DateTime::TimeZone::America::Porto_Velho 1.75
DateTime::TimeZone::America::Puerto_Rico 1.75
DateTime::TimeZone::America::Rainy_River 1.75
cpanfile.snapshot view on Meta::CPAN
DateTime::TimeZone::Indian::Mauritius 1.75
DateTime::TimeZone::Indian::Mayotte 1.75
DateTime::TimeZone::Indian::Reunion 1.75
DateTime::TimeZone::Local 1.75
DateTime::TimeZone::Local::Android 1.75
DateTime::TimeZone::Local::Unix 1.75
DateTime::TimeZone::Local::VMS 1.75
DateTime::TimeZone::Local::Win32 1.75
DateTime::TimeZone::MET 1.75
DateTime::TimeZone::MST 1.75
DateTime::TimeZone::MST7MDT 1.75
cpanfile.snapshot view on Meta::CPAN
warnings 0
ExtUtils-Helpers-0.022
pathname: L/LE/LEONT/ExtUtils-Helpers-0.022.tar.gz
provides:
ExtUtils::Helpers 0.022
ExtUtils::Helpers::Unix 0.022
ExtUtils::Helpers::VMS 0.022
ExtUtils::Helpers::Windows 0.022
requirements:
Carp 0
Exporter 5.57
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
t/author-eol.t view on Meta::CPAN
'lib/Acme/Affinity.pm',
't/00-compile.t',
't/01-methods.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
lib/Acme/Archive/Mbox/File.pm view on Meta::CPAN
return $self->{gid};
}
=head2 mtime
Returns the mtime of the file as a unix timestamp.
=cut
sub mtime {
my $self = shift;
view release on metacpan or search on metacpan
PM_TO_BLIB = lib/Acme/BOATES.pm \
blib/lib/Acme/BOATES.pm
# --- MakeMaker platform_constants section:
MM_Unix_VERSION = 6.62
PERL_MALLOC_DEF = -DPERL_EXTMALLOC_DEF -Dmalloc=Perl_malloc -Dfree=Perl_mfree -Drealloc=Perl_realloc -Dcalloc=Perl_calloc
# --- MakeMaker tool_autosplit section:
# Usage: $(AUTOSPLITFILE) FileToSplit AutoDirToSplitInto
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}
view release on metacpan or search on metacpan
CONTRIBUTING view on Meta::CPAN
code, check with me first. Sometimes the English strings may not in
a stable state, so it would be a waste of time translating them.
Coding Style
I tend to write using something approximating the Allman style, using
tabs for indentation and Unix-style line breaks.
* <http://en.wikipedia.org/wiki/Indent_style#Allman_style>
* <http://www.derkarl.org/why_to_tabs.html>
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
'xt/author/portability.t',
'xt/release/changes_has_content.t',
'xt/release/cpan-changes.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
lib/Acme/CPANAuthors/Chinese.pm view on Meta::CPAN
# PYH => 'å½å‹‡åŽ', ## Dups of YHPENG
QJZHOU => 'Qing-Jie Zhou',
QSUN => 'å™æ³‰',
RANN => 'ç¿çƒ‚微笑 / Ran Ningyu',
REDICAPS => 'woosley.xu(å¾æ´²)',
ROOTKWOK => 'éƒæ¨‚è°', # HK, he posted to ChinaUnix Perl board
RSLOVERS => 'æ¨ åš',
SAL => 'Sal Zhong (仲伟祥)',
SHUCAO => 'Shu Cao',
SJDY => 'Perfi Wang',
SUNNAVY => 'å™æµ·å†›',
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
unless ( Cwd::abs_path(Cwd::getcwd()) eq $base_path ) {
delete $args{prefix};
}
return $args{_self} if $args{_self};
$base_path = VMS::Filespec::unixify($base_path) if $^O eq 'VMS';
$args{dispatch} ||= 'Admin';
$args{prefix} ||= 'inc';
$args{author} ||= ($^O eq 'VMS' ? '_author' : '.author');
$args{bundle} ||= 'inc/BUNDLES';
view release on metacpan or search on metacpan
inc/Module/Install/Can.pm view on Meta::CPAN
*ExtUtils::MM_Cygwin::maybe_command = sub {
my ($self, $file) = @_;
if ($file =~ m{^/cygdrive/}i and ExtUtils::MM_Win32->can('maybe_command')) {
ExtUtils::MM_Win32->maybe_command($file);
} else {
ExtUtils::MM_Unix->maybe_command($file);
}
}
}
}