view release on metacpan or search on metacpan
lib/Acme/ppport.h view on Meta::CPAN
op_integerize|||
op_linklist||5.013006|
op_lvalue_flags|||
op_lvalue||5.013007|
op_null||5.007002|
op_parent||5.021002|n
op_prepend_elem||5.013006|
op_refcnt_dec|||
op_refcnt_inc|||
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
ExtUtils::CBuilder 0
File::Temp 0
Module::Build 0.38
Test::More 0.98
Test::Requires 0
parent 0
perl 5.008001
ExtUtils-Config-0.008
pathname: L/LE/LEONT/ExtUtils-Config-0.008.tar.gz
provides:
ExtUtils::Config 0.008
cpanfile.snapshot view on Meta::CPAN
ExtUtils::CBuilder 0
File::Basename 0
File::Path 0
Module::Build 0.4005
XSLoader 0.02
parent 0
perl 5.008005
Mouse-2.4.1
pathname: G/GF/GFUJI/Mouse-2.4.1.tar.gz
provides:
Mouse 2.004001
view release on metacpan or search on metacpan
lib/Acme/Pythonic.pm view on Meta::CPAN
# appended back in the continue block below.
$comment = $line =~ s/(\s*$tc)//o ? $1 : '';
next if $line =~ /^\s*$/;
if (!$joining) {
$unbalanced_paren = left_parenthesize($line);
$might_be_modifier = $line =~ /^\s*(?:if|unless|while|until|for|foreach)\b/;
$line_with_modifier = \$line if $might_be_modifier;
($indent) = $line =~ /^(\s*)/;
$indent = length(expand($indent));
}
lib/Acme/Pythonic.pm view on Meta::CPAN
}
# Put an opening paren in the places we forgive parens. It will be later
# closed or removed as needed in the main subroutine.
sub left_parenthesize {
$_[0] =~ s/^(\s*\b(?:if|elsif|unless)\b\s*)/$1(/ ||
$_[0] =~ s/^(\s*(?:$id\s*:)?\s*\b(?:while|until)\b(\s*))/$2 eq '' ? "$1 (" : "$1("/eo ||
$_[0] =~ s/^(\s*(?:$id\s*:\s*)?\bfor(?:each)?\b\s*)(.*)/fortype_guesser($1,$2)/oxe
}
lib/Acme/Pythonic.pm view on Meta::CPAN
braces.
=item * Simple statements are separated by newlines instead of
semicolons.
=item * EXPRs in control flow structures do not need parentheses around.
=back
Additionally, the filter understands the keywords C<pass> and C<in>.
view release on metacpan or search on metacpan
lib/Acme/RPC.pm view on Meta::CPAN
reg( $node->{$k.'()'}{chr(0)} = sub { $object->can($k)->($object, @_); } ); # XXX hackish
# not recursing into the coderef here; if the sub is found hanging off of a stash, we'll recurse into it then.
}
}
} elsif(ref($object) eq 'HASH') {
# either our parent knows our name and did $node->{whatever} = caller_cv($ref), or else they made something up for us.
reg( $node->{chr(0)} = $object );
} elsif(ref($object) eq 'ARRAY') {
reg( $node->{chr(0)} = $object );
} elsif(ref($object) eq 'SCALAR') {
# a scalar... if it's not a ref, this node will get one item put in it; otherwise, it may get many.
view release on metacpan or search on metacpan
lib/Acme/Rando.pm view on Meta::CPAN
use warnings;
use HTTP::Tiny;
use JSON;
use parent 'Exporter';
our @EXPORT = qw(rando);
=head1 NAME
view release on metacpan or search on metacpan
lib/Acme/Rant.pm view on Meta::CPAN
=head2 Parameters
If the function is called with parameters, those parameters
will be returned in a list. If your function was called with
zero parameters, it will return true. Remember that these are
functions and may require parenthesis to disambiguate meaning
and context.
=head2 Context
Context is a bit different for these venting functions. Void
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unless ( uc($1) eq $1 ) {
unshift @_, ( $self, $1 );
view release on metacpan or search on metacpan
lib/Acme/SGABRIEL/Utils.pm view on Meta::CPAN
=head1 ACKNOWLEDGEMENTS
Me, Myself, and I
Brian d Foy - Apparently people are mad because you told people to upload to CPAN in your book 'Intermediate Perl'
so if someone is mad this experimental module is here, go yell at him for it :)
=head1 LICENSE AND COPYRIGHT
Copyright 2014 Gabriel Sharp ...as if (ahem) ..as is
view release on metacpan or search on metacpan
lib/Acme/SList/XSLT.pm view on Meta::CPAN
__END__
=head1 NAME
Acme::SList::XSLT - Perform XSLT transparently between XML::LibXSLT and Win32::MinXSLT
=head1 SYNOPSIS
use Acme::SList::XSLT;
view release on metacpan or search on metacpan
lib/Acme/SaBalTongMun.pm view on Meta::CPAN
my $image = GD::Image->new($width, $height);
my $white = $image->colorAllocate( _get_rgb("#FFFFFF") );
my $black = $image->colorAllocate( _get_rgb("#000000") );
# make the background transparent and interlaced
$image->transparent( _get_rgb("#FFFFFF") );
$image->interlaced('true');
my $dest_angle = 0;
for my $string ( @{$self->people} ) {
my $dest_x = $cx + ( $self->radius * cos $dest_angle );
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unshift @_, ($self, $1);
goto &{$self->can('call')} unless uc($1) eq $1;
view release on metacpan or search on metacpan
lib/Acme/Signature/Arity.pm view on Meta::CPAN
use B;
use List::Util qw(min);
use experimental qw(signatures);
use parent qw(Exporter);
=head1 NAME
Acme::Signature::Arity - provides reliable, production-ready signature introspection
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unshift @_, ($self, $1);
goto &{$self->can('call')} unless uc($1) eq $1;
view release on metacpan or search on metacpan
lib/Acme/Sort/Bogosort.pm view on Meta::CPAN
use 5.010;
use strict;
use warnings;
use parent qw/Exporter/;
use Carp 'croak';
use List::Util qw/shuffle/;
our @EXPORT = qw/bogosort/;
view release on metacpan or search on metacpan
lib/Acme/Sort/Bozo.pm view on Meta::CPAN
use 5.010;
use strict;
use warnings;
use parent qw/Exporter/;
use Carp 'croak';
use List::Util qw/shuffle/;
our @EXPORT = qw/bozo/;
view release on metacpan or search on metacpan
local/lib/perl5/IO/Async/ChildManager.pm view on Meta::CPAN
},
);
# Parent
close( $writepipe );
return $self->_spawn_in_parent( $readpipe, $kid, $on_exit );
}
=head2 C<setup> array
This array gives a list of file descriptor operations to perform in the child
process after it has been C<fork(2)>ed from the parent, before running the code
or command. It consists of name/value pairs which are ordered; the operations
are performed in the order given.
=over 8
local/lib/perl5/IO/Async/ChildManager.pm view on Meta::CPAN
}
return @setup;
}
sub _spawn_in_parent
{
my $self = shift;
my ( $readpipe, $kid, $on_exit ) = @_;
my $loop = $self->{loop};
view release on metacpan or search on metacpan
0.0.8 Wed Apr 1 21:52:29 2009
- Double fork to avoid needing to munge $SIG{CHLD} outside of spork()
- pipe() to get spork()ed process's PID back for return
- $SIG{CHLD} so that $? inside spork() is correct (i.e. not -1 for auto reaped)
- the 3 things above also make it zombie safe for when the parent outlives the child
- explicit exit after coderef call to avoid "fork doubling"
- Ability to define Acme::Spork::setsid() to not use POSIX::setsid() (i.e. to not load POSIX)
view release on metacpan or search on metacpan
docs/SubmittingPatches.pod view on Meta::CPAN
patches for discussion. Before the final merge, you may have to wait until
some of the dependent topics graduate to 'master', and rebase your work.
=back
To find the tip of a topic branch, run "git log --first-parent
master..pu" and look for the merge commit. The second parent of this
commit is the tip of the topic branch.
=head2 (1) Make separate commits for logically separate changes.
Unless your patch is really trivial, you should not be sending
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unless ( uc($1) eq $1 ) {
unshift @_, ( $self, $1 );
view release on metacpan or search on metacpan
lib/Acme/SuddenlyDeath.pm view on Meta::CPAN
package Acme::SuddenlyDeath;
use strict;
use warnings;
use utf8;
use parent 'Exporter';
use Text::VisualWidth::UTF8;
our @EXPORT = qw/ sudden_death sudden_death_single /;
use version; our $VERSION = '0.09';
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
my $method = $1;
if ( uc($method) eq $method ) {
view release on metacpan or search on metacpan
carp "tempdir called with tainted template $template" if tainted($template);
# Need to strip directory path if using DIR or TMPDIR
if ($options{'TMPDIR'} || $options{'DIR'}) {
carp "options dir 2 $options{DIR}" if tainted($options{'DIR'});
# Strip parent directory from the filename
#
# There is no filename at the end
my ($volume, $directories, undef) = File::Spec->splitpath( $template, 1);
# Last directory is then our template
view release on metacpan or search on metacpan
lib/Acme/Tategaki.pm view on Meta::CPAN
use utf8;
use Array::Transpose::Ragged qw/transpose_ragged/;
use Encode qw/encode_utf8 decode_utf8/;
use Data::Dump qw/dump/;
use parent 'Exporter';
our @EXPORT = qw( tategaki tategaki_one_line);
our $VERSION = "0.12";
my @punc = qw(〠。 ， ．);
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unshift @_, ($self, $1);
goto &{$self->can('call')} unless uc($1) eq $1;
view release on metacpan or search on metacpan
lib/Acme/Test.pm view on Meta::CPAN
for my $type (keys %$href) {
my $x = *{"$stash->{$name}"}{$type};
next unless defined $x;
### so apparently some entries in the scalar slot
### are set regardless, but are references to undef
### let's just skip these...
next if ref $x eq "SCALAR" and not defined $$x;
### some hash entries might be other stashes again
view release on metacpan or search on metacpan
op_integerize|||
op_linklist||5.013006|
op_lvalue_flags|||
op_lvalue||5.013007|
op_null||5.007002|
op_parent||5.021002|n
op_prepend_elem||5.013006|
op_refcnt_dec|||
op_refcnt_inc|||
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
my $cwd = Cwd::cwd();
my $sym = "${who}::AUTOLOAD";
$sym->{$cwd} = sub {
my $pwd = Cwd::cwd();
if ( my $code = $sym->{$pwd} ) {
# delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
$$sym =~ /([^:]+)$/ or die "Cannot autoload $who - $sym";
unshift @_, ($self, $1);
goto &{$self->can('call')} unless uc($1) eq $1;