Result:
found more than 919 distributions - search limited to the first 2001 files matching your query
( run in 2.969 )
App-BPOMUtils-Table-FoodAdditive
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<additive_group.min> => I<str>
Only return records where the 'additive_group' field is greater than or equal to specified value.
=item * B<additive_group.not_contains> => I<str>
Only return records where the 'additive_group' field does not contain specified text.
=item * B<additive_group.not_in> => I<array[str]>
Only return records where the 'additive_group' field is not in the specified values.
=item * B<additive_group.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<additive_name.min> => I<str>
Only return records where the 'additive_name' field is greater than or equal to specified value.
=item * B<additive_name.not_contains> => I<str>
Only return records where the 'additive_name' field does not contain specified text.
=item * B<additive_name.not_in> => I<array[str]>
Only return records where the 'additive_name' field is not in the specified values.
=item * B<additive_name.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<food_category_name.min> => I<str>
Only return records where the 'food_category_name' field is greater than or equal to specified value.
=item * B<food_category_name.not_contains> => I<str>
Only return records where the 'food_category_name' field does not contain specified text.
=item * B<food_category_name.not_in> => I<array[str]>
Only return records where the 'food_category_name' field is not in the specified values.
=item * B<food_category_name.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<food_category_number.min> => I<str>
Only return records where the 'food_category_number' field is greater than or equal to specified value.
=item * B<food_category_number.not_contains> => I<str>
Only return records where the 'food_category_number' field does not contain specified text.
=item * B<food_category_number.not_in> => I<array[str]>
Only return records where the 'food_category_number' field is not in the specified values.
=item * B<food_category_number.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<id.min> => I<str>
Only return records where the 'id' field is greater than or equal to specified value.
=item * B<id.not_contains> => I<str>
Only return records where the 'id' field does not contain specified text.
=item * B<id.not_in> => I<array[str]>
Only return records where the 'id' field is not in the specified values.
=item * B<id.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<information.min> => I<str>
Only return records where the 'information' field is greater than or equal to specified value.
=item * B<information.not_contains> => I<str>
Only return records where the 'information' field does not contain specified text.
=item * B<information.not_in> => I<array[str]>
Only return records where the 'information' field is not in the specified values.
=item * B<information.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<ins_number.min> => I<str>
Only return records where the 'ins_number' field is greater than or equal to specified value.
=item * B<ins_number.not_contains> => I<str>
Only return records where the 'ins_number' field does not contain specified text.
=item * B<ins_number.not_in> => I<array[str]>
Only return records where the 'ins_number' field is not in the specified values.
=item * B<ins_number.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<limit.min> => I<str>
Only return records where the 'limit' field is greater than or equal to specified value.
=item * B<limit.not_contains> => I<str>
Only return records where the 'limit' field does not contain specified text.
=item * B<limit.not_in> => I<array[str]>
Only return records where the 'limit' field is not in the specified values.
=item * B<limit.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<limit_unit.min> => I<str>
Only return records where the 'limit_unit' field is greater than or equal to specified value.
=item * B<limit_unit.not_contains> => I<str>
Only return records where the 'limit_unit' field does not contain specified text.
=item * B<limit_unit.not_in> => I<array[str]>
Only return records where the 'limit_unit' field is not in the specified values.
=item * B<limit_unit.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<note.min> => I<str>
Only return records where the 'note' field is greater than or equal to specified value.
=item * B<note.not_contains> => I<str>
Only return records where the 'note' field does not contain specified text.
=item * B<note.not_in> => I<array[str]>
Only return records where the 'note' field is not in the specified values.
=item * B<note.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodAdditive.pm view on Meta::CPAN
=item * B<status.min> => I<str>
Only return records where the 'status' field is greater than or equal to specified value.
=item * B<status.not_contains> => I<str>
Only return records where the 'status' field does not contain specified text.
=item * B<status.not_in> => I<array[str]>
Only return records where the 'status' field is not in the specified values.
=item * B<status.xmax> => I<str>
App-BPOMUtils-Table-FoodCategory
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
=item * B<code.min> => I<str>
Only return records where the 'code' field is greater than or equal to specified value.
=item * B<code.not_contains> => I<str>
Only return records where the 'code' field does not contain specified text.
=item * B<code.not_in> => I<array[str]>
Only return records where the 'code' field is not in the specified values.
=item * B<code.not_matches> => I<str>
Only return records where the 'code' field does not match specified regular expression.
=item * B<code.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
=item * B<name.min> => I<str>
Only return records where the 'name' field is greater than or equal to specified value.
=item * B<name.not_contains> => I<str>
Only return records where the 'name' field does not contain specified text.
=item * B<name.not_in> => I<array[str]>
Only return records where the 'name' field is not in the specified values.
=item * B<name.not_matches> => I<str>
Only return records where the 'name' field does not match specified regular expression.
=item * B<name.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
=item * B<status.min> => I<str>
Only return records where the 'status' field is greater than or equal to specified value.
=item * B<status.not_contains> => I<str>
Only return records where the 'status' field does not contain specified text.
=item * B<status.not_in> => I<array[str]>
Only return records where the 'status' field is not in the specified values.
=item * B<status.not_matches> => I<str>
Only return records where the 'status' field does not match specified regular expression.
=item * B<status.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodCategory.pm view on Meta::CPAN
=item * B<summary.min> => I<str>
Only return records where the 'summary' field is greater than or equal to specified value.
=item * B<summary.not_contains> => I<str>
Only return records where the 'summary' field does not contain specified text.
=item * B<summary.not_in> => I<array[str]>
Only return records where the 'summary' field is not in the specified values.
=item * B<summary.not_matches> => I<str>
Only return records where the 'summary' field does not match specified regular expression.
=item * B<summary.xmax> => I<str>
App-BPOMUtils-Table-FoodIngredient
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
=item * B<country_of_origin.min> => I<str>
Only return records where the 'country_of_origin' field is greater than or equal to specified value.
=item * B<country_of_origin.not_contains> => I<str>
Only return records where the 'country_of_origin' field does not contain specified text.
=item * B<country_of_origin.not_in> => I<array[str]>
Only return records where the 'country_of_origin' field is not in the specified values.
=item * B<country_of_origin.not_matches> => I<str>
Only return records where the 'country_of_origin' field does not match specified regular expression.
=item * B<country_of_origin.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
=item * B<id.min> => I<int>
Only return records where the 'id' field is greater than or equal to specified value.
=item * B<id.not_in> => I<array[int]>
Only return records where the 'id' field is not in the specified values.
=item * B<id.xmax> => I<int>
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
=item * B<is_herbal.min> => I<str>
Only return records where the 'is_herbal' field is greater than or equal to specified value.
=item * B<is_herbal.not_contains> => I<str>
Only return records where the 'is_herbal' field does not contain specified text.
=item * B<is_herbal.not_in> => I<array[str]>
Only return records where the 'is_herbal' field is not in the specified values.
=item * B<is_herbal.not_matches> => I<str>
Only return records where the 'is_herbal' field does not match specified regular expression.
=item * B<is_herbal.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
=item * B<name.min> => I<str>
Only return records where the 'name' field is greater than or equal to specified value.
=item * B<name.not_contains> => I<str>
Only return records where the 'name' field does not contain specified text.
=item * B<name.not_in> => I<array[str]>
Only return records where the 'name' field is not in the specified values.
=item * B<name.not_matches> => I<str>
Only return records where the 'name' field does not match specified regular expression.
=item * B<name.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
=item * B<origin.min> => I<str>
Only return records where the 'origin' field is greater than or equal to specified value.
=item * B<origin.not_contains> => I<str>
Only return records where the 'origin' field does not contain specified text.
=item * B<origin.not_in> => I<array[str]>
Only return records where the 'origin' field is not in the specified values.
=item * B<origin.not_matches> => I<str>
Only return records where the 'origin' field does not match specified regular expression.
=item * B<origin.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
=item * B<status.min> => I<str>
Only return records where the 'status' field is greater than or equal to specified value.
=item * B<status.not_contains> => I<str>
Only return records where the 'status' field does not contain specified text.
=item * B<status.not_in> => I<array[str]>
Only return records where the 'status' field is not in the specified values.
=item * B<status.not_matches> => I<str>
Only return records where the 'status' field does not match specified regular expression.
=item * B<status.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodIngredient.pm view on Meta::CPAN
=item * B<type.min> => I<str>
Only return records where the 'type' field is greater than or equal to specified value.
=item * B<type.not_contains> => I<str>
Only return records where the 'type' field does not contain specified text.
=item * B<type.not_in> => I<array[str]>
Only return records where the 'type' field is not in the specified values.
=item * B<type.not_matches> => I<str>
Only return records where the 'type' field does not match specified regular expression.
=item * B<type.xmax> => I<str>
App-BPOMUtils-Table-FoodType
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/FoodType.pm view on Meta::CPAN
=item * B<code.min> => I<str>
Only return records where the 'code' field is greater than or equal to specified value.
=item * B<code.not_contains> => I<str>
Only return records where the 'code' field does not contain specified text.
=item * B<code.not_in> => I<array[str]>
Only return records where the 'code' field is not in the specified values.
=item * B<code.not_matches> => I<str>
Only return records where the 'code' field does not match specified regular expression.
=item * B<code.xmax> => I<str>
lib/App/BPOMUtils/Table/FoodType.pm view on Meta::CPAN
=item * B<summary.min> => I<str>
Only return records where the 'summary' field is greater than or equal to specified value.
=item * B<summary.not_contains> => I<str>
Only return records where the 'summary' field does not contain specified text.
=item * B<summary.not_in> => I<array[str]>
Only return records where the 'summary' field is not in the specified values.
=item * B<summary.not_matches> => I<str>
Only return records where the 'summary' field does not match specified regular expression.
=item * B<summary.xmax> => I<str>
App-BPOMUtils-Table-MicrobeInput
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/MicrobeInput.pm view on Meta::CPAN
=item * B<category.min> => I<str>
Only return records where the 'category' field is greater than or equal to specified value.
=item * B<category.not_contains> => I<str>
Only return records where the 'category' field does not contain specified text.
=item * B<category.not_in> => I<array[str]>
Only return records where the 'category' field is not in the specified values.
=item * B<category.not_matches> => I<str>
Only return records where the 'category' field does not match specified regular expression.
=item * B<category.xmax> => I<str>
lib/App/BPOMUtils/Table/MicrobeInput.pm view on Meta::CPAN
=item * B<characteristic.min> => I<str>
Only return records where the 'characteristic' field is greater than or equal to specified value.
=item * B<characteristic.not_contains> => I<str>
Only return records where the 'characteristic' field does not contain specified text.
=item * B<characteristic.not_in> => I<array[str]>
Only return records where the 'characteristic' field is not in the specified values.
=item * B<characteristic.not_matches> => I<str>
Only return records where the 'characteristic' field does not match specified regular expression.
=item * B<characteristic.xmax> => I<str>
lib/App/BPOMUtils/Table/MicrobeInput.pm view on Meta::CPAN
=item * B<id.min> => I<int>
Only return records where the 'id' field is greater than or equal to specified value.
=item * B<id.not_in> => I<array[int]>
Only return records where the 'id' field is not in the specified values.
=item * B<id.xmax> => I<int>
lib/App/BPOMUtils/Table/MicrobeInput.pm view on Meta::CPAN
=item * B<lower_limit.min> => I<str>
Only return records where the 'lower_limit' field is greater than or equal to specified value.
=item * B<lower_limit.not_contains> => I<str>
Only return records where the 'lower_limit' field does not contain specified text.
=item * B<lower_limit.not_in> => I<array[str]>
Only return records where the 'lower_limit' field is not in the specified values.
=item * B<lower_limit.not_matches> => I<str>
Only return records where the 'lower_limit' field does not match specified regular expression.
=item * B<lower_limit.xmax> => I<str>
lib/App/BPOMUtils/Table/MicrobeInput.pm view on Meta::CPAN
=item * B<upper_limit.min> => I<str>
Only return records where the 'upper_limit' field is greater than or equal to specified value.
=item * B<upper_limit.not_contains> => I<str>
Only return records where the 'upper_limit' field does not contain specified text.
=item * B<upper_limit.not_in> => I<array[str]>
Only return records where the 'upper_limit' field is not in the specified values.
=item * B<upper_limit.not_matches> => I<str>
Only return records where the 'upper_limit' field does not match specified regular expression.
=item * B<upper_limit.xmax> => I<str>
App-BPOMUtils-Table-RegCodePrefix
view release on metacpan or search on metacpan
lib/App/BPOMUtils/Table/RegCodePrefix.pm view on Meta::CPAN
=item * B<code.min> => I<str>
Only return records where the 'code' field is greater than or equal to specified value.
=item * B<code.not_contains> => I<str>
Only return records where the 'code' field does not contain specified text.
=item * B<code.not_in> => I<array[str]>
Only return records where the 'code' field is not in the specified values.
=item * B<code.xmax> => I<str>
lib/App/BPOMUtils/Table/RegCodePrefix.pm view on Meta::CPAN
=item * B<division.min> => I<str>
Only return records where the 'division' field is greater than or equal to specified value.
=item * B<division.not_contains> => I<str>
Only return records where the 'division' field does not contain specified text.
=item * B<division.not_in> => I<array[str]>
Only return records where the 'division' field is not in the specified values.
=item * B<division.xmax> => I<str>
lib/App/BPOMUtils/Table/RegCodePrefix.pm view on Meta::CPAN
=item * B<summary_eng.min> => I<str>
Only return records where the 'summary_eng' field is greater than or equal to specified value.
=item * B<summary_eng.not_contains> => I<str>
Only return records where the 'summary_eng' field does not contain specified text.
=item * B<summary_eng.not_in> => I<array[str]>
Only return records where the 'summary_eng' field is not in the specified values.
=item * B<summary_eng.xmax> => I<str>
lib/App/BPOMUtils/Table/RegCodePrefix.pm view on Meta::CPAN
=item * B<summary_ind.min> => I<str>
Only return records where the 'summary_ind' field is greater than or equal to specified value.
=item * B<summary_ind.not_contains> => I<str>
Only return records where the 'summary_ind' field does not contain specified text.
=item * B<summary_ind.not_in> => I<array[str]>
Only return records where the 'summary_ind' field is not in the specified values.
=item * B<summary_ind.xmax> => I<str>
App-BS
view release on metacpan or search on metacpan
script/pkgbase.pl view on Meta::CPAN
# Prepends pkgname
const our $repo_re => qr/(?:([\/])\/)?/;
const our $type_re => qr/(?:(lib)\:)?/;
const our %sep_re => ( ver => qr/(\=|[\<\>]\=?)/, dssc => qr/(:\s*(.+))?/ );
const our $not_pkgver_rew => quotemeta(':/-') . '\s';
const our $fpath_re =>
qr/^(?:\/)?([a-zA-Z0-9\@_\+\.\+]+\/)?([a-zA-Z0-9\@_\+\.\+]+)$/;
# Apppends pkgname (cmpop, ver, description)
App-BambooCli
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.md') =>
"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/bamboo');
App-Bin4TSV
view release on metacpan or search on metacpan
scripts/colpairs view on Meta::CPAN
my @diag = map { scalar keys %{ $pf -> [$_][$_]}} 0 .. $cols -1 ;
# 出力表ã®è¡¨é
my @out = ( ( BOLD 'undec' ) , map { UNDERLINE $_ } 1 .. $cols ) ;
push @out , UNDERLINE YELLOW 'col_' . ($o{'='} ? 'name' : 'num') ;
push @out , UNDERLINE('value_not_determining_other_column_value') if 0.9 < ($o{v}//'1') ;
say join "\t" , @out ;
# 出力表ã®å„è¡Œ
my $cell ; # $cell -> [] []
for my $i ( 0 .. $cols - 1 ) {
App-BitBucketCli
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/bb-cli');
App-BrowserUtils
view release on metacpan or search on metacpan
lib/App/BrowserUtils.pm view on Meta::CPAN
return [304,
$num_start_requests ? "All browsers already have processes" :
"Not ${which_action}ing any browsers"];
}
my (%alive, %not_alive);
if ($args{-dry_run}) {
%alive = %started;
} else {
for my $wait_time (2, 5, 10) {
%alive = ();
%not_alive = ();
log_trace "Checking if the started browsers are alive ...";
for my $browser (keys %pbs) {
if ($pbs{$browser}->alive) {
$alive{$browser}++;
} else {
$not_alive{$browser}++;
}
}
last if scalar(keys %alive) == $num_started;
}
}
my $num_alive = keys %alive;
my $num_not_alive = keys %not_alive;
my $status;
my $reason;
my $msg;
my $verb_started = $which_action eq 'restart' ? 'Started/restarted' : 'Started';
lib/App/BrowserUtils.pm view on Meta::CPAN
$status = 200;
$reason = "OK";
$msg = "$verb_started ".join(", ", sort keys %alive);
} elsif ($num_alive == 0) {
$status = 500;
$reason = $msg = "Can't start any browser (".join(", ", %not_alive).")";
} else {
$status = 200;
$reason = "OK";
$msg = "$verb_started ".join(", ", sort keys %alive)."; but failed to start ".
join(", ", sort keys %not_alive);
}
$fail{$_} //= "Can't start" for keys %not_alive;
[$status, $msg, undef, {
'func.outputs' => \%outputs,
($which_action eq 'start' ? ('func.has_processes' => [sort keys %has_processes]) : ()),
'func.started' => [sort grep {!$terminated{$_}} keys %alive],
App-CELL
view release on metacpan or search on metacpan
lib/App/CELL.pm view on Meta::CPAN
=head3 status_inform
Constructor for 'INFORM' status objects
=head3 status_not_ok
Constructor for 'NOT_OK' status objects
=head3 status_notice
lib/App/CELL.pm view on Meta::CPAN
=cut
sub msg {
my ( $self, $code, @ARGS ) = @_;
my $status = App::CELL::Message->new( code => $code, args => [ @ARGS ] );
return if $status->not_ok; # will return undef in scalar mode
return $status->payload if blessed $status->payload;
return;
}
App-CLI-Plugin-Config-YAML-Syck
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 ( $e1 == $DNE xor $e2 == $DNE ) {
$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-CLI-Plugin-DBI
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 ( $e1 == $DNE xor $e2 == $DNE ) {
$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-CLI-Plugin-Daemonize
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 ( $e1 == $DNE xor $e2 == $DNE ) {
$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-CLI-Plugin-Log-Dispatch-Configurator-YAML
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 ( $e1 == $DNE xor $e2 == $DNE ) {
$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-CLI-Plugin-Net-SMTP
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 ( $e1 == $DNE xor $e2 == $DNE ) {
$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-CLI-Plugin-Parallel-ForkManager
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 ( $e1 == $DNE xor $e2 == $DNE ) {
$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-CLI-Plugin-Proc-PID-File
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 ( $e1 == $DNE xor $e2 == $DNE ) {
$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-CLI-Plugin-StackTrace
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 ( $e1 == $DNE xor $e2 == $DNE ) {
$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-CPANChangesCwaliteeUtils
view release on metacpan or search on metacpan
lib/App/CPANChangesCwaliteeUtils.pm view on Meta::CPAN
[
200,
"OK",
[
{
indicator => "not_too_wide",
num => 1,
result => 1,
result_summary => "",
severity => 3,
},
lib/App/CPANChangesCwaliteeUtils.pm view on Meta::CPAN
result => 1,
result_summary => "",
severity => 3,
},
{
indicator => "release_dates_not_future",
num => 12,
result => 0,
result_summary => "Release date '2021-05-27' (2021-05-27) is in the future",
severity => 3,
},
App-CPANCoverBadge
view release on metacpan or search on metacpan
bin/cpan_cover_badge view on Meta::CPAN
my ($c) = @_;
my $dist = $c->param('dist');
if ( ! eval { $check->( $dist ) } ) {
return $c->reply->not_found;
}
my $badge = $badger->badge( $dist );
$c->render( data => $badge, format => 'svg' );
};
App-CPRReporter
view release on metacpan or search on metacpan
lib/App/CPRReporter.pm view on Meta::CPAN
# Oops: user not found in personel database
#carp "Warning: employee '$fullname' not found in employee database"
if ( ref($fullname) ) {
carp "Fullname is reference, this should not be the case!";
}
push( @{ $self->{_not_in_hr}->{cert} }, $fullname );
}
}
}
lib/App/CPRReporter.pm view on Meta::CPAN
}
} else {
# Oops: user not found in personel database
#carp "Warning: employee '$fullname' not found in employee database";
push( @{ $self->{_not_in_hr}->{training} }, $fullname );
$training_count++;
}
}
say "$training_count people are in training";
lib/App/CPRReporter.pm view on Meta::CPAN
my $course = $self->{_employees}->{$employee}->{course} || 'none';
$stats->{employee_count} += 1;
if ( $cert eq 'none' ) {
$stats->{$dienst}->{'not_started'}->{count} += 1;
push( @{ $stats->{$dienst}->{'not_started'}->{list} }, $employee );
} elsif ( $cert eq 'training' ) {
$stats->{$dienst}->{'training'}->{count} += 1;
push( @{ $stats->{$dienst}->{'training'}->{list} }, $employee );
} else {
$stats->{$dienst}->{'certified'}->{count} += 1;
lib/App/CPRReporter.pm view on Meta::CPAN
$stats->{$dienst}->{certified}->{count} = 0;
}
if ( !defined $stats->{$dienst}->{training}->{count} ) {
$stats->{$dienst}->{training}->{count} = 0;
}
if ( !defined $stats->{$dienst}->{not_started}->{count} ) {
$stats->{$dienst}->{not_started}->{count} = 0;
}
if ( !defined $stats->{$dienst}->{course}->{count} ) {
$stats->{$dienst}->{course}->{count} = 0;
}
say "$dienst;"
. $stats->{$dienst}->{certified}->{count} . ";"
. $stats->{$dienst}->{training}->{count} . ";"
. $stats->{$dienst}->{not_started}->{count} . ";"
. $stats->{$dienst}->{course}->{count};
}
if ( defined $self->{_not_in_hr}->{cert} ) {
say "";
say "Not found in the HR database while parsing certificates: "
. scalar( @{ $self->{_not_in_hr}->{cert} } );
foreach ( @{ $self->{_not_in_hr}->{cert} } ) {
say;
}
}
if ( defined $self->{_not_in_hr}->{training} ) {
say "Not found in the HR database while parsing in training: "
. scalar( @{ $self->{_not_in_hr}->{training} } );
foreach ( @{ $self->{_not_in_hr}->{training} } ) {
say;
}
}
if ( defined $self->{_not_in_hr}->{theory} ) {
say "Not found in the HR database while parsing theory: "
. scalar( @{ $self->{_not_in_hr}->{theory} } );
foreach ( @{ $self->{_not_in_hr}->{theory} } ) {
say;
}
}
#say "";
lib/App/CPRReporter.pm view on Meta::CPAN
if ( defined $self->{_employees}->{$name} ) {
$self->{_employees}->{$name}->{course} = $date;
} else {
#carp "Oops: employee '$name' not found in employee database while parsing the theoretical training list";
push( @{ $self->{_not_in_hr}->{theory} }, $name );
}
}
}
App-CSE
view release on metacpan or search on metacpan
t/10-hidden.t view on Meta::CPAN
$cse->is_file_valid($hidden_file, { on_hidden => sub{ $hidden = 1; } });
is( $hidden , 1 , "Hidden is 1 for file $hidden_file");
}
my @not_hidden = ( './toto.txt' , 'toto' , 'toto.txt' ,
'./lib/App/CSE/Command/Watch.pm',
'lib/App/CSE/Command/Bla.pm',
'lib/App/CSE/Command/Bla',
'lib/App/CSE/./Command/Bla',
);
foreach my $not_hidden_file ( @not_hidden ){
my $hidden = 0;
$cse->is_file_valid($not_hidden_file, { on_hidden => sub{ $hidden = 1; } });
is( $hidden , 0 , "Hidden is 0 for file $not_hidden_file");
}
ok(1);
done_testing();
App-CSV
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
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
} else {
pass("$filename contains no 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)
);
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]/,
);
}
App-CSVUtils
view release on metacpan or search on metacpan
lib/App/CSVUtils/csv_concat.pm view on Meta::CPAN
if ($r->{util_args}{overlay}) {
my $overwrite_fields = $r->{util_args}{overwrite_fields};
my $output_fields_idx = $r->{output_fields_idx};
while (1) {
my $has_not_eof;
my $combined_row = [("") x @{ $r->{output_fields} }];
my %seen_fields;
for my $i (0 .. $#{ $r->{all_input_fh} }) {
my $fh = $r->{all_input_fh}[$i];
next if eof($fh);
$has_not_eof++;
my $row = $csv->getline($fh);
my $input_fields = $r->{all_input_fields}[$i];
for my $j (0 .. $#{ $input_fields }) {
my $field = $input_fields->[$j];
if (!($seen_fields{$field}++) || $overwrite_fields) {
$combined_row->[ $output_fields_idx->{$field} ] = $row->[$j];
}
}
} # for all_input_fh
last unless $has_not_eof;
$r->{code_print_row}->($combined_row);
} # while 1
} else {
App-CamelPKI
view release on metacpan or search on metacpan
inc/My/Module/Build.pm view on Meta::CPAN
write_file("$fakemoduledir/Build.PL", $sample_Build_PL);
mkdir("$fakemoduledir/lib");
mkdir("$fakemoduledir/lib/Fake");
=begin this_pod_is_not_mine
=cut
my $fakemodule = <<'FAKE_MODULE';
#!perl -w
inc/My/Module/Build.pm view on Meta::CPAN
package This::Package::Should::Not::Be::Reported::In::METAyml;
FAKE_MODULE
=end this_pod_is_not_mine
=cut
write_file("$fakemoduledir/lib/Fake/Module.pm", $fakemodule);
App-CatalystStarter-Bloated
view release on metacpan or search on metacpan
t/script/name.t view on Meta::CPAN
}
## no args
{
chdir( my $d = a_temp_dir );
run_not_ok( fatstart, [], "no args shuold fail, it should require a --name" );
go_back;
}
note( "Variations of name" );
## variations of name
App-Chained
view release on metacpan or search on metacpan
lib/App/Chained.pm view on Meta::CPAN
Noiw I have command completion for all the sub command. Here is an example:
nadim@naquadim Arch (master)$ ra show -[tab]
-format -include_loaded_from -master_categories_file
-help -include_not_found -master_template_file
-include_categories -include_statistics -remove_empty_requirement_field_in_categories
-include_description_data -include_type -requirement_fields_filter_file
The I<show> sub command is two order of magnitude easier to use with completion.
App-Chart
view release on metacpan or search on metacpan
devel/ema-omitted-old.pl view on Meta::CPAN
Math::Polynomial->configure (VARIABLE => '$x');
package Math::Polynomial;
use List::Util qw(min max);
use overload '==' => \&equal, '!=' => \¬_equal;
sub not_equal { return ! equal(@_); }
sub equal {
my ($left, $right) = @_;
unless (ref($right) && $right->isa('Math::Polynomial')) {
$right = [ $right ];
( run in 2.969 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )