Result:
found more than 919 distributions - search limited to the first 2001 files matching your query
( run in 1.945 )
App-cpanminus-reporter
view release on metacpan or search on metacpan
t/data/build.moose.log view on Meta::CPAN
t/attributes/default_class_role_types.t .......................... ok
t/attributes/clone_weak.t ........................................ ok
t/attributes/default_undef.t ..................................... ok
t/attributes/delegation_and_modifiers.t .......................... ok
t/attributes/delegation_arg_aliasing.t ........................... ok
t/attributes/delegation_target_not_loaded.t ...................... ok
t/attributes/inherit_lazy_build.t ................................ ok
t/attributes/illegal_options_for_inheritance.t ................... ok
t/attributes/lazy_no_default.t ................................... ok
t/attributes/misc_attribute_coerce_lazy.t ........................ ok
t/attributes/method_generation_rules.t ........................... ok
t/data/build.moose.log view on Meta::CPAN
t/exceptions/traits.t ............................................ ok
t/exceptions/util.t .............................................. ok
t/exceptions/typeconstraints.t ................................... ok
t/immutable/apply_roles_to_immutable.t ........................... ok
t/immutable/buildargs.t .......................................... ok
t/immutable/constructor_is_not_moose.t ........................... ok
t/immutable/constructor_is_wrapped.t ............................. ok
t/immutable/default_values.t ..................................... ok
t/immutable/definition_context.t ................................. ok
t/immutable/immutable_constructor_error.t ........................ ok
t/immutable/immutable_destroy.t .................................. ok
App-cpanminus
view release on metacpan or search on metacpan
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
$self->chdir($dir) if $dir;
if ($self->{scandeps}) {
return 1; # Don't check if dependencies are installed, since with --scandeps they aren't
}
my @not_ok = $self->unsatisfied_deps(@deps);
if (@not_ok) {
return 0, \@not_ok;
} else {
return 1;
}
}
lib/App/cpanminus/fatscript.pm view on Meta::CPAN
*JSON::PP::reftype = \&Scalar::Util::reftype;
*JSON::PP::refaddr = \&Scalar::Util::refaddr;
}
else{ # This code is from Sclar::Util.
# warn $@;
eval 'sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }';
*JSON::PP::blessed = sub {
local($@, $SIG{__DIE__}, $SIG{__WARN__});
ref($_[0]) ? eval { $_[0]->a_sub_not_likely_to_be_here } : undef;
};
my %tmap = qw(
B::NULL SCALAR
B::HV HASH
B::AV ARRAY
App-cpanreports
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
use Test::Warnings;
use Data::Dumper qw/Dumper/;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('lib/App/cpanreports.pm');
App-cpantimes
view release on metacpan or search on metacpan
*JSON::PP::reftype = \&Scalar::Util::reftype;
*JSON::PP::refaddr = \&Scalar::Util::refaddr;
}
else{ # This code is from Sclar::Util.
# warn $@;
eval 'sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }';
*JSON::PP::blessed = sub {
local($@, $SIG{__DIE__}, $SIG{__WARN__});
ref($_[0]) ? eval { $_[0]->a_sub_not_likely_to_be_here } : undef;
};
my %tmap = qw(
B::NULL SCALAR
B::HV HASH
B::AV ARRAY
App-cpanurl
view release on metacpan or search on metacpan
script/cpanurl view on Meta::CPAN
*App::cpanurl::JSON::PP::reftype = \&Scalar::Util::reftype;
*App::cpanurl::JSON::PP::refaddr = \&Scalar::Util::refaddr;
}
else{ # This code is from Sclar::Util.
# warn $@;
eval 'sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }';
*App::cpanurl::JSON::PP::blessed = sub {
local($@, $SIG{__DIE__}, $SIG{__WARN__});
ref($_[0]) ? eval { $_[0]->a_sub_not_likely_to_be_here } : undef;
};
my %tmap = qw(
B::NULL SCALAR
B::HV HASH
B::AV ARRAY
App-cpm
view release on metacpan or search on metacpan
lib/App/cpm/Master.pm view on Meta::CPAN
}
sub fail ($self, $ctx) {
my @fail_resolve = sort keys $self->{_fail_resolve}->%*;
my @fail_install = sort keys $self->{_fail_install}->%*;
my @not_installed = grep { !$self->{_fail_install}{$_->distfile} && !$_->installed } $self->_final_install_distributions(1);
return if !@fail_resolve && !@fail_install && !@not_installed;
my $detector = App::cpm::CircularDependency->new;
for my $dist (@not_installed) {
my $req = $dist->requirements([qw(configure build test runtime)])->as_array;
$detector->add($dist->distfile, $dist->provides, $req);
}
$detector->finalize;
lib/App/cpm/Master.pm view on Meta::CPAN
my $msg = join " -> ", map { $self->distribution($_)->distvname } @circular;
local $ctx->{logger}{context} = $distvname;
$ctx->log("Detected circular dependencies $msg");
$ctx->log("Failed to install distribution");
}
for my $dist (sort { $a->distvname cmp $b->distvname } grep { !$detected->{$_->distfile} } @not_installed) {
local $ctx->{logger}{context} = $dist->distvname;
$ctx->log("Failed to install distribution, "
."because of installing some dependencies failed");
}
my @fail_install_name = map { CPAN::DistnameInfo->new($_)->distvname || $_ } @fail_install;
my @not_installed_name = map { $_->distvname } @not_installed;
if (@fail_resolve || @fail_install_name) {
$ctx->log("--");
$ctx->log(
"Installation failed. "
. "The direct cause of the failure comes from the following packages/distributions; "
. "you may want to grep this log file by them:"
);
$ctx->log(" * $_") for @fail_resolve, sort @fail_install_name;
}
{ resolve => \@fail_resolve, install => [sort @fail_install_name, @not_installed_name] };
}
sub tasks ($self) { values $self->{tasks}->%* }
sub add_task ($self, $ctx, %task) {
App-depak
view release on metacpan or search on metacpan
lib/App/depak.pm view on Meta::CPAN
}
}
$mpath //= Module::Path::More::module_path(module=>$mod);
unless (defined $mpath) {
if ($self->{skip_not_found}) {
log_info("Path for module '%s' not found, skipped", $mod);
next MOD_TO_ADD;
} else {
die "Can't find path for $mod\n";
}
lib/App/depak.pm view on Meta::CPAN
available.
_
tags => ['category:module-selection'],
},
skip_not_found => {
summary => 'Instead of dying, skip when module to add is not found',
'summary.alt.bool.not' => 'Instead of skipping, die when module to add is not found',
schema => ['bool'],
description => <<'_',
lib/App/depak.pm view on Meta::CPAN
my %args = @_;
my $self = __PACKAGE__->new(%args);
$self->{debug_keep_tempdir} //= $ENV{DEBUG_KEEP_TEMPDIR} // 0;
$self->{skip_not_found} //= $self->{include_prereq} ? 1:0;
my $tempdir = File::Temp::tempdir(CLEANUP => 0);
log_debug("Created tempdir %s", $tempdir);
$self->{tempdir} = $tempdir;
lib/App/depak.pm view on Meta::CPAN
=item * B<shebang> => I<str> (default: "/usr/bin/perl")
Set shebang lineE<sol>path.
=item * B<skip_not_found> => I<bool>
Instead of dying, skip when module to add is not found.
This option is useful when you use C<include_prereq>, because modules without its
own .pm files will also be included (CPAN indexes packages, including those that
App-devmode
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 4 + 1;
use Test::NoWarnings;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('lib/App/devmode.pm');
App-diff2vba
view release on metacpan or search on metacpan
"MSWin32",
]
[release]
branch = "main"
do_not_upload_to_cpan = 0
App-diffdir
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('bin/diffdir');
App-digestarchive
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
App-errnos
view release on metacpan or search on metacpan
lib/App/errnos.pm view on Meta::CPAN
=item * B<number.min> => I<int>
Only return records where the 'number' field is greater than or equal to specified value.
=item * B<number.not_in> => I<array[int]>
Only return records where the 'number' field is not in the specified values.
=item * B<number.xmax> => I<int>
lib/App/errnos.pm view on Meta::CPAN
=item * B<string.min> => I<str>
Only return records where the 'string' field is greater than or equal to specified value.
=item * B<string.not_contains> => I<str>
Only return records where the 'string' field does not contain specified text.
=item * B<string.not_in> => I<array[str]>
Only return records where the 'string' field is not in the specified values.
=item * B<string.xmax> => I<str>
App-filewatch
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
sub module_boilerplate_ok {
my ($module) = @_;
subtest $module => sub {
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('bin/file-watch');
App-financeta
view release on metacpan or search on metacpan
lib/App/financeta/language.pm view on Meta::CPAN
my ($self, $got) = @_;
$got = '==' if ($got =~ /is|equals/i);
return { compare => $got};
}
sub got_not_op {
my ($self, $got) = @_;
$got = lc $got;
$got = '!' if $got eq 'not';
return { complement => $got };
}
App-finddo
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
#@plural{@no_change} = @no_change;
#
#
#
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_finddo view on Meta::CPAN
#thus
#various
#yes
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
#
#
#
#
script/_finddo view on Meta::CPAN
#
#sub to_singular
#{
# my ($word) = @_;
# my $singular = $word;
# if (! $not_plural{$word}) {
# if ($plural{$word}) {
# $singular = $plural{$word};
# }
# elsif ($word =~ /s$/) {
# if ($word =~ /'s$/) {
App-genpw-base56
view release on metacpan or search on metacpan
script/_genpw-base56 view on Meta::CPAN
#@plural{@no_change} = @no_change;
#
#
#
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_genpw-base56 view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
#
#
#
#
script/_genpw-base56 view on Meta::CPAN
#
#sub to_singular
#{
# my ($word) = @_;
# my $singular = $word;
# if (! $not_plural{$word}) {
# if ($plural{$word}) {
# $singular = $plural{$word};
# }
# elsif ($word =~ /s$/) {
# if ($word =~ /'s$/) {
App-genpw-base58
view release on metacpan or search on metacpan
script/_genpw-base58 view on Meta::CPAN
#@plural{@no_change} = @no_change;
#
#
#
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_genpw-base58 view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
#
#
#
#
script/_genpw-base58 view on Meta::CPAN
#
#sub to_singular
#{
# my ($word) = @_;
# my $singular = $word;
# if (! $not_plural{$word}) {
# if ($plural{$word}) {
# $singular = $plural{$word};
# }
# elsif ($word =~ /s$/) {
# if ($word =~ /'s$/) {
App-genpw-base64
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
#@plural{@no_change} = @no_change;
#
#
#
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_genpw-base64 view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
#
#
#
#
script/_genpw-base64 view on Meta::CPAN
#
#sub to_singular
#{
# my ($word) = @_;
# my $singular = $word;
# if (! $not_plural{$word}) {
# if ($plural{$word}) {
# $singular = $plural{$word};
# }
# elsif ($word =~ /s$/) {
# if ($word =~ /'s$/) {
App-genpw-id
view release on metacpan or search on metacpan
script/_genpw-id view on Meta::CPAN
## References:
#
## http://wiki.answers.com/Q/What_are_some_examples_of_singular_nouns_ending_in_S
## http://virtuallinguist.typepad.com/the_virtual_linguist/2009/10/singular-nouns-ending-in-s.html
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_genpw-id view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
## A store of words which end in "oe" and whose plural ends in "oes".
#
## References
## http://www.scrabblefinder.com/ends-with/oe/
script/_genpw-id view on Meta::CPAN
#sub to_singular
#{
# my ($word) = @_;
# # The return value.
# my $singular = $word;
# if (! $not_plural{$word}) {
# # The word is not in the list of exceptions.
# if ($plural{$word}) {
# # The word has an irregular plural, like "children", or
# # "geese", so look up the singular in the table.
# $singular = $plural{$word};
App-genpw-ind
view release on metacpan or search on metacpan
script/_genpw-ind view on Meta::CPAN
## References:
#
## http://wiki.answers.com/Q/What_are_some_examples_of_singular_nouns_ending_in_S
## http://virtuallinguist.typepad.com/the_virtual_linguist/2009/10/singular-nouns-ending-in-s.html
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_genpw-ind view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
## A store of words which end in "oe" and whose plural ends in "oes".
#
## References
## http://www.scrabblefinder.com/ends-with/oe/
script/_genpw-ind view on Meta::CPAN
#sub to_singular
#{
# my ($word) = @_;
# # The return value.
# my $singular = $word;
# if (! $not_plural{$word}) {
# # The word is not in the list of exceptions.
# if ($plural{$word}) {
# # The word has an irregular plural, like "children", or
# # "geese", so look up the singular in the table.
# $singular = $plural{$word};
App-ghmulti
view release on metacpan or search on metacpan
xt/author/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/author/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/ghmulti.pm');
App-git_log_ch_usrdata
view release on metacpan or search on metacpan
xt/author/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/author/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/App/git_log_ch_usrdata.pm');
App-grep-email
view release on metacpan or search on metacpan
lib/App/grep/email.pm view on Meta::CPAN
comment_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
comment_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
comment_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
address_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
address_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
address_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
host_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
host_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
host_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
user_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
user_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
user_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
name_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
name_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
name_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
index($email->comment , $fargs->{comment_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{comment_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->comment), lc($fargs->{comment_not_contains})) < 0 :
index($email->comment , $fargs->{comment_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{comment_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
index($email->address , $fargs->{address_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{address_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->address), lc($fargs->{address_not_contains})) < 0 :
index($email->address , $fargs->{address_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{address_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
index($email->host , $fargs->{host_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{host_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->host), lc($fargs->{host_not_contains})) < 0 :
index($email->host , $fargs->{host_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{host_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
index($email->user , $fargs->{user_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{user_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->user), lc($fargs->{user_not_contains})) < 0 :
index($email->user , $fargs->{user_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{user_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
index($email->name , $fargs->{name_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{name_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->name), lc($fargs->{name_not_contains})) < 0 :
index($email->name , $fargs->{name_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{name_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
=item * B<address_contains> => I<str>
=item * B<address_matches> => I<re>
=item * B<address_not_contains> => I<str>
=item * B<color> => I<str> (default: "auto")
=item * B<comment_contains> => I<str>
=item * B<comment_matches> => I<re>
=item * B<comment_not_contains> => I<str>
=item * B<count> => I<true>
Supress normal output, return a count of matching lines.
lib/App/grep/email.pm view on Meta::CPAN
=item * B<host_contains> => I<str>
=item * B<host_matches> => I<re>
=item * B<host_not_contains> => I<str>
=item * B<ignore_case> => I<bool>
=item * B<invert_match> => I<bool>
lib/App/grep/email.pm view on Meta::CPAN
=item * B<name_contains> => I<str>
=item * B<name_matches> => I<re>
=item * B<name_not_contains> => I<str>
=item * B<quiet> => I<true>
=item * B<user_contains> => I<str>
=item * B<user_matches> => I<re>
=item * B<user_not_contains> => I<str>
=back
Returns an enveloped result (an array).
App-grep-url
view release on metacpan or search on metacpan
lib/App/grep/url.pm view on Meta::CPAN
scheme_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
scheme_not_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
scheme_matches => {
schema => 're*',
lib/App/grep/url.pm view on Meta::CPAN
host_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
host_not_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
host_matches => {
schema => 're*',
lib/App/grep/url.pm view on Meta::CPAN
path_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
path_not_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
path_matches => {
schema => 're*',
lib/App/grep/url.pm view on Meta::CPAN
query_param_contains => {
schema => ['hash*', of=>'str*'],
tags => ['category:url-criteria'],
},
query_param_not_contains => {
schema => ['hash*', of=>'str*'],
tags => ['category:url-criteria'],
},
query_param_matches => {
schema => ['hash*', of=>'str*'], # XXX of re
lib/App/grep/url.pm view on Meta::CPAN
index($url->scheme , $fargs->{scheme_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{scheme_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($url->scheme), lc($fargs->{scheme_not_contains})) < 0 :
index($url->scheme , $fargs->{scheme_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{scheme_matches}) {
lib/App/grep/url.pm view on Meta::CPAN
index($url->host , $fargs->{host_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{host_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($url->host), lc($fargs->{host_not_contains})) < 0 :
index($url->host , $fargs->{host_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{host_matches}) {
lib/App/grep/url.pm view on Meta::CPAN
index($url->path , $fargs->{path_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{path_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($url->path), lc($fargs->{path_not_contains})) < 0 :
index($url->path , $fargs->{path_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{path_matches}) {
lib/App/grep/url.pm view on Meta::CPAN
} else {
next URL;
}
}
}
if (defined $fargs->{query_param_not_contains}) {
for my $param (keys %{ $fargs->{query_param_not_contains} }) {
if ($fargs->{ignore_case} ?
index((lc($url->query_param($param)) // ''), lc($fargs->{query_param_not_contains}{$param})) < 0 :
index(($url->query_param($param) // '') , $fargs->{query_param_not_contains}{$param}) < 0) {
} else {
next URL;
}
}
}
lib/App/grep/url.pm view on Meta::CPAN
=item * B<host_contains> => I<str>
=item * B<host_matches> => I<re>
=item * B<host_not_contains> => I<str>
=item * B<ignore_case> => I<bool>
=item * B<invert_match> => I<bool>
lib/App/grep/url.pm view on Meta::CPAN
=item * B<path_contains> => I<str>
=item * B<path_matches> => I<re>
=item * B<path_not_contains> => I<str>
=item * B<query_param_contains> => I<hash>
=item * B<query_param_matches> => I<hash>
=item * B<query_param_not_contains> => I<hash>
=item * B<quiet> => I<true>
=item * B<scheme_contains> => I<str>
=item * B<scheme_matches> => I<re>
=item * B<scheme_not_contains> => I<str>
=item * B<schemes> => I<array[str]> (default: ["http","file"])
=back
App-hopen
view release on metacpan or search on metacpan
lib/App/hopen.pm view on Meta::CPAN
my $merger = Hash::Merge->new('RETAINMENT_PRECEDENT');
# == Set up code pieces related to phase control ==
my ($set_phase, $cannot_set_phase, $cannot_set_phase_warn);
my $setting_phase_allowed = false;
# Note: all phase-setting functions succeed if there was nothing
# for them to do!
lib/App/hopen.pm view on Meta::CPAN
$App::hopen::BuildSystemGlobals::Phase = $new_phase;
$App::hopen::_did_set_phase = true;
) .
($opts{quiet} ? '' : 'say "Running $new_phase phase";') . "}\n";
$cannot_set_phase = q(
sub can_set_phase { false }
sub set_phase {
my $new_phase = shift // '';
return if $App::hopen::BuildSystemGlobals::Phase eq $new_phase;
croak "I'm sorry, but this file (``$FILENAME'') is not allowed to set the phase"
}
);
$cannot_set_phase_warn = q(
sub can_set_phase { false }
sub set_phase {
my $new_phase = shift // '';
return if $App::hopen::BuildSystemGlobals::Phase eq $new_phase;
) .
lib/App/hopen.pm view on Meta::CPAN
if(ref $fn eq 'HASH') { # it's a -e
hlog { 'Processing', $fn->{name} };
$file_text = $fn->{text};
$friendly_name = $fn->{name};
$pkg_name = 'CmdLineE' . $fn->{num} . '_' . $_hf_pkg_idx++;
$phase_text .= defined($opts{phase}) ? $cannot_set_phase : $set_phase;
# -e's can set phase unless --phase was specified
} else {
hlog { 'Processing', $fn };
$file_text = file($fn)->slurp;
lib/App/hopen.pm view on Meta::CPAN
} else {
# For MY.hopen.pl, when --phase is set, set_phase doesn't croak.
# If this were not the case, every second or subsequent run
# of hopen(1) would croak if --phase were specified!
$phase_text .= isMYH($fn) ? $cannot_set_phase_warn : $cannot_set_phase;
# TODO? permit regular hopen files to set the the phase if
# neither MYH nor the command line did, and we're at the first
# phase. This is so the hopen file can say `set_phase 'Gen';`
# if there's nothing to do during Check.
}
App-hr
view release on metacpan or search on metacpan
## References:
#
## http://wiki.answers.com/Q/What_are_some_examples_of_singular_nouns_ending_in_S
## http://virtuallinguist.typepad.com/the_virtual_linguist/2009/10/singular-nouns-ending-in-s.html
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
## A store of words which end in "oe" and whose plural ends in "oes".
#
## References
## http://www.scrabblefinder.com/ends-with/oe/
#sub to_singular
#{
# my ($word) = @_;
# # The return value.
# my $singular = $word;
# if (! $not_plural{$word}) {
# # The word is not in the list of exceptions.
# if ($plural{$word}) {
# # The word has an irregular plural, like "children", or
# # "geese", so look up the singular in the table.
# $singular = $plural{$word};
# my $q_ps =
# $opt_ps eq '-' ? "\\-" :
# $opt_ps eq '/' ? '/' :
# quotemeta($opt_ps);
#
# my $re_not_ps = "[^$q_ps]";
# my $re_not_dot = "[^.]";
# my $re_not_dot_or_ps = "[^.$q_ps]";
#
# my @res;
# my $p;
# my $after_pathsep;
# while ($str =~ /$RE_WILDCARD_BASH/g) {
# } elsif (defined($p = $m{bash_joker})) {
# if ($p eq '?') {
# push @res, '.';
# } elsif ($p eq '*' || $p eq '**' && !$opt_globstar) {
# push @res, $opt_dotglob || (@res && !$after_pathsep) ?
# "$re_not_ps*" : "$re_not_dot_or_ps$re_not_ps*";
# } elsif ($p eq '**') { # and with 'globstar' option set
# if ($opt_dotglob) {
# push @res, '.*';
# } elsif (@res && !$after_pathsep) {
# push @res, "(?:$re_not_ps*)(?:$q_ps+$re_not_dot_or_ps$re_not_ps*)*";
# } else {
# push @res, "(?:$re_not_dot_or_ps$re_not_ps*)(?:$q_ps+$re_not_dot_or_ps$re_not_ps*)*";
# }
# }
#
# } elsif (defined($p = $m{literal_brace_single_element})) {
# push @res, quotemeta($p);
App-htmlcat
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
App-ipchgmon
view release on metacpan or search on metacpan
t/20-file.t view on Meta::CPAN
# If the directory is not writable, the tests cannot pass,
# so ignore them
plan skip_all => 'Unable to write files' unless -w $RealBin;
my $fqname = $RealBin . '/test.txt';
file_not_exists_ok($fqname, 'File should not exist yet');
my $rtn = qx($invoke --file $fqname --server example.com 2>&1);
file_exists_ok($fqname, 'File should be created if it doesn\'t exist ...');
file_not_empty_ok($fqname, '... and should contain something.');
unlink $fqname or warn "Unable to delete $fqname at end of tests.";
done_testing;
App-japerl
view release on metacpan or search on metacpan
local $/ = undef; # slurp mode
my $data = <FH>;
close FH;
#-----------------------------------------------------------------------------
# Kwalitee Indicator: buildtool_not_executable core
# The build tool (Build.PL/Makefile.PL) is executable. This is bad because
# you should specify which perl you want to use while installing.
#
# How to fix
# Change the permissions of Build.PL/Makefile.PL to not-executable.
# Test::Harness::runtests cannot work heavy load.
sub _runtests {
my @script = @_;
my @fail_testno = ();
my $ok_script = 0;
my $not_ok_script = 0;
my $total_ok = 0;
my $total_not_ok = 0;
# cygwin warning:
# MS-DOS style path detected: C:/cpan/Char-X.XX
# Preferred POSIX equivalent is: /cygdrive/c/cpan/Char-X.XX
# CYGWIN environment variable option "nodosfilewarning" turns off this warning.
for my $script (@script) {
next if not -e $script;
my $testno = 1;
my $ok = 0;
my $not_ok = 0;
if (my @result = qx{$^X $script}) {
if (my($tests) = shift(@result) =~ /^1..([0-9]+)/) {
for my $result (@result) {
if ($result =~ /^ok /) {
$ok++;
}
elsif ($result =~ /^not ok /) {
push @{$fail_testno[$scriptno]}, $testno;
$not_ok++;
}
$testno++;
}
if ($ok == $tests) {
printf("$script ok\n");
$ok_script++;
}
else {
printf("$script Failed %d/%d subtests\n", $not_ok, $ok+$not_ok);
$not_ok_script++;
}
}
}
$total_ok += $ok;
$total_not_ok += $not_ok;
$scriptno++;
}
if (scalar(@script) == $ok_script) {
printf <<'END', scalar(@script), $total_ok + $total_not_ok;
All tests successful.
Files=%d, Tests=%d
Result: PASS
END
}
print $script[$scriptno], "\n";
print ' Failed test: ', join(', ', @{$fail_testno[$scriptno]}), "\n";
}
$scriptno++;
}
printf("Files=%d, Tests=%d\n", scalar(@script), $total_ok + $total_not_ok);
printf("Result: FAIL\n");
printf("Failed %d/%d test programs. %d/%d subtests failed.\n", $not_ok_script, scalar(@script), $total_not_ok, $total_ok + $total_not_ok);
}
}
sub check_usascii {
my($file) = @_;
App-jl
view release on metacpan or search on metacpan
t/01_basic.t view on Meta::CPAN
ok $output =~ m!foo!;
});
{
my $like_json_not_json = '{"not":"JSON"';
jl_test('LIKE_JSON_NOT_JSON', $like_json_not_json, [], sub {
my ($output, $src) = @_;
is $output, $like_json_not_json;
});
}
jl_test('SORT_KEYS', encode_json({ z => 1, b => 1, a => 1 }), [], sub {
my ($output, $src) = @_;
( run in 1.945 second using v1.01-cache-2.11-cpan-39bf76dae61 )