view release on metacpan or search on metacpan
sub new {
my $class = shift;
my $colour = shift;
if (defined $colour) {
undef $colour unless $colour =~ /orange/i;
}
# I can't remember if there is a better way to do this with SUPER::
# Patches welcome...
Acme::Colour::new ($class, $colour, @_);
}
view release on metacpan or search on metacpan
t/browser.t view on Meta::CPAN
use Apache::TestRequest;
my $url = Apache::TestRequest::module2url('/count');
my $m = Test::WWW::Mechanize->new;
$m->get_ok($url,undef,'load counter page');
cmp_ok($m->value('cur'),'==',0,'value starts at zero');
$m->click('incr1');
ok($m->success,'clicked incr1');
cmp_ok($m->value('cur'),'==',1,'value increased to 1');
view release on metacpan or search on metacpan
lib/Acme/PM/Barcelona/12x5_ca.pod view on Meta::CPAN
StartApp('firefox http://barcelona.pm.org/');
($main_win) = WaitWindowViewable(
'Barcelona Perl Mongers',
undef,
20,
);
=for ToBeUsedInTheFuture =head3 Obrir algunes pà gines web amb el Firefox (2)
view release on metacpan or search on metacpan
lib/Acme/POE/Tree.pm view on Meta::CPAN
# Common shutdown code.
sub _handle_shut_down {
delete $_[HEAP]{console};
$_[KERNEL]->delay("light_cycle", undef);
$_[KERNEL]->delay("star_cycle", undef);
}
1;
__END__
view release on metacpan or search on metacpan
lib/Acme/PPIx/MetaSyntactic.pm view on Meta::CPAN
has already_used => (
is => "lazy",
isa => $TruthTable,
coerce => 1,
init_arg => undef,
);
sub _get_name
{
my $self = shift;
my $name = $self->theme->name;
my $i = undef;
my $used = $self->already_used;
$i++ while $used->{"$name$i"};
$used->{"$name$i"} = 1;
return "$name$i";
}
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
$file =~ s|::|/|g;
$file .= '.pm';
local $@;
return eval { require $file; $mod->VERSION } || ( $@ ? undef: 0 );
}
# Load CPAN.pm and it's configuration
sub _load_cpan {
return if $CPAN::VERSION;
inc/Module/AutoInstall.pm view on Meta::CPAN
version->can('new')
) {
# use version.pm if it is installed.
return (
( version->new($cur) >= version->new($min) ) ? $cur : undef );
}
elsif ( $Sort::Versions::VERSION or defined( _load('Sort::Versions') ) )
{
# use Sort::Versions as the sorting algorithm for a.b.c versions
return ( ( Sort::Versions::versioncmp( $cur, $min ) != -1 )
? $cur
: undef );
}
warn "Cannot reliably compare non-decimal formatted versions.\n"
. "Please install version.pm or Sort::Versions.\n";
}
# plain comparison
local $^W = 0; # shuts off 'not numeric' bugs
return ( $cur >= $min ? $cur : undef );
}
# nothing; this usage is deprecated.
sub main::PREREQ_PM { return {}; }
view release on metacpan or search on metacpan
builder/Acme/Parataxis/Builder.pm view on Meta::CPAN
),
ldflags => ( $^O eq 'MSWin32' ) ?
( '-L' .
File::Spec->catdir( $Config::Config{archlibexp}, 'CORE' ) . ' -l' .
( $Config::Config{libperl} =~ s/^lib//r =~ s/\.a$//r =~ s/\.lib$//r ) .
' -lws2_32' ) : ( $^O eq 'darwin' ? '-undefined dynamic_lookup' : '' )
},
build_dir => $arch_dir,
clean => 0
);
builder/Acme/Parataxis/Builder.pm view on Meta::CPAN
install(
[ from_to => $install_paths->install_map,
verbose => $verbose,
dry_run => $dry_run,
uninstall_shadows => $uninst,
skip => undef,
always_copy => 1
]
);
0;
}
view release on metacpan or search on metacpan
lib/Acme/Partitioner.pm view on Meta::CPAN
}, $class;
}
sub once_by {
my ($self, $sub) = @_;
Acme::Partitioner::Actor::_new(undef, "once", $sub, $self);
}
sub partition_of {
my ($self, $item) = @_;
$self->{by_string}{$item};
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.19';
# Storage for the pseudo-singleton
$MAIN = undef;
*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA = __PACKAGE__;
}
inc/Module/Install.pm view on Meta::CPAN
defined $_[0]
and
! ref $_[0]
and
$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
) ? $_[0] : undef;
}
1;
# Copyright 2008 - 2012 Adam Kennedy.
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
{
print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";
}
else
{
# no need to check $arg as _version_cmp ($cur, undef) would satisfy >= above
print "too old. ($cur < $arg)\n";
}
push @required, $mod => $arg;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
my $mod = pop; # method/function doesn't matter
my $file = $mod;
$file =~ s|::|/|g;
$file .= '.pm';
local $@;
return eval { require $file; $mod->VERSION } || ( $@ ? undef: 0 );
}
# report version without loading a module
sub _version_of {
my $mod = pop; # method/function doesn't matter
inc/Module/AutoInstall.pm view on Meta::CPAN
my $path = File::Spec->catfile($dir, $file);
next unless -e $path;
require ExtUtils::MM_Unix;
return ExtUtils::MM_Unix->parse_version($path);
}
return undef;
}
# Load CPAN.pm and it's configuration
sub _load_cpan {
return if $CPAN::VERSION and $CPAN::Config and not @_;
view release on metacpan or search on metacpan
example/methcall.pl view on Meta::CPAN
use lib "$Bin/../lib";
use Acme::Perl::VM;
sub Foo::hello{
my(undef, $s) = @_;
print "Hello, $s world!\n";
}
run_block {
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
{
print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";
}
else
{
# no need to check $arg as _version_cmp ($cur, undef) would satisfy >= above
print "too old. ($cur < $arg)\n";
}
push @required, $mod => $arg;
}
inc/Module/AutoInstall.pm view on Meta::CPAN
my $mod = pop; # method/function doesn't matter
my $file = $mod;
$file =~ s|::|/|g;
$file .= '.pm';
local $@;
return eval { require $file; $mod->VERSION } || ( $@ ? undef: 0 );
}
# report version without loading a module
sub _version_of {
my $mod = pop; # method/function doesn't matter
inc/Module/AutoInstall.pm view on Meta::CPAN
my $path = File::Spec->catfile($dir, $file);
next unless -e $path;
require ExtUtils::MM_Unix;
return ExtUtils::MM_Unix->parse_version($path);
}
return undef;
}
# Load CPAN.pm and it's configuration
sub _load_cpan {
return if $CPAN::VERSION and $CPAN::Config and not @_;
view release on metacpan or search on metacpan
inc/MyCheckVersionIncremented.pm view on Meta::CPAN
my ($self, $module) = @_;
my $url = 'http://cpanmetadb.plackperl.org/v1.0/package/' . $module;
$self->log_debug([ 'fetching %s', $url ]);
my $res = HTTP::Tiny->new->get($url);
$self->log('could not query the index?'), return undef if not $res->{success};
my $data = $res->{content};
if (my $charset = HTTP::Headers->new(%{ $res->{headers} })->content_type_charset)
{
inc/MyCheckVersionIncremented.pm view on Meta::CPAN
}
$self->log_debug([ 'got response: %s', $data ]);
my $payload = YAML::Tiny->read_string($data);
$self->log('invalid payload returned?'), return undef unless $payload;
$self->log_debug([ '%s not indexed', $module ]), return undef if not defined $payload->[0]{version};
return CPAN::DistnameInfo->new($payload->[0]{distfile})->version;
}
1;
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.06';
# Storage for the pseudo-singleton
$MAIN = undef;
*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA = __PACKAGE__;
}
inc/Module/Install.pm view on Meta::CPAN
defined $_[0]
and
! ref $_[0]
and
$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
) ? $_[0] : undef;
}
1;
# Copyright 2008 - 2012 Adam Kennedy.
view release on metacpan or search on metacpan
lib/Acme/PlayCode/Plugin/Averything.pm view on Meta::CPAN
my $dir = Path::Class::Dir->new($path);
my $handle = $dir->open;
while (my $file = $dir->next) {
$file = $file->stringify;
next if ( $file !~ /\.pm$/ );
( undef, my $basename ) = ( $file =~ /^(.*?)Plugin\S(.*?)$/is );
$basename =~ s/\.pm$//isg;
$basename =~ s/[\\\/]/\:\:/isg;
next if ( $basename eq 'Averything');
push @all_plugins, $basename;
}
view release on metacpan or search on metacpan
lib/Tupelo/Munge.pm view on Meta::CPAN
data type existed, so it makes a poor way to identify the tuple data type.
Via this module, a tuple can be constructed from a list of slot values,
and the slot values in a tuple can be read and written. This module
represents each slot value in the form of a reference value (for a slot
referencing an object) or an undefined value (for an empty slot).
=head2 Core class system
The L<Perl core class system|perlclass> (introduced alongside tuples in
Perl 5.37.9) uses tuples as the representation format for its classful
lib/Tupelo/Munge.pm view on Meta::CPAN
=item pure_tuple(REF ...)
Returns a reference to an immutable tuple. The tuple is composed of
the slot values supplied by the I<REF>s, each of which must be either
a reference or undefined. The tuple is not necessarily fresh.
=item constant_tuple(REF ...)
Creates a fresh immutable tuple and returns a reference to it. The tuple
is composed of the slot values supplied by the I<REF>s, each of which
must be either a reference or undefined.
=item variable_tuple(REF ...)
Creates a fresh mutable tuple and returns a reference to it. The tuple
is initialised to contain the slot values supplied by the I<REF>s,
each of which must be either a reference or undefined.
=back
=head2 Examination
lib/Tupelo/Munge.pm view on Meta::CPAN
that the tuple currently has.
=item tuple_slot(TUPLE, INDEX)
I<TUPLE> must be a reference to a tuple. Returns the slot value (either a
reference or undefined) in the tuple's slot identified by the zero-based
index I<INDEX>. C<die>s if the index is out of bounds (less than zero,
or greater than or equal to the number of slots).
=item tuple_slots(TUPLE)
I<TUPLE> must be a reference to a tuple. Returns a list of the slot
values (each either a reference or undefined) in all the slots of
the tuple. C<die>s if called in scalar context.
=back
=head2 Mutation
lib/Tupelo/Munge.pm view on Meta::CPAN
=item tuple_set_slot(TUPLE, INDEX, REF)
I<TUPLE> must be a reference to a mutable tuple. Sets the tuple's slot
identified by the zero-based index I<INDEX> to contain the slot value
supplied by I<REF>, which must be either a reference or undefined.
Returns the new slot value (i.e., a copy of I<REF>). C<die>s if the
index is out of bounds (less than zero, or greater than or equal to the
number of slots).
=item tuple_set_slots(TUPLE, REF ...)
I<TUPLE> must be a reference to a mutable tuple. Sets the tuple's
complete slot sequence to contain the slot values supplied by the I<REF>s,
each of which must be either a reference or undefined. Returns no
useful value. This function is capable of changing the number of slots
in a tuple, but doing so is a relatively expensive operation, so avoid
doing that routinely.
=item tuple_seal(TUPLE)
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
},
'Acme::PodOnly::NoVersion' => {
file => 'lib/Acme/PodOnly/NoVersion.pod',
},
'Acme::PodOnly::NoFile' => {
file => undef,
version => '0.001003',
},
'Acme::PodOnly::MissingFile' => {
file => 'lib/Acme/PodOnly/MissingFile.pod',
version => '0.001003',
view release on metacpan or search on metacpan
lib/Acme/Pointer.pm view on Meta::CPAN
CODE(0x7fd541a84a30)
HASH(0x7fd541a84a30)
ARRAY(0x7fd541a84a30)
SCALAR(0x7fd541a84a30)
If a character string other than these is passed, undef will be returned.
=item C<< pointer($addr :Str) >>
You can pass the string like "0x7fd541a84a30" to this function.
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.00';
# Storage for the pseudo-singleton
$MAIN = undef;
*inc::Module::Install::VERSION = *VERSION;
@inc::Module::Install::ISA = __PACKAGE__;
}
inc/Module/Install.pm view on Meta::CPAN
defined $_[0]
and
! ref $_[0]
and
$_[0] =~ m/^[^\W\d]\w*(?:::\w+)*\z/s
) ? $_[0] : undef;
}
1;
# Copyright 2008 - 2010 Adam Kennedy.
view release on metacpan or search on metacpan
lib/Acme/PriPara/MainMembers.pm view on Meta::CPAN
return $self->{say};
}
sub color {
my ($self) = @_;
return $self->has_pripara_changed ? $self->{color} : undef;
}
sub costume_brand {
my ($self) = @_;
return $self->has_pripara_changed ? $self->{costume_brand} : undef;
}
sub pripara_change {
my ($self) = @_;
$self->has_pripara_changed(1);
view release on metacpan or search on metacpan
t/91-version_numbers_are_the_same.t view on Meta::CPAN
use strict;
use File::Find;
use File::Slurp;
use Test::More qw(no_plan);
my $last_version = undef;
sub check {
return if (! m{blib/script/}xms && ! m{\.pm \z}xms);
my $content = read_file($_);
view release on metacpan or search on metacpan
lib/Acme/ProgressBar.pm view on Meta::CPAN
#pod =cut
sub progress(&) { ## no critic Prototype
my ($code) = @_;
local $| = 1; ## no critic
_overprint(_message(0,10,undef));
my $begun = Time::HiRes::time;
$code->();
my $total = Time::HiRes::time - $begun;
view release on metacpan or search on metacpan
t/algorithms.t view on Meta::CPAN
my $relation = defined $cmp ? $cmp->($target, $node->{val}) \
: $target <=> $node->{val}
return ($tree_link, $node) if $relation == 0
$tree_link = $relation > 0 ? \$node->{left} : \$node->{right}
return ($tree_link, undef)
sub basic_tree_add:
my ($tree_link, $target, $cmp) = @_
my $found
($tree_link, $found) = basic_tree_find($tree_link, $target, $cmp)
unless $found:
$found = {left => undef,
right => undef,
val => $target}
$$tree_link = $found
return $found
sub basic_tree_del:
my ($tree_link, $target, $cmp) = @_
my $found
($tree_link, $found) = basic_tree_find($tree_link, $target, $cmp)
return undef unless $found
if ! defined $found->{left}:
$$tree_link = $found->{right}
elsif ! defined $found->{right}:
$$tree_link = $found->{left}
else:
view release on metacpan or search on metacpan
lib/Acme/RJWETMORE/Utils.pm view on Meta::CPAN
my $result = sum( $n1, $n2, ... );
# Examples and special cases:
sum( 1, -2, 3, -4 ) # -2
sum() # undef
sum(1, 2, 'a' ) # 3
sum( 'a', 'b' ) # 0
sum( 0b11, 0xA, 010, 20 ) # 41
=head1 EXPORT
view release on metacpan or search on metacpan
lib/Acme/RPC.pm view on Meta::CPAN
while(@path) {
my $step = shift @path;
$node = $node->{$step} or do {
$step =~ s{[^a-z0-9:_-]}{}g;
$request->print("step ``$step'' not found in path");
$node = undef;
last;
};
}
$node or next;
$ob = $node->{chr(0)} or do {
view release on metacpan or search on metacpan
author/generate.pl view on Meta::CPAN
use Data::Dump ();
chdir $FindBin::Bin;
my $http = HTTP::Tiny->new;
my %url = map {; "http://unicode.org/Public/emoji/latest/$_" => undef } qw(
emoji-data.txt
emoji-zwj-sequences.txt
emoji-sequences.txt
);
view release on metacpan or search on metacpan
lib/Acme/Rant.pm view on Meta::CPAN
You may go futher off the deep end by ranting at will. It is an
excellent form of documentation.
RANT {
So, you decided it would be a good idea to return undef
from your method call and make me lookup a package
variable to get the data?! You so stupid!
}
=head1 THANKS
view release on metacpan or search on metacpan
t/dropsort.t view on Meta::CPAN
is_deeply([ dropsort(qw(3 2 3 1 5)) ], [ qw( 3 3 5) ], "double elements");
is_deeply([ dropsort(qw(3 1 2 )) ], [ qw( 3 ) ], "from very high to small, then a bit higher again");
is_deeply([ dropsort(qw(0 0 )) ], [ qw( 0 0 ) ], "0 is true");
is_deeply([ dropsort(qw(ultimate zomtec ultimate )) ], [ qw( ultimate zomtec ) ], 'alpha sort');
is_deeply([ dropsort(undef, undef) ], [ undef, undef ], 'undefs are valid');
is_deeply([ dropsort(undef, 1, undef ) ], [ undef, 1 ], 'undef lt 1' );
is_deeply([ dropsort(undef, 0, undef ) ], [ undef, 0 ], 'undef lt 0' );
is_deeply([ dropsort(undef, 1, undef, 2 ) ], [ undef, 1, 2 ], 'multiple undefs in ascending line');
is_deeply([ dropsort(undef, 1, undef, 0 ) ], [ undef, 1 ], 'multiple undefs in descending line' );
is_deeply([ dropsort(undef, 1, 2 ) ], [ undef, 1, 2 ], 'undef, 1, 2' );
is_deeply([ dropsort(undef, 2, 1 ) ], [ undef, 2 ], 'undef lt 2, 2 gt 1');
is_deeply([ dropsort(undef, 'zaffe', undef ) ], [ undef, 'zaffe' ], 'undef lt alpha text');
is_deeply([ dropsort(qw(3 2 4 1 5)) ], [ qw( 3 4 5) ], 'yet another line');
is_deeply([ dropsort(qw(3 4 5 6 7 8)) ], [ qw(3 4 5 6 7 8) ], 'already sorted');
is_deeply([ dropsort(qw(9 8 7 6 5 4)) ], [ qw(9 ) ], 'already reverse sorted');
is_deeply([ dropsort(qw(2)) ], [ qw(2) ], 'single value');
t/dropsort.t view on Meta::CPAN
is_deeply([ dropsort(qw(cc bb dd aa ee))], [qw(cc dd ee) ], 'alpha sort' );
is_deeply([ dropsort(qw(aa bb cc dd ee ff)) ], [ qw(aa bb cc dd ee ff) ], 'already sorted alpha' );
is_deeply([ dropsort(qw(ii hh gg ff ee dd)) ], [ qw(ii) ], 'already reverse sorted alpha' );
is_deeply([ dropsort(qw(bb)) ], [ qw(bb) ], 'single alpha' );
is_deeply([dropsort (undef, 1, 2, 5, 3, 4)], [ undef, 1, 2, 5 ], 'undef, the leader');
is_deeply([dropsort (1, 2, 5, 3, 4, undef)], [ 1, 2, 5 ], 'undef does not follow');
is_deeply([dropsort (1, 2, undef, 5, 3, 4, undef)], [ 1, 2, 5 ], 'undef in the middle attack');
is_deeply([undef], [ undef ], 'single undef');
#no warnings;
no warnings 'uninitialized';
my @res = dropsortx { $a <=> $b } 1, 11, 2;
view release on metacpan or search on metacpan
my $h = { yomomma => q!so fat! };
print deref("$h")->{yomomma};
my $val = deref("HASH(0x0)");
# doesnt die, returns undef
view release on metacpan or search on metacpan
lib/Acme/RemoteINC.pm view on Meta::CPAN
else { push @subdirs, $self->{perl_root} }
foreach my $path (@subdirs) {
$self->{ftp}->cwd($path);
return $tmpFH if $self->{ftp}->get($filename, $tmpname);
}
return undef;
}
=head1 NAME
Acme::RemoteINC - Slowest Possible Module Loading