Result:
found more than 455 distributions - search limited to the first 2001 files matching your query
( run in 0.740 )
Acme-MITHALDU-XSGrabBag
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
# list cherry-picked from `perldoc perlrun`
delete @ENV{qw(PERL5OPT PERL5SHELL PERL_ROOT IFS CDPATH ENV BASH_ENV)};
$ENV{SHELL} = '/bin/sh' if -x '/bin/sh';
$< = $> if $< != $>; # so child processes retain euid - ignore failure
}
#==============================================================================
# Blindly untaint tainted fields in Inline object.
#==============================================================================
sub obj_untaint {
inc/Inline.pm view on Meta::CPAN
print STDERR <<END;
<-----------------------REPORTBUG Section------------------------------------->
REPORTBUG mode in effect.
Your Inline $o->{API}{language_id} code will be processed in the build directory:
$o->{API}{build_dir}
A perl-readable bug report including your perl configuration and run-time
diagnostics will also be generated in the build directory.
inc/Inline.pm view on Meta::CPAN
my $o = shift;
print STDERR <<END;
<-----------------------Information Section----------------------------------->
Information about the processing of your Inline $o->{API}{language_id} code:
END
print STDERR <<END if ($o->{INLINE}{object_ready});
Your module is already compiled. It is located at:
inc/Inline.pm view on Meta::CPAN
END
}
sub M51_unused_DATA {
return <<END;
One or more DATA sections were not processed by Inline.
END
}
sub M52_invalid_filter {
Acme-MUDLike
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
// Bind an event to an element
// Original by Dean Edwards
add: function(element, type, handler, data) {
// For whatever reason, IE has trouble passing the window object
// around, causing it to be cloned in the process
if ( jQuery.browser.msie && element.setInterval != undefined )
element = window;
// if data is passed, bind to handler
if( data )
lib/Acme/MUDLike.pm view on Meta::CPAN
ajaxSettings: {
global: true,
type: "GET",
timeout: 0,
contentType: "application/x-www-form-urlencoded",
processData: true,
async: true,
data: null
},
// Last-Modified header cache for next request
lib/Acme/MUDLike.pm view on Meta::CPAN
s = jQuery.extend({}, jQuery.ajaxSettings, s);
// if data available
if ( s.data ) {
// convert data if not already a string
if (s.processData && typeof s.data != "string")
s.data = jQuery.param(s.data);
// append data to url for get requests
if( s.type.toLowerCase() == "get" ) {
// "?" + data or "&" + data (in case there are already params)
s.url += ((s.url.indexOf("?") > -1) ? "&" : "?") + s.data;
lib/Acme/MUDLike.pm view on Meta::CPAN
} catch(e) {} // swallow exception thrown by FF if header is not available
if ( s.ifModified && modRes )
jQuery.lastModified[s.url] = modRes;
// process the data (runs the xml through httpData regardless of callback)
var data = jQuery.httpData( xml, s.dataType );
// If a local callback was specified, fire it and pass it the data
if ( s.success )
s.success( data, status );
lib/Acme/MUDLike.pm view on Meta::CPAN
if ( f ) f.apply( elem );
}
},
/*
* I originally wrote fx() as a clone of moo.fx and in the process
* of making it small in size the code became illegible to sane
* people. You've been warned.
*/
fx: function( elem, options, prop ){
Acme-Matt-Daemon
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
.
if (
eval '$>' and lc(`sudo -V`) =~ /version/ and _prompt(
qq(
==> Should we try to re-execute the autoinstall process with 'sudo'?),
((-t STDIN) ? 'y' : 'n')
) =~ /^[Yy]/
)
{
# try to bootstrap ourselves from sudo
print << ".";
*** Trying to re-execute the autoinstall process with 'sudo'...
.
my $missing = join( ',', @Missing );
my $config = join( ',',
UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
Acme-MetaSyntactic-Themes
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/pgpfone.pm view on Meta::CPAN
millionaire miracle misnomer molasses molecule Montana monument mosquito
narrative nebula newsletter Norwegian October Ohio onlooker opulent
Orlando outfielder Pacific pandemic pandora paperweight paragon paragraph
paramount passenger pedigree Pegasus penetrate perceptive performance
pharmacy phonetic photograph pioneer pocketful politeness positive potato
processor prophecy provincial proximate puberty publisher pyramid quantity
racketeer rebellion recipe recover repellent replica reproduce resistor
responsive retraction retrieval retrospect revenue revival revolver
Sahara sandalwood sardonic Saturday savagery scavenger sensation sociable
souvenir specialist speculate stethoscope stupendous supportive surrender
suspicious sympathy tambourine telephone therapist tobacco tolerance
Acme-MetaSyntactic
view release on metacpan or search on metacpan
lib/Test/MetaSyntactic.pm view on Meta::CPAN
my ($theme) = @_;
my $tb = __PACKAGE__->builder;
$tb->plan( tests => 2 );
# load in the current process
my ( $pkg, $error ) = _load( $theme, 1 );
$tb->ok( !$error, "use Acme::MetaSyntactic::$theme;" );
$tb->diag($error) if $error;
# load in isolation
lib/Test/MetaSyntactic.pm view on Meta::CPAN
=head2 subtest_load( $theme )
Tries to load the theme module.
First in the currently running process, and then in isolation inside
its own environment.
=head2 subtest_version( $theme )
Checks that the theme has a C<$VERSION>.
Acme-Mitey-Cards
view release on metacpan or search on metacpan
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
{
my $PACKAGE = $META_CLASS->initialize( "Acme::Mitey::Cards::Card", package => "Acme::Mitey::Cards::Card" );
my %ATTR;
$ATTR{"deck"} = Moose::Meta::Attribute->new( "deck",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Card.pm", line => "9", package => "Acme::Mitey::Cards::Card", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => true,
init_arg => "deck",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
no warnings 'redefine';
local *Moose::Meta::Attribute::install_accessors = sub {};
$PACKAGE->add_attribute( $ATTR{"deck"} );
};
$ATTR{"reverse"} = Moose::Meta::Attribute->new( "reverse",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Card.pm", line => "19", package => "Acme::Mitey::Cards::Card", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "reverse",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
{
my $PACKAGE = $META_CLASS->initialize( "Acme::Mitey::Cards::Card::Face", package => "Acme::Mitey::Cards::Card::Face" );
my %ATTR;
$ATTR{"suit"} = Moose::Meta::Attribute->new( "suit",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Card/Face.pm", line => "13", package => "Acme::Mitey::Cards::Card::Face", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "suit",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
no warnings 'redefine';
local *Moose::Meta::Attribute::install_accessors = sub {};
$PACKAGE->add_attribute( $ATTR{"suit"} );
};
$ATTR{"face"} = Moose::Meta::Attribute->new( "face",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Card/Face.pm", line => "20", package => "Acme::Mitey::Cards::Card::Face", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "face",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
{
my $PACKAGE = $META_CLASS->initialize( "Acme::Mitey::Cards::Card::Numeric", package => "Acme::Mitey::Cards::Card::Numeric" );
my %ATTR;
$ATTR{"suit"} = Moose::Meta::Attribute->new( "suit",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Card/Numeric.pm", line => "13", package => "Acme::Mitey::Cards::Card::Numeric", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "suit",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
no warnings 'redefine';
local *Moose::Meta::Attribute::install_accessors = sub {};
$PACKAGE->add_attribute( $ATTR{"suit"} );
};
$ATTR{"number"} = Moose::Meta::Attribute->new( "number",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Card/Numeric.pm", line => "20", package => "Acme::Mitey::Cards::Card::Numeric", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "number",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
{
my $PACKAGE = $META_CLASS->initialize( "Acme::Mitey::Cards::Deck", package => "Acme::Mitey::Cards::Deck" );
my %ATTR;
$ATTR{"reverse"} = Moose::Meta::Attribute->new( "reverse",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Deck.pm", line => "17", package => "Acme::Mitey::Cards::Deck", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "reverse",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
no warnings 'redefine';
local *Moose::Meta::Attribute::install_accessors = sub {};
$PACKAGE->add_attribute( $ATTR{"reverse"} );
};
$ATTR{"original_cards"} = Moose::Meta::Attribute->new( "original_cards",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Deck.pm", line => "23", package => "Acme::Mitey::Cards::Deck", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "original_cards",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
{
my $PACKAGE = $META_CLASS->initialize( "Acme::Mitey::Cards::Hand", package => "Acme::Mitey::Cards::Hand" );
my %ATTR;
$ATTR{"owner"} = Moose::Meta::Attribute->new( "owner",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Hand.pm", line => "11", package => "Acme::Mitey::Cards::Hand", toolkit => "Mite", type => "class" },
is => "rw",
weak_ref => false,
init_arg => "owner",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
{
my $PACKAGE = $META_CLASS->initialize( "Acme::Mitey::Cards::Set", package => "Acme::Mitey::Cards::Set" );
my %ATTR;
$ATTR{"cards"} = Moose::Meta::Attribute->new( "cards",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Set.pm", line => "11", package => "Acme::Mitey::Cards::Set", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "cards",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
{
my $PACKAGE = $META_CLASS->initialize( "Acme::Mitey::Cards::Suit", package => "Acme::Mitey::Cards::Suit" );
my %ATTR;
$ATTR{"name"} = Moose::Meta::Attribute->new( "name",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Suit.pm", line => "9", package => "Acme::Mitey::Cards::Suit", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "name",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
no warnings 'redefine';
local *Moose::Meta::Attribute::install_accessors = sub {};
$PACKAGE->add_attribute( $ATTR{"name"} );
};
$ATTR{"abbreviation"} = Moose::Meta::Attribute->new( "abbreviation",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Suit.pm", line => "19", package => "Acme::Mitey::Cards::Suit", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "abbreviation",
lib/Acme/Mitey/Cards/MOP.pm view on Meta::CPAN
no warnings 'redefine';
local *Moose::Meta::Attribute::install_accessors = sub {};
$PACKAGE->add_attribute( $ATTR{"abbreviation"} );
};
$ATTR{"colour"} = Moose::Meta::Attribute->new( "colour",
__hack_no_process_options => true,
associated_class => $PACKAGE,
definition_context => { context => "has declaration", file => "lib/Acme/Mitey/Cards/Suit.pm", line => "21", package => "Acme::Mitey::Cards::Suit", toolkit => "Mite", type => "class" },
is => "ro",
weak_ref => false,
init_arg => "colour",
Acme-Mobile-Therbligs
view release on metacpan or search on metacpan
lib/Acme/Mobile/Therbligs.pm view on Meta::CPAN
=head1 DESCRIPTION
This module counts the number of I<therbligs> used to write mobile
text messages. A therblig is unit used to measure the number of
actions (in this case keypresses or pauses) for people who like to
optimize industrial processes.
So you can use this module to determine useless facts such as that it
takes as many keypresses to write "later" or "great" as it does "l8r"
and "gr8".
Acme-Mom-Yours
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
print FH $_[$_] or die "print($_[0]): $!";
}
close FH or die "close($_[0]): $!";
}
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
sub _version ($) {
my $s = shift || 0;
my $d =()= $s =~ /(\.)/g;
if ( $d >= 2 ) {
Acme-MomoiroClover
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
}
close FH or die "close($_[0]): $!";
}
END_OLD
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
sub _version ($) {
my $s = shift || 0;
my $d =()= $s =~ /(\.)/g;
if ( $d >= 2 ) {
Acme-MotorcycleGang
view release on metacpan or search on metacpan
lib/Acme/MotorcycleGang.pm $(INST_MAN3DIR)/Acme::MotorcycleGang.$(MAN3EXT)
# --- MakeMaker processPL section:
# --- MakeMaker installbin section:
Acme-MyFirstModule-WWILLIS
view release on metacpan or search on metacpan
0.01 Thursday July 31 2014, 19:58 CDT
First version, released on an unsuspecting world.
0.03 Wednesday September 27, 2023 CDT
Third version. The dates have been bumped. Going
through the cpan/pause process every decade, so
I don't forget how its done.
Acme-NabeAtzz
view release on metacpan or search on metacpan
inc/Module/Install/Win32.pm view on Meta::CPAN
Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this module.
You may then resume the installation process described in README.
-------------------------------------------------------------------------------
END_MESSAGE
}
Acme-Net-OdiousPlan
view release on metacpan or search on metacpan
inc/Module/Install/Win32.pm view on Meta::CPAN
Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this module.
You may then resume the installation process described in README.
-------------------------------------------------------------------------------
.
}
}
Acme-OneHundredNotOut
view release on metacpan or search on metacpan
OneHundredNotOut.pm view on Meta::CPAN
actually the slides from a talk on my top ten favourite CPAN modules -
except that this changes so quickly over time, it doesn't really make
much sense any more.
Finally, L<Array::FileReader> was an attempt to optimize a file access
process. Unfortunately, my "optimization" ended up introducing more
overheads than the naive solution. It all goes to show. Since then,
Mark-Jason Dominus, another huge influence in the development of my CPAN
career, has written C<Tie::File>, which not only has a better name but
is actually efficient too.
OneHundredNotOut.pm view on Meta::CPAN
This has influenced a number of my modules, which have focussed on
trying to make everything as simple as possible for the user (or more
usually, for the programmer using my modules) and then a bit simpler.
So, for instance, I found the whole process of keeping values persistent
between runs of Perl a bit of a nightmare - I could never remember the
syntax for tying to C<DB_File>, and I would always forget to use the
extremely handy C<MLDBM> module. I just wanted to say "keep this
variable around". L<Attribute::Persistent> does just that, cleanly and
simply. It even works out a sensible place to put the database, so you
OneHundredNotOut.pm view on Meta::CPAN
interesting and considerably more tractable problems.
=head2 Mail Handling
A good number of my Perl modules focussed on mail handling, so many that
I was actually able to get a job basically doing mail processing in
Perl. It all started with L<Mail::Audit>. I was introduced to
F<procmail> at University, and it was useful enough, but it kept having
locking problems and losing my mail, and I didn't really understand it,
to be honest, so I wanted to write my mail filtering rules in Perl.
C<Mail::Audit> worked well for a couple of years before it grew into an
Acme-PPIx-MetaSyntactic
view release on metacpan or search on metacpan
lib/Acme/PPIx/MetaSyntactic.pm view on Meta::CPAN
Defaults to a list built by scanning the C<document> with PPI.
=item C<< names >>
HashRef mapping old names to new names. This will be populated by the
relabelling process, but you may supply some initial values.
Defaults to empty hashref.
=item C<< already_used >>
Acme-PSON
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
.
if (
eval '$>' and lc(`sudo -V`) =~ /version/ and _prompt(
qq(
==> Should we try to re-execute the autoinstall process with 'sudo'?),
((-t STDIN) ? 'y' : 'n')
) =~ /^[Yy]/
)
{
# try to bootstrap ourselves from sudo
print << ".";
*** Trying to re-execute the autoinstall process with 'sudo'...
.
my $missing = join( ',', @Missing );
my $config = join( ',',
UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
Acme-Padre-PlayCode
view release on metacpan or search on metacpan
use Module::Build;
my $class = Module::Build->subclass( code => <<'EOF');
eval { require Locale::Msgfmt; Locale::Msgfmt->import(); };
sub process_mo_files {
die("requires Locale::Msgfmt") if(! $INC{'Locale/Msgfmt.pm'});
msgfmt({
in => "share/locale/",
out => "blib/share/locale/"});
}
Acme-Partitioner
view release on metacpan or search on metacpan
lib/Acme/Partitioner.pm view on Meta::CPAN
=head1 DESCRIPTION
This module provides a simple interface to partition items of a set
into smaller sets based on criteria supplied by the caller. One step
in the refinement process extracts keys from the elements and groups
elements based on all of them. Criteria can be based on assignments
to partitions based on previous refinements, in which case multiple
refinements are necessary before the process stabilises.
=head2 METHODS
=over
Acme-People-Happy
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
print FH $_[$_] or die "print($_[0]): $!";
}
close FH or die "close($_[0]): $!";
}
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
sub _version {
my $s = shift || 0;
my $d =()= $s =~ /(\.)/g;
if ( $d >= 2 ) {
Acme-Perl-Consensual
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
.
if (
eval '$>' and lc(`sudo -V`) =~ /version/ and _prompt(
qq(
==> Should we try to re-execute the autoinstall process with 'sudo'?),
((-t STDIN) ? 'y' : 'n')
) =~ /^[Yy]/
)
{
# try to bootstrap ourselves from sudo
print << ".";
*** Trying to re-execute the autoinstall process with 'sudo'...
.
my $missing = join( ',', @Missing );
my $config = join( ',',
UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
Acme-Perl-VM
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
print FH $_[$_] or die "print($_[0]): $!";
}
close FH or die "close($_[0]): $!";
}
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
sub _version ($) {
my $s = shift || 0;
my $d =()= $s =~ /(\.)/g;
if ( $d >= 2 ) {
Acme-PerlML
view release on metacpan or search on metacpan
inc/Module/Install/Win32.pm view on Meta::CPAN
Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this module.
You may then resume the installation process described in README.
-------------------------------------------------------------------------------
END_MESSAGE
}
}
Acme-PerlTidy
view release on metacpan or search on metacpan
inc/Module/Install/Win32.pm view on Meta::CPAN
Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this module.
You may then resume the installation process described in README.
-------------------------------------------------------------------------------
.
}
}
Acme-Pi-Abrahamic
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
.
if (
eval '$>' and lc(`sudo -V`) =~ /version/ and _prompt(
qq(
==> Should we try to re-execute the autoinstall process with 'sudo'?),
((-t STDIN) ? 'y' : 'n')
) =~ /^[Yy]/
)
{
# try to bootstrap ourselves from sudo
print << ".";
*** Trying to re-execute the autoinstall process with 'sudo'...
.
my $missing = join( ',', @Missing );
my $config = join( ',',
UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
if $Config;
Acme-Pi
view release on metacpan or search on metacpan
directory to install modules to. For details, see the local::lib documentation:
https://metacpan.org/pod/local::lib
The prerequisites of this distribution will also have to be installed manually. The
prerequisites are listed in one of the files: `MYMETA.yml` or `MYMETA.json` generated
by running the manual build process described above.
## Configure Prerequisites
This distribution requires other modules to be installed before this
distribution's installer can be run. They can be found under the
Acme-Pinoko
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
}
close FH or die "close($_[0]): $!";
}
END_OLD
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
sub _version ($) {
my $s = shift || 0;
my $d =()= $s =~ /(\.)/g;
if ( $d >= 2 ) {
Acme-Pointer
view release on metacpan or search on metacpan
lib/Acme/ppport.h view on Meta::CPAN
pregfree2||5.011000|
pregfree|||
prescan_version||5.011004|
printbuf|||
printf_nocontext|||vn
process_special_blocks|||
ptr_hash|||n
ptr_table_clear||5.009005|
ptr_table_fetch||5.009005|
ptr_table_find|||n
ptr_table_free||5.009005|
Acme-PrettyCure
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
}
close FH or die "close($_[0]): $!";
}
END_OLD
# _version is for processing module versions (eg, 1.03_05) not
# Perl versions (eg, 5.8.1).
sub _version ($) {
my $s = shift || 0;
my $d =()= $s =~ /(\.)/g;
if ( $d >= 2 ) {
Acme-Pythonic-Functions
view release on metacpan or search on metacpan
lib/Acme/Pythonic/Functions.pm view on Meta::CPAN
Returns a list of the filenames in the directory $foo. Directory-entries "." and ".." are left out. Python: C<os.listdir()>.
=item C<readfile($foo)>
Returns the contents of the text-file named $foo as a list. Only use on smaller files, as this can take a lot of memory. For processing larger files, use the "Tie::File"-module instead. C<readfile()> is not a Python-builtin, although Python has a fun...
=item C<writefile($foo, @bar)>
Writes @bar to a file named $foo. Not a Python-builtin.
Acme-Pythonic
view release on metacpan or search on metacpan
lib/Acme/Pythonic.pm view on Meta::CPAN
my %hello = (Catalan => 'Hola', # my mother tongue
English => 'Hello',)
Acme::Pythonic munges a source that has already been processed by L<Filter::Simple>. In particular, L<Filter::Simple> blanks out quotelikes whose content is not even seen by Acme::Pythonic so backslashes in C<qw//> and friends won't be removed:
# Do not put backslashes here because qw// is bypassed
my @colors = qw(Red
Blue
Green)
( run in 0.740 second using v1.01-cache-2.11-cpan-8d75d55dd25 )