Result:
found more than 916 distributions - search limited to the first 2001 files matching your query
( run in 0.634 )
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 ];
App-Cheats
view release on metacpan or search on metacpan
# Benchmark glob() vs -e() functions
perl -Me -e '
n {
e_found => sub{ -e "recursive.pl" },
e_not_found => sub{ -e "recursive2.pl" },
glob_found => sub{ glob "recursive.pl" },
glob_not_found => sub{ glob "recursive2.pl" },
glob_wild_flag_found => sub{ glob "rec*.pl" },
glob_wild_flag_not_found => sub{ glob "rec2*.pl" },
}, 1_000_000
'
Rate glob_wild_flag_not_found glob_wild_flag_found glob_found glob_not_found e_found e_not_found
glob_wild_flag_not_found 79491/s -- -45% -94% -95% -96% -98%
glob_wild_flag_found 143885/s 81% -- -90% -91% -93% -96%
glob_found 1408451/s 1672% 879% -- -15% -35% -56%
glob_not_found 1666667/s 1997% 1058% 18% -- -23% -48%
e_found 2173913/s 2635% 1411% 54% 30% -- -33%
e_not_found 3225806/s 3958% 2142% 129% 94% 48% --
#############################################################
## Perl Binary
#############################################################
#############################################################
## Vim Find/Search and Replace for strings
#############################################################
# Make every after very magical (Vim,regex)
\v magical \V not_magical
# Replace pattern with string according to flags (Vim)
:s/pattern/string/flags
# Replace pattern with string ask for confirmation of each change (Vim)
App-ChemistryUtils
view release on metacpan or search on metacpan
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<abundance_in_earth_crust.min> => I<str>
Only return records where the 'abundance_in_earth_crust' field is greater than or equal to specified value.
=item * B<abundance_in_earth_crust.not_contains> => I<str>
Only return records where the 'abundance_in_earth_crust' field does not contain specified text.
=item * B<abundance_in_earth_crust.not_in> => I<array[str]>
Only return records where the 'abundance_in_earth_crust' field is not in the specified values.
=item * B<abundance_in_earth_crust.xmax> => I<str>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<atomic_number.min> => I<int>
Only return records where the 'atomic_number' field is greater than or equal to specified value.
=item * B<atomic_number.not_in> => I<array[int]>
Only return records where the 'atomic_number' field is not in the specified values.
=item * B<atomic_number.xmax> => I<int>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<block.min> => I<str>
Only return records where the 'block' field is greater than or equal to specified value.
=item * B<block.not_contains> => I<str>
Only return records where the 'block' field does not contain specified text.
=item * B<block.not_in> => I<array[str]>
Only return records where the 'block' field is not in the specified values.
=item * B<block.xmax> => I<str>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<boiling_point.min> => I<float>
Only return records where the 'boiling_point' field is greater than or equal to specified value.
=item * B<boiling_point.not_in> => I<array[float]>
Only return records where the 'boiling_point' field is not in the specified values.
=item * B<boiling_point.xmax> => I<float>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<density.min> => I<float>
Only return records where the 'density' field is greater than or equal to specified value.
=item * B<density.not_in> => I<array[float]>
Only return records where the 'density' field is not in the specified values.
=item * B<density.xmax> => I<float>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<electronegativity.min> => I<float>
Only return records where the 'electronegativity' field is greater than or equal to specified value.
=item * B<electronegativity.not_in> => I<array[float]>
Only return records where the 'electronegativity' field is not in the specified values.
=item * B<electronegativity.xmax> => I<float>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<eng_name.min> => I<str>
Only return records where the 'eng_name' field is greater than or equal to specified value.
=item * B<eng_name.not_contains> => I<str>
Only return records where the 'eng_name' field does not contain specified text.
=item * B<eng_name.not_in> => I<array[str]>
Only return records where the 'eng_name' field is not in the specified values.
=item * B<eng_name.xmax> => I<str>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<group.min> => I<str>
Only return records where the 'group' field is greater than or equal to specified value.
=item * B<group.not_contains> => I<str>
Only return records where the 'group' field does not contain specified text.
=item * B<group.not_in> => I<array[str]>
Only return records where the 'group' field is not in the specified values.
=item * B<group.xmax> => I<str>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<ind_name.min> => I<str>
Only return records where the 'ind_name' field is greater than or equal to specified value.
=item * B<ind_name.not_contains> => I<str>
Only return records where the 'ind_name' field does not contain specified text.
=item * B<ind_name.not_in> => I<array[str]>
Only return records where the 'ind_name' field is not in the specified values.
=item * B<ind_name.xmax> => I<str>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<melting_point.min> => I<float>
Only return records where the 'melting_point' field is greater than or equal to specified value.
=item * B<melting_point.not_in> => I<array[float]>
Only return records where the 'melting_point' field is not in the specified values.
=item * B<melting_point.xmax> => I<float>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<name_origin.min> => I<str>
Only return records where the 'name_origin' field is greater than or equal to specified value.
=item * B<name_origin.not_contains> => I<str>
Only return records where the 'name_origin' field does not contain specified text.
=item * B<name_origin.not_in> => I<array[str]>
Only return records where the 'name_origin' field is not in the specified values.
=item * B<name_origin.xmax> => I<str>
lib/App/ChemistryUtils.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.xmax> => I<str>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<period.min> => I<str>
Only return records where the 'period' field is greater than or equal to specified value.
=item * B<period.not_contains> => I<str>
Only return records where the 'period' field does not contain specified text.
=item * B<period.not_in> => I<array[str]>
Only return records where the 'period' field is not in the specified values.
=item * B<period.xmax> => I<str>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<phase_at_rt.min> => I<str>
Only return records where the 'phase_at_rt' field is greater than or equal to specified value.
=item * B<phase_at_rt.not_contains> => I<str>
Only return records where the 'phase_at_rt' field does not contain specified text.
=item * B<phase_at_rt.not_in> => I<array[str]>
Only return records where the 'phase_at_rt' field is not in the specified values.
=item * B<phase_at_rt.xmax> => I<str>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<specific_heat_capacity.min> => I<float>
Only return records where the 'specific_heat_capacity' field is greater than or equal to specified value.
=item * B<specific_heat_capacity.not_in> => I<array[float]>
Only return records where the 'specific_heat_capacity' field is not in the specified values.
=item * B<specific_heat_capacity.xmax> => I<float>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<standard_atomic_weight.min> => I<float>
Only return records where the 'standard_atomic_weight' field is greater than or equal to specified value.
=item * B<standard_atomic_weight.not_in> => I<array[float]>
Only return records where the 'standard_atomic_weight' field is not in the specified values.
=item * B<standard_atomic_weight.xmax> => I<float>
lib/App/ChemistryUtils.pm view on Meta::CPAN
=item * B<symbol.min> => I<str>
Only return records where the 'symbol' field is greater than or equal to specified value.
=item * B<symbol.not_contains> => I<str>
Only return records where the 'symbol' field does not contain specified text.
=item * B<symbol.not_in> => I<array[str]>
Only return records where the 'symbol' field is not in the specified values.
=item * B<symbol.xmax> => I<str>
App-ClusterSSH
view release on metacpan or search on metacpan
t/15config.t
t/15config.t.file1
t/15config.t.file2
t/15config.t.file3
t/20helper.t
t/30cluster.cannot_read
t/30cluster.file1
t/30cluster.file2
t/30cluster.file3
t/30cluster.t
t/30cluster.tag1
App-Cmd-Starter
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use 5.006;
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
}
}
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/Module/Starter/Plugin/App/Cmd.pm');
App-Config-Chronicle
view release on metacpan or search on metacpan
xt/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/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/Config/Chronicle.pm');
}
App-Critique
view release on metacpan or search on metacpan
t/lib/App/Critique/Tester.pm view on Meta::CPAN
sub run {
my ($cmd, @args) = @_;
my ($in, $out, $err);
my @not_used_but_needed = IPC::Run::run(
[ $^X, "$FindBin::Bin/../bin/critique", $cmd, @args ],
\$in, \$out, \$err,
init => sub {
$ENV{CRITIQUE_HOME} = $PSUEDO_HOME->stringify;
}
App-DBBrowser
view release on metacpan or search on metacpan
lib/App/DBBrowser/Table/Substatement/Condition.pm view on Meta::CPAN
sub __add_operator_and_value {
my ( $sf, $sql, $clause, $stmt, $col, $r_data ) = @_;
my $ax = App::DBBrowser::Auxil->new( $sf->{i}, $sf->{o}, $sf->{d} );
my $tc = Term::Choose->new( $sf->{i}{tc_default} );
my @operators = @{$sf->{o}{G}{operators}};
my $not_equal = ( any { $_ =~ /^\s?!=\s?\z/ } @operators ) ? "!=" : "<>";
if ( ! length $col ) {
$sql->{$stmt} =~ s/\s\z//;
@operators = ( "EXISTS", "NOT EXISTS" );
}
elsif ( $sf->{i}{driver} eq 'SQLite' ) {
lib/App/DBBrowser/Table/Substatement/Condition.pm view on Meta::CPAN
return;
}
#}
$operator =~ s/^\s+|\s+\z//g;
if ( $operator =~ /(?:REGEXP(?:_i)?|SIMILAR\sTO)\z/ ) {
my $not_match = $operator =~ /^NOT/ ? 1 : 0;
my $case_sensitive = $operator =~ /REGEXP_i\z/ ? 0 : 1;
my $regex_op = $sf->__pattern_match( $col, $not_match, $case_sensitive );
if ( ! $regex_op ) {
next OPERATOR if @operators > 1;
return;
}
$sql->{$stmt} =~ s/ (?: (?<=\() | \s ) \Q$col\E \z //x;
lib/App/DBBrowser/Table/Substatement/Condition.pm view on Meta::CPAN
$regex_op =~ s/^\s//;
}
$sql->{$stmt} .= $regex_op;
}
elsif ( $operator =~ /^(?:ALL|ANY)\z/) {
my @comb_op = ( "= $operator", "$not_equal $operator", "> $operator", "< $operator", ">= $operator", "<= $operator" );
my @pre = ( undef );
my $info = $sf->__info_add_condition( $sql, $stmt, $r_data );
# Choose
$operator = $tc->choose(
[ @pre, @comb_op ],
lib/App/DBBrowser/Table/Substatement/Condition.pm view on Meta::CPAN
}
}
sub __pattern_match {
my ( $sf, $col, $not_match, $case_sensitive ) = @_;
my $driver = $sf->{i}{driver};
if ( $driver eq 'SQLite' ) {
if ( $not_match ) {
return sprintf " NOT REGEXP(?,%s,%d)", $col, $case_sensitive;
}
else {
return sprintf " REGEXP(?,%s,%d)", $col, $case_sensitive;
}
}
elsif ( $driver =~ /^(?:mysql|MariaDB)\z/ ) {
if ( $not_match ) {
return " $col NOT REGEXP" if ! $case_sensitive;
return " $col NOT REGEXP BINARY" if $case_sensitive;
}
else {
return " $col REGEXP" if ! $case_sensitive;
return " $col REGEXP BINARY" if $case_sensitive;
}
}
elsif ( $driver eq 'Pg' ) {
if ( $not_match ) {
return " ${col}::text !~*" if ! $case_sensitive; ##
return " ${col}::text !~" if $case_sensitive;
}
else {
return " ${col}::text ~*" if ! $case_sensitive;
return " ${col}::text ~" if $case_sensitive;
}
}
elsif ( $driver eq 'Firebird' ) {
if ( $not_match ) {
return " $col NOT SIMILAR TO ? ESCAPE '\\'";
}
else {
return " $col SIMILAR TO ? ESCAPE '\\'";
}
}
elsif ( $driver =~ /^(?:DB2|Oracle)\z/ ) {
if ( $not_match ) {
return " NOT REGEXP_LIKE($col,?,'i')" if ! $case_sensitive;
return " NOT REGEXP_LIKE($col,?,'c')" if $case_sensitive;
}
else {
return " REGEXP_LIKE($col,?,'i')" if ! $case_sensitive;
App-DGIPUtils
view release on metacpan or search on metacpan
lib/App/DGIPUtils/Table.pm view on Meta::CPAN
=item * B<class.min> => I<str>
Only return records where the 'class' field is greater than or equal to specified value.
=item * B<class.not_contains> => I<str>
Only return records where the 'class' field does not contain specified text.
=item * B<class.not_in> => I<array[str]>
Only return records where the 'class' field is not in the specified values.
=item * B<class.xmax> => I<str>
lib/App/DGIPUtils/Table.pm view on Meta::CPAN
=item * B<description.min> => I<str>
Only return records where the 'description' field is greater than or equal to specified value.
=item * B<description.not_contains> => I<str>
Only return records where the 'description' field does not contain specified text.
=item * B<description.not_in> => I<array[str]>
Only return records where the 'description' field is not in the specified values.
=item * B<description.xmax> => I<str>
( run in 0.634 second using v1.01-cache-2.11-cpan-cc502c75498 )