view release on metacpan or search on metacpan
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHs|5.010001||p
view release on metacpan or search on metacpan
lib/Archive/SCS/Zip.pm view on Meta::CPAN
method handles_path :common ($path, $header) {
$header =~ /^\Q$LOCAL_HEADER_SIGNATURE\E/
# According to the "appnote" spec, ZIP files don't begin with magic. Instead,
# we'd need to scan the file's last 66 KB for the "end of central directory
# record" signature, then heuristically determine if it looks like a ZIP file.
# However, in practice, the overwhelming majority of ZIP files starts with a
# "local file header" signature, which we can simply check for here.
}
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHs|5.011000||p
view release on metacpan or search on metacpan
lib/Archive/Tar/Stream.pm view on Meta::CPAN
$header->{size} and returns it as $newheader it's all good.
you don't have to change the file of course, it's also good just as a way to
view the contents of some files as you stream them.
A standard usage pattern looks like this:
$ts->StreamCopy(sub {
my ($header, $outpos, $fs) = @_;
# simple checks
view release on metacpan or search on metacpan
lib/Archive/Tar.pm view on Meta::CPAN
an already open filehandle (or an IO::Zlib object if it's compressed)
The C<read> will I<replace> any previous content in C<$tar>!
The second argument may be considered optional, but remains for
backwards compatibility. Archive::Tar now looks at the file
magic to determine what class should be used to open the file
and will transparently Do The Right Thing.
Archive::Tar will warn if you try to pass a bzip2 / xz compressed file and the
IO::Uncompress::Bunzip2 / IO::Uncompress::UnXz are not available and simply return.
view release on metacpan or search on metacpan
listkids|||
list|||
load_module_nocontext|||vn
load_module||5.006000|v
localize|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHu|5.009002||p
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
lib/Archive/Zip/DirectoryMember.pm view on Meta::CPAN
my $newName = shift;
$newName =~ s{/?$}{/} if defined($newName);
return $self->SUPER::fileName($newName);
}
# So people don't get too confused. This way it looks like the problem
# is in their code...
sub contents {
return wantarray ? (undef, AZ_OK) : undef;
}
view release on metacpan or search on metacpan
examples/test.pl view on Meta::CPAN
use Archlinux::Term;
status 'Starting to test messages';
substatus 'Engaging our test any day now...';
msg 'Okay looks good';
warning q{Wait, we're going too fast!};
error 'Oh boy an error happened!';
view release on metacpan or search on metacpan
$opt{'compat-version'} = 5.003_07 unless exists $opt{'compat-version'};
$opt{'compat-version'} = int_parse_version($opt{'compat-version'});
my $int_min_perl = int_parse_version(5.003_07);
# Each element of this hash looks something like:
# 'Poison' => {
# 'base' => '5.008000',
# 'provided' => 1,
# 'todo' => '5.003007'
# },
LOOKBEHIND_END_t8|||Viu
LOOKBEHIND_END_tb_p8|||Viu
LOOKBEHIND_END_tb_pb|||Viu
LOOKBEHIND_END_tb|||Viu
LOOKBEHIND_END|||Viu
looks_like_bool|5.027008||Viu
looks_like_number|5.003007|5.003007|
LOOP_PAT_MODS|5.009005||Viu
lop|5.005000||Viu
lossless_NV_to_IV|5.031001||Vniu
LOWEST_ANYOF_HRx_BYTE|5.031002||Viu
L_R_TZSET|5.009005|5.009005|Vn
* otherwise call the original that doesn't have an upper limit parameter */
# define D_PPP_GENERIC_MULTI_ARG_TO(name, s, e,r,l) \
(((((e) - (s)) <= 0) \
/* We could just do nothing, but modern perls croak */ \
? (croak("Attempting case change on zero length string"), \
0) /* So looks like it returns something, and will compile */ \
: ((e) - (s)) < UTF8SKIP(s)) \
? (croak(D_PPP_TOO_SHORT_MSG, \
s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
0) \
: D_PPP_TO_ ## name ## _CALLEE(s,r,l))
#endif
# define D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(name, s, e, r, l) \
(((((e) - (s)) <= 0) \
? (croak("Attempting case change on zero length string"), \
0) /* So looks like it returns something, and will compile */ \
: ((e) - (s)) < UTF8SKIP(s)) \
? (croak(D_PPP_TOO_SHORT_MSG, \
s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
0) \
/* Get the changed code point and store its UTF-8 */ \
view release on metacpan or search on metacpan
lib/Arepa/Repository.pm view on Meta::CPAN
problems.
=item get_package_list
Returns a data structure representing all the available packages in all the
known distributions. The data structure is a hash that looks like this:
(foobar => { "lenny/main" => { "1.0-1" => ['source'] } },
pkg2 => { "lenny/main" => { "1.0-1" => [qw(amd64 source)],
"1.0-2" => ['i386'], },
"etch/contrib" =>
view release on metacpan or search on metacpan
Arguments.pm view on Meta::CPAN
$longmess = Carp::longmess ('');
}
$longmess =~ s/\n.*//s;
# The funky last argument is so that croak looks right
push @DELAYED_CHECKS,
[$package, $coderef, [@arguments], $longmess];
}
grep !/^$Arguments_Package\s*\(/, @attributes;
view release on metacpan or search on metacpan
}
return $self;
}
# Replace the instance's prog(), opt(), and args() vectors all together.
# Without arguments, return the command as it currently looks either as
# a list or a string depending on context.
sub argv {
my $self = shift;
if (@_) {
$self->attrs(shift) if ref($_[0]) eq 'HASH';
# This is necessarily an inexact science.
my @fragments = split ' ', $word;
for (@fragments) {
if (m%^"?/%) {
if (m%(.*/\w+):(.+)%) {
# If it looks like an option specifying a path (/opt:path),
# normalize only the path part.
my($opt, $path) = ($1, $2);
$path =~ s%/%\\%g;
$_ = "$opt:$path";
} else {
view release on metacpan or search on metacpan
doc/documentation.en.md view on Meta::CPAN
So I introduced a few changes into Emacs' configuration file to
include E-lisp functions doing these changes. This is still the
interactive variant with `query-`, because some changes are useless,
or even plain wrong. For example, when changing method calls from a
Raku-like dot to a Perl-like arrow `->`, I must avoid modifying a file
name such as `foo.csv` just because it looks like a method call. Not
all changes were coded, because some of them need some thinking, such
as replacing `%label<TIT01>` by `$label{TIT01}` or changing
```
# Raku
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
lib/Array/Contains.pm view on Meta::CPAN
=head2 contains()
C<contains()> takes one scalar and one array reference and returns true (1) if
the scalar is contained in the array. C<contains()> does NOT do recursive lookups,
but only looks into the root array.
=head1 SEE ALSO
L<List::Util>
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
lib/Array/Find.pm view on Meta::CPAN
$SPEC{find_in_array} = {
v => 1.1,
summary => 'Find items in array, with several options',
description => <<'_',
find_in_array looks for one or more items in one or more arrays and return an
array containing all or some results (empty arrayref if no results found). You
can specify several options, like maximum number of results, maximum number of
comparisons, searching by suffix/prefix, case sensitivity, etc. Consult the list
of arguments for more details.
lib/Array/Find.pm view on Meta::CPAN
=head2 find_in_array(%args) -> any
Find items in array, with several options.
find_in_array looks for one or more items in one or more arrays and return an
array containing all or some results (empty arrayref if no results found). You
can specify several options, like maximum number of results, maximum number of
comparisons, searching by suffix/prefix, case sensitivity, etc. Consult the list
of arguments for more details.
view release on metacpan or search on metacpan
0.08 2012-03-28 Released-By: SHARYANTO
- peek(), look_back(), has_next(), has_previous() now accept optional
integer argument for arbitrary lookup, e.g. peek(2) looks at the next
next item, peek(1) is the same as peek() (implemented by Alexey
Surikov, github#2).
0.07 2011-09-09 Released-By: SHARYANTO
view release on metacpan or search on metacpan
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHs|5.011000||p
view release on metacpan or search on metacpan
t/lib/Test/Easy.pm view on Meta::CPAN
my $name = shift;
my $test = pop;
my $caller = caller;
Test::More::diag(<<UH_OH) unless $subtest_warning_already_shown{$caller}++;
Uh-oh, it looks like the test you're running uses
'subtest', but your version of Test::More doesn't actually
support subtest. I'm faking out a 'subtest' for you.
Please just make sure the tests pass - don't worry about
failures that are solely related to test counts.
UH_OH
view release on metacpan or search on metacpan
lib/Array/Stream/Transactional/Matcher/Value.pm view on Meta::CPAN
=head1 RULES
=head2 Array::Stream::Transactional::Matcher::Value::eq
Does B<==> if it looks like a number, otherwise it does an B<eq>
=over 4
=item new ( $VALUE )
lib/Array/Stream/Transactional/Matcher/Value.pm view on Meta::CPAN
=back
=head2 Array::Stream::Transactional::Matcher::Value::ne
Does B<!=> if it looks like a number, otherwise it does an B<ne>
=over 4
=item new ( $VALUE )
lib/Array/Stream/Transactional/Matcher/Value.pm view on Meta::CPAN
=back
=head2 Array::Stream::Transactional::Matcher::Value::gt
Does B<E<gt>> if it looks like a number, otherwise it does an B<gt>
=over 4
=item new ( $VALUE )
lib/Array/Stream/Transactional/Matcher/Value.pm view on Meta::CPAN
=back
=head2 Array::Stream::Transactional::Matcher::Value::lt
Does B<E<lt>> if it looks like a number, otherwise it does an B<lt>
=over 4
=item new ( $VALUE )
lib/Array/Stream/Transactional/Matcher/Value.pm view on Meta::CPAN
=back
=head2 Array::Stream::Transactional::Matcher::Value::ge
Does B<E<gt>=> if it looks like a number, otherwise it does an B<le>
=over 4
=item new ( $VALUE )
lib/Array/Stream/Transactional/Matcher/Value.pm view on Meta::CPAN
=back
=head2 Array::Stream::Transactional::Matcher::Value::le
Does B<E<lt>=> if it looks like a number, otherwise it does an B<le>
=over 4
=item new ( $VALUE )
view release on metacpan or search on metacpan
lib/Array/To/Moose.pm view on Meta::CPAN
if ((my $ref = ref($value)) eq 'HASH') {
$sub_desc->{$name} = $value;
} elsif ($ref eq 'ARRAY') {
# descr entry looks like, e.g.:
# attrib => [6],
#
# ( or attrib => [key => 6, value => 7], in future... ?)
croak "attribute must be of form, e.g.: '$name => [N], "
view release on metacpan or search on metacpan
lib/Array/Window.pm view on Meta::CPAN
# OR
Array::Window->new( source => \@array,
window_start => 0, window_end => 9 );
Although the second option looks a little silly, bear in mind that Array::Window
will not assume that just because you WANT a window from 0 - 9, it's actually
going to fit the size of the array.
Please note that the object does NOT make a copy or otherwise retain information
about the array, so if you change the array later, you will need to create a new
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
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.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
looker
lookers
looking
lookout
lookouts
looks
lookup
lookups
loom
loomed
looming
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
outliver
outlivers
outlives
outliving
outlook
outlooks
outlove
outloved
outloves
outloving
outlying
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
overloads
overlong
overlook
overlooked
overlooking
overlooks
overlord
overlorded
overlording
overlords
overlordship
lib/ArrayData/Lingua/Word/EN/Enable.pm view on Meta::CPAN
relocking
relocks
relook
relooked
relooking
relooks
relubricate
relubricated
relubricates
relubricating
relubrication
view release on metacpan or search on metacpan
lib/ArrayData/Lingua/Word/EN/Wordle.pm view on Meta::CPAN
looed
looey
loofa
loofs
looie
looks
looky
looms
loons
loony
loops
view release on metacpan or search on metacpan
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
looker
lookers
looking
lookout
lookouts
looks
lookup
lookups
loom
loomed
looming
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
outliver
outlivers
outlives
outliving
outlook
outlooks
outlove
outloved
outloves
outloving
outlying
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
overloads
overlong
overlook
overlooked
overlooking
overlooks
overlord
overlorded
overlording
overlords
overlordship
lib/ArrayData/Word/EN/Enable.pm view on Meta::CPAN
relocking
relocks
relook
relooked
relooking
relooks
relubricate
relubricated
relubricates
relubricating
relubrication
view release on metacpan or search on metacpan
#!/usr/bin/perl
use ArrayHashMonster;
# Hi. What am I for?
# I provide a reference that looks like a reference to an array and
# like a reference to a hash at the same time.
# If $z is an ArrayHashMonster object, then you can ask for either of
# $z->{foo} or $z->[7].
#
# Some sample demonstration uses follow.
view release on metacpan or search on metacpan
lib/Articulate/Role/Storage.pm view on Meta::CPAN
$self->caching->clear_cache( meta => $_[0] );
$self->caching->clear_cache( content => $_[0] );
# what about children?
# Three possible approaches:
# 1. clear cache of anything that looks le it might be a child
# 2. storage deletion should recursively delete for all children
# 3. storage should return an arrayref of items it deleted
return $return;
};