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
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/Indigest/Crypt.pm view on Meta::CPAN
my @salt;
push @salt, '$6$';
push @salt, "rounds=$rounds\$" if $rounds;
push @salt, "$salt_string\$";
return Crypt::Passwd::XS::unix_sha512_crypt( $passphrase, join '', @salt );
}
sub parse_salt_string_rounds {
my $self = shift;
my $salt_string = shift;
view release on metacpan or search on metacpan
lib/Acme/InputRecordSeparatorIsRegexp.pm view on Meta::CPAN
=head1 SYNOPSIS
use Acme::InputRecordSeparatorIsRegexp;
# open-then-tie
open my $fh, '<', 'file-with-Win-Mac-and-Unix-line-endings';
tie *$fh, 'Acme::IRSRegexp', $fh, '\r\n|\n|\r';
while (<$fh>) {
# $_ could have "\r\n", "\n", or "\r" line ending now
}
lib/Acme/InputRecordSeparatorIsRegexp.pm view on Meta::CPAN
This module provides a mechanism to read records from a file
using a regular expression as a record separator.
A common use case for this module is to read a text file
that you don't know whether it uses Unix (C<\n>),
Windows/DOS (C<\r\n>), or Mac (C<\r>) style line-endings,
or even if it might contain all three. To properly parse
this file, you could tie its file handle to this package with
the appropriate regular expression:
view release on metacpan or search on metacpan
t/author-eol.t view on Meta::CPAN
't/release-kwalitee.t',
't/release-trailing-space.t',
't/release-unused-vars.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
Corrected a MANIFEST error
Added a longer test using "Call of the Wild" by Jack London
1.20 2014/03/21
Added \r with a score of 0. Since in unix return is \n and in
windows it is \n and \r combined, the \n score is sufficent.
Moved to interger only math to improve speed
Added a full charset test
1.19 2014/03/19
view release on metacpan or search on metacpan
inc/Module/Install/Metadata.pm view on Meta::CPAN
$self->admin->write_meta;
return $self;
}
sub version_from {
require ExtUtils::MM_Unix;
my ( $self, $file ) = @_;
$self->version( ExtUtils::MM_Unix->parse_version($file) );
}
sub abstract_from {
require ExtUtils::MM_Unix;
my ( $self, $file ) = @_;
$self->abstract(
bless(
{ DISTNAME => $self->name },
'ExtUtils::MM_Unix'
)->parse_abstract($file)
);
}
# Add both distribution and module name
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
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
'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
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
file to override excluded extensions.
Note: glversion assumes libGL.so and libglut.so
(opengl32.dll and freeglut.dll on Windows) - and that it will
be run via a GUI window (eg. X11 on Unix). This may impact
automated build systems.
For building POGL without extension exclusions, use:
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
use Inline::denter;
use Config;
use Carp;
use Cwd qw(abs_path cwd);
use File::Spec;
use File::Spec::Unix;
use Fcntl qw(LOCK_EX LOCK_UN);
my %CONFIG = ();
my @DATA_OBJS = ();
my $INIT = 0;
inc/Inline.pm view on Meta::CPAN
$o->{API}{pkg} = $pkg;
$o->{API}{script} = $script;
$o->{API}{language_id} = $language_id;
if ($option =~ /^(FILE|BELOW)$/i or
not $option and
defined $INC{File::Spec::Unix->catfile('Inline','Files.pm')} and
Inline::Files::get_filename($pkg)
) {
$o->read_inline_file;
$o->{CONFIG} = handle_language_config(@config);
}
inc/Inline.pm view on Meta::CPAN
croak M26_error_version_without_name()
unless $o->{CONFIG}{NAME};
my @pkgparts = split(/::/, $o->{API}{pkg});
my $realname = File::Spec->catfile(@pkgparts) . '.pm';
my $realname_unix = File::Spec::Unix->catfile(@pkgparts) . '.pm';
my $realpath = $INC{$realname_unix}
or croak M27_module_not_indexed($realname_unix);
my ($volume,$dir,$file) = File::Spec->splitpath($realpath);
my @dirparts = File::Spec->splitdir($dir);
pop @dirparts unless $dirparts[-1];
push @dirparts, $file;
inc/Inline.pm view on Meta::CPAN
my $o = shift;
my ($lang, $pkg) = @{$o->{API}}{qw(language_id pkg)};
my $langfile = uc($lang);
croak M59_bad_inline_file($lang) unless $langfile =~ /^[A-Z]\w*$/;
croak M60_no_inline_files()
unless (defined $INC{File::Spec::Unix->catfile("Inline","Files.pm")} and
$Inline::Files::VERSION =~ /^\d\.\d\d$/ and
$Inline::Files::VERSION ge '0.51');
croak M61_not_parsed() unless $lang = Inline::Files::get_filename($pkg);
{
no strict 'refs';
view release on metacpan or search on metacpan
lib/Acme/Magpie.pm view on Meta::CPAN
the subroutines it tries to execute just won't be there. This is
considered a feature.
=head1 AUTHOR
Richard Clamp E<lt>richardc@unixbeard.netE<gt>, original idea by Tom
Hukins
=head1 COPYRIGHT
Copyright (C) 2002 Richard Clamp.
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/980_versions.t view on Meta::CPAN
#
# For a minute or two, I considered using File::Find.
#
# Henry Spencer was right:
#
# "Those who don't understand Unix are condemned to reinvent it, poorly."
#
undef $ENV {PATH};
my $FIND = "/usr/bin/find";
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/asterix.pm view on Meta::CPAN
Obelix
Dogmatix
Getafix
Vitalstatistix
Impedimenta
Cacofonix
Fulliautomatix
Unhygienix
Bacteria
Geriatrix
Julius_Caesar
Cleopatra
lib/Acme/MetaSyntactic/asterix.pm view on Meta::CPAN
Bonemine
Assurancetourix
Cetautomatix
Ordralfabetix
Ielosubmarine
Agecanonix
Jules_Cesar
Cleopatre
Brutus
Pneumatix
lib/Acme/MetaSyntactic/asterix.pm view on Meta::CPAN
Obelix
Idefix
Panoramix
Abraracourcix Heroix
Assurancetourix Kakofonix
# names de
Alkoholix
Asterix
Astronomix
Automatix
lib/Acme/MetaSyntactic/asterix.pm view on Meta::CPAN
Julius_Casar
Tullius_Destruktivus
Eleonoradus
Falbala
Gelatine
Grautvornix
Gutemine
Homoopatix
Acidix_Hydrochloridix
Idefix
Jellosubmarine
lib/Acme/MetaSyntactic/asterix.pm view on Meta::CPAN
Moralelastix
Nixalsverdrus Hotelterminus
Numerobis
Obelix
Orthopadix
Osolemirnix
Ozeanix
Praline
Processus
Feistus_Raclettus
Gaius_Raffcus
Rohrpostix
lib/Acme/MetaSyntactic/asterix.pm view on Meta::CPAN
Technokratus
Teefax
Tragicomix
Troubadix
Vaseline
Verleihnix
Agrippus_Virus
Vreneli
Volligbaf
Zechine
# names es
lib/Acme/MetaSyntactic/asterix.pm view on Meta::CPAN
Asuracenturix Seguroatodoriesguix
Ideafix Idefix
# names hu
Asterix
Obelix
Mirnixdirnix
Magicoturmix
Hasarengazfix
Hangianix
Messesaglix
Sokadikix
# names la
Asterix
Obelix
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/legocityundercover.pm view on Meta::CPAN
Jenny_Rathbone
Jessie_Weingartner
Jethro_Hayes
Jimmy_Grossman
Jo_Chalkley
Jonlan_Regnix
Karate_Champ
Karate_Guy
Karate_Master
Kevin_Jacobs
Lagney
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/legomarvelsuperheroes.pm view on Meta::CPAN
Nick_Fury
Nightmare
Nova
Pepper_Potts
Peter_Parker
Phoenix
Polaris
Power_Man
Professor_X
Psylocke
Punisher
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/legostarwarstheforceawakens.pm view on Meta::CPAN
K_3PO
Kanan_Jarrus
Kanjiklub_Gang_Member
Kanjiklub_Sniper
Kathleen_Kennedy
Kaydel_Ko_Connix
Ki_Adi_Mundi
Kinn_Zih
Kit_Fisto
Kordi_Freemaker
Korr_Sella
view release on metacpan or search on metacpan
xt/author/eol.t view on Meta::CPAN
'lib/Acme/MetaSyntactic/mlpfim.pm',
't/00-compile.t',
't/test-meta-syn.t'
);
eol_unix_ok($_, { trailing_whitespace => 1 }) foreach @files;
done_testing;
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/nethack.pm view on Meta::CPAN
=for stopwords mmm mmmm NetHack something's ummm
=head1 NAME
Acme::MetaSyntactic::nethack - The largest time waster in the world of *nix.
=head1 VERSION
This document describes Acme::MetaSyntactic::nethack version 1.0.1.
lib/Acme/MetaSyntactic/nethack.pm view on Meta::CPAN
Robert
Ron
Tom
Wilmar
Nick_Danger
Phoenix
Jiro
Mizue
Stephan
Lance_Braccus
Shadowhawk
view release on metacpan or search on metacpan
[NEW WEEKLY THEME 2005/04/04]
- haddock (Jérôme Fenal)
[ENHANCEMENTS]
- The new Acme::MetaSyntactic::Locale allows for multilingual themes
- The first theme to use this behaviour is "haddock"
- Still 100% coverage (even cover Win32 code under Unix)
[BUGFIX]
- Corrected a bug that only appeared if Acme::MetaSyntactic
was installed in directories containing whitespace
(thanks to Max Maischein for testing under such conditions!)
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
PM_TO_BLIB = lib/Acme/MotorcycleGang.pm \
blib/lib/Acme/MotorcycleGang.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);
}
}
}
}