view release on metacpan or search on metacpan
lib/App/Rakubrew/Shell/Fish.pm view on Meta::CPAN
function $brew_name
command $brew_exec internal_hooked Fish \$argv
and eval (command $brew_exec internal_shell_hook Fish post_call_eval \$argv)
end
function _${brew_name}_is_not_register
set args (commandline -poc)
if [ (count \$args) -eq 3 -a \$args[1] = 'register' ]
return 1
else
return 0
end
end
complete -c $brew_name -f -n _${brew_name}_is_not_register -a '(command $brew_exec internal_shell_hook Fish completions (commandline -poc) (commandline -ct) | string split " ")'
EOT
}
sub post_call_eval {
view release on metacpan or search on metacpan
lib/App/Rangeops/Command/clean.pm view on Meta::CPAN
my $intspan0 = $info_of->{$range0}{intspan};
my $intspan1 = $info_of->{$range1}{intspan};
my $intspan_i = $intspan0->intersect($intspan1);
if ( $intspan_i->is_not_empty ) {
if ( $intspan_i->size / $intspan0->size > 0.5
and $intspan_i->size / $intspan1->size > 0.5 )
{
@lines = grep { $_ ne $line } @lines;
}
view release on metacpan or search on metacpan
}
return;
}
sub file_must_not_exist {
my ( $file, $name ) = @_;
if ( -e $file ) {
say STDERR "Account already exists: ${name}";
exit 2;
cmd_help( 1, 'add <account>' );
}
my $pwfile = data_home('raps2') . "/${name}";
file_must_not_exist( $pwfile, $name );
$raps2->get_master_password();
my $url = $raps2->ui->read_line('URL');
my $login = $raps2->ui->read_line('Login');
view release on metacpan or search on metacpan
lib/App/RecordStream/Operation/toprettyprint.pm view on Meta::CPAN
my $this = shift;
my $args = shift;
my $limit = undef;
my $key_groups = App::RecordStream::KeyGroups->new();
my $do_not_nest = 0;
my $spec = {
"1" => sub { $limit = 1; },
"one" => sub { $limit = 1; },
"n=i" => \$limit,
'keys|k=s' => sub { $key_groups->add_groups($_[1]); },
'nonested' => \$do_not_nest,
'aligned:s' => \(my $aligned),
};
$this->parse_options($args, $spec);
lib/App/RecordStream/Operation/toprettyprint.pm view on Meta::CPAN
$key_groups->add_groups('!.!returnrefs');
}
$this->{'LIMIT'} = $limit;
$this->{'KEY_GROUPS'} = $key_groups;
$this->{'NESTED_OUTPUT'} = not $do_not_nest;
$this->{'ALIGNED'} = $aligned =~ /^l(eft)?$/i ? 'left' : 'right'
if defined $aligned;
};
sub accept_record {
view release on metacpan or search on metacpan
t/00-App-Relate-Complex.t view on Meta::CPAN
# Initialize for another series of tests (working the omit filters)
my $db_loc = "$Bin/dat/slocate2";
my $db = "$db_loc/slocate.db";
my $tree = "$Bin/dat/tree2";
my $stash = "$Bin/dat/stash2/stash-not_used.yaml";
my $flh = File::Locate::Harder->new( db => undef );
my $why = '';
if ( not(
$flh->create_database( $tree, $db )
t/00-App-Relate-Complex.t view on Meta::CPAN
{ my $test_name = "Testing relate_complex method using the image selection filters";
# Initialize for another series of tests (working the jpeg filters)
my $db_loc = "$Bin/dat/slocate3";
my $db = "$db_loc/slocate.db";
my $tree = "$Bin/dat/tree3";
my $stash = "$Bin/dat/stash3/stash-not_used.yaml";
my $flh = File::Locate::Harder->new( db => undef );
my $why = '';
if ( not(
$flh->create_database( $tree, $db )
view release on metacpan or search on metacpan
lib/App/Relate.pm view on Meta::CPAN
relate simplifies the use of locate.
Instead of:
locate this | egrep "with_this" | egrep "and_this" | egrep -v "but_not_this"
You can type:
relate this with_this and_this -but_not_this
This module is a simple back-end to implement the relate script.
See L<relate> for user documentation.
=head2 EXPORT
view release on metacpan or search on metacpan
corpus/lib/Local/Psi.pm view on Meta::CPAN
use 5.006;
use strict;
use warnings;
our $VERSION = 'this_is_not_a_version';
1;
view release on metacpan or search on metacpan
lib/App/Repository.pm view on Meta::CPAN
foreach my $column (keys %$column_defs) {
if (!defined $hash->{$column}) {
if (defined $column_defs->{$column}{default}) {
$hash->{$column} = $column_defs->{$column}{default};
}
elsif (defined $column_defs->{$column}{not_null}) {
die "Illegal object value for $table: $column cannot be NULL (i.e. undef)";
}
}
}
}
view release on metacpan or search on metacpan
lib/App/Requirement/Arch/Filter.pm view on Meta::CPAN
=item * $show_abstraction_level -
=item * $remove_empty_requirement_field_in_categories -
=item * $include_not_found -
=item * $include_statistics -
=item * $include_description_data -
lib/App/Requirement/Arch/Filter.pm view on Meta::CPAN
$sources,
$master_template_file,
$master_category_definition_file,
$show_abstraction_level,
$remove_empty_requirement_field_in_categories,
$include_not_found,
$include_statistics,
$include_description_data,
$description_fields_to_keep,
$display_multiline_as_array,
$include_categories,
lib/App/Requirement/Arch/Filter.pm view on Meta::CPAN
inherit_categories($requirements_structure, $requirements) ;
count_missing_elements($requirements_structure) ;
show_abstraction_level($requirements) if $show_abstraction_level ;
merge_and_check_master_category_definition($master_category_definition_file, $requirements_structure) ;
unless($include_not_found)
{
delete $requirements_structure->{NOT_FOUND} ;
}
unless($include_statistics)
view release on metacpan or search on metacpan
lib/App/RoboBot/Plugin/Core/Math.pm view on Meta::CPAN
sub divide {
my ($self, $message, $command, $rpl, @args) = @_;
return unless $self->has_n_numbers($message, 2, @args);
return unless $self->denominator_not_zero($message, @args);
return $args[0] / $args[1];
}
sub modulo {
my ($self, $message, $command, $rpl, @args) = @_;
return unless $self->has_n_numbers($message, 2, @args);
return unless $self->denominator_not_zero($message, @args);
return $args[0] % $args[1];
}
sub power {
my ($self, $message, $command, $rpl, @args) = @_;
lib/App/RoboBot/Plugin/Core/Math.pm view on Meta::CPAN
}
return 1;
}
sub denominator_not_zero {
my ($self, $message, @args) = @_;
if ($args[1] == 0) {
$message->response->raise('Cannot divide by zero.');
return 0;
view release on metacpan or search on metacpan
t/lib/App/Rssfilter/Feed/Storage/Test/FetchersBehaveSensibleWhenUnderlyingFileNotPresent.pm view on Meta::CPAN
requires 'feed_storage';
requires 'tempfile';
requires 'tempdir';
test fetchers_behave_sensible_when_underlying_file_not_present => method {
$self->tempfile->remove;
is(
$self->feed_storage->last_modified,
'Thu, 01 Jan 1970 00:00:00 GMT',
view release on metacpan or search on metacpan
lib/App/SD/CLI/Command/Ticket/Review.pm view on Meta::CPAN
foreach my $property ( @{ $INFO{'properties'} } ) {
my $prop_shortcut = $INFO{'shortcuts'}{$property};
print "$property:\n";
print "\t";
my $current = $record->prop($property);
my $not_first = 0;
foreach my $value ( @{ $INFO{'values'}{$property} } ) {
print ", " if $not_first++;
print "[". $prop_shortcut . $INFO{vshortcuts}{$property}{$value} ."] $value";
print "*" if $value eq $current;
}
print "\n";
}
view release on metacpan or search on metacpan
t/configure_home.t view on Meta::CPAN
}
note('feed invalid dir');
{
local $ENV{HOME} = '/home/dummy';
my $not_existing_home = File::Spec->catdir( $tmpdir, 'dir_does_not_exist' );
$script_basedir = File::Spec->catdir( $not_existing_home, '.ssh' );
my ( $stdout, $stderr, @result ) = capture { App::SSH::SwitchShell::configure_home() };
is( $result[0], undef, 'configure_home() returns undef' );
is( $stdout, q{}, '... prints nothing to STDOUT' );
like( $stderr, "/ ^ \QCould not chdir to home '$not_existing_home':\E /xsm", '... prints that chdir() failed to STDERR' );
is( $ENV{HOME}, $not_existing_home, '... HOME environment variable is correctly set' );
is( cwd(), $basedir, '... cwd is not changed because dir does not exist' );
chdir $basedir;
}
view release on metacpan or search on metacpan
script/list-sah-clauses view on Meta::CPAN
canon_name.in (see --canon-name-in)
canon_name.is (see --canon-name-is)
canon_name.isnt (see --canon-name-isnt)
canon_name.max (see --canon-name-max)
canon_name.min (see --canon-name-min)
canon_name.not_contains (see --canon-name-not-contains)
canon_name.not_in (see --canon-name-not-in)
canon_name.xmax (see --canon-name-xmax)
canon_name.xmin (see --canon-name-xmin)
detail (see --detail)
exclude_fields (see --exclude-field)
fields (see --field)
script/list-sah-clauses view on Meta::CPAN
name.in (see --name-in)
name.is (see --name-is)
name.isnt (see --name-isnt)
name.max (see --name-max)
name.min (see --name-min)
name.not_contains (see --name-not-contains)
name.not_in (see --name-not-in)
name.xmax (see --name-xmax)
name.xmin (see --name-xmin)
prio (see --prio)
prio.in (see --prio-in)
prio.is (see --prio-is)
prio.isnt (see --prio-isnt)
prio.max (see --prio-max)
prio.min (see --prio-min)
prio.not_in (see --prio-not-in)
prio.xmax (see --prio-xmax)
prio.xmin (see --prio-xmin)
queries (see --query)
query_boolean (see --query-boolean)
random (see --random)
script/list-sah-clauses view on Meta::CPAN
tags.in (see --tags-in)
tags.is (see --tags-is)
tags.isnt (see --tags-isnt)
tags.max (see --tags-max)
tags.min (see --tags-min)
tags.not_contains (see --tags-not-contains)
tags.not_in (see --tags-not-in)
tags.xmax (see --tags-xmax)
tags.xmin (see --tags-xmin)
type (see --type)
with_field_names (see --with-field-names)
view release on metacpan or search on metacpan
lib/App/Sandy/Read.pm view on Meta::CPAN
isa => 'Int',
builder => '_build_base',
lazy_build => 1
);
has '_not_base' => (
is => 'ro',
isa => 'HashRef',
builder => '_build_not_base',
lazy_build => 1
);
sub _build_not_base {
my %not_base = (
A => ['T', 'C', 'G'],
a => ['t', 'c', 'g'],
T => ['A', 'C', 'G'],
t => ['a', 'c', 'g'],
C => ['A', 'T', 'G'],
c => ['a', 't', 'g'],
G => ['A', 'T', 'C'],
g => ['a', 't', 'c']
);
return \%not_base;
}
sub _build_base {
my $self = shift;
# If sequencing_error equal to zero, set _base to zero
lib/App/Sandy/Read.pm view on Meta::CPAN
my $left_count = $acm_base % $self->_base;
for (my $i = 0; $i < $num_err; $i++) {
my $pos = $i * $self->_base + $self->_base - $self->_count_base - 1;
my $b = substr($$seq_ref, $pos, 1);
my $not_b = $self->_randb($b, $rng);
substr($$seq_ref, $pos, 1) = $not_b;
push @errors => sprintf("%d:%s/%s", $pos + 1, $b, $not_b);
}
$self->_count_base($left_count);
}
lib/App/Sandy/Read.pm view on Meta::CPAN
$$seq_ref =~ tr/atcgATCG/tagcTAGC/;
}
sub _randb {
my ($self, $base, $rng) = @_;
return $self->_not_base->{$base}[$rng->get_n(3)] || $base;
}
__END__
=pod
view release on metacpan or search on metacpan
lib/App/ScriptXUtils.pm view on Meta::CPAN
=item * B<dist.min> => I<str>
Only return records where the 'dist' field is greater than or equal to specified value.
=item * B<dist.not_contains> => I<str>
Only return records where the 'dist' field does not contain specified text.
=item * B<dist.not_in> => I<array[str]>
Only return records where the 'dist' field is not in the specified values.
=item * B<dist.xmax> => I<str>
lib/App/ScriptXUtils.pm view on Meta::CPAN
=item * B<plugin.min> => I<str>
Only return records where the 'plugin' field is greater than or equal to specified value.
=item * B<plugin.not_contains> => I<str>
Only return records where the 'plugin' field does not contain specified text.
=item * B<plugin.not_in> => I<array[str]>
Only return records where the 'plugin' field is not in the specified values.
=item * B<plugin.xmax> => I<str>
lib/App/ScriptXUtils.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.xmax> => I<str>
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/specs/plot/suximage_spec.pm view on Meta::CPAN
return ();
}
=head2 sub find_incompatibles
not_compatible for the following cases
is_absclip && (is_loclip || is_hiclip)
1 1
set value labels that are good
lib/App/SeismicUnixGui/specs/plot/suximage_spec.pm view on Meta::CPAN
#
#
# }
#
#=head2 sub get_incompatibles
# not_compatible for the following cases
# is_absclip && (is_loclip || is_hiclip)
# 1 1
#
# set value labels that are good
#
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/ShellCheckWiki.pm');
view release on metacpan or search on metacpan
devdata/Menlo-CLI-Compat.v1.9022.pm.txt 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;
}
}
view release on metacpan or search on metacpan
lib/App/SilverSplash.pm view on Meta::CPAN
# returns true if the mac address may pass
sub check_auth {
my ($class, $mac, $ip) = @_;
my $chain = $class->not_timed_out($mac, $ip);
return unless $chain;
# fixup the firewall rules based on the chain type
my $fixup = App::SilverSplash::IPTables->fixup_access($mac, $ip, $chain);
lib/App/SilverSplash.pm view on Meta::CPAN
return $client_ip;
}
# returns the auth chain if the user is not timed out
sub not_timed_out {
my ($class, $mac, $ip) = @_;
my $exp = $class->get($mac);
return unless $exp;
view release on metacpan or search on metacpan
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
local $sftp->{_autodie};
$sftp->_conn_lost;
if (defined $pid) {
close $sftp->{ssh_out} if (defined $sftp->{ssh_out} and not $sftp->{_ssh_out_is_not_dupped});
close $sftp->{ssh_in} if defined $sftp->{ssh_in};
if ($windows) {
kill KILL => $pid
and waitpid($pid, 0);
$debug and $debug & 4 and _debug "process $pid reaped";
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
return $ret;
}
}
};
my $gen_not_supported = sub {
sub {
$! = Errno::ENOTSUP();
undef
}
};
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
sub OPENDIR {
shift->CLOSEDIR;
undef;
}
*REWINDDIR = $gen_not_supported->();
*TELLDIR = $gen_not_supported->();
*SEEKDIR = $gen_not_supported->();
sub DESTROY {
local ($@, $!, $?);
my $self = shift;
my $sftp = $self->_sftp;
view release on metacpan or search on metacpan
lib/App/SimpleScan/Plugin/LinkCheck.pm view on Meta::CPAN
for my $link_condition ( @{ $self->{Link_conditions}->{$link_name} } ) {
my $compare = $link_condition->{compare};
my $count = $link_condition->{count};
my $name = $link_condition->{name};
my $not_bogus = 1;
my %have_a;
# name alone is "at least one link with this name"
if (defined $name and (! defined $compare) and (! defined $count) ) {
$compare = ">";
lib/App/SimpleScan/Plugin/LinkCheck.pm view on Meta::CPAN
# comparison is always defined: either we fixed it just above (because
# it was missing altogether), or it's there (but possibly bad).
if (! grep {$compare eq $_} qw(== > < >= <= !=) ) {
push @code, qq(fail "$compare is not a legal comparison operator (use < > <= >= == !=)";\n);
$test_count++;
$not_bogus = 0;
}
if (!defined($count)) {
push @code, qq(fail "Missing count";\n);
$test_count++;
$not_bogus = 0;
}
elsif (! looks_like_number($count) ) {
push @code, qq(fail "$count doesn't look like a legal number to me";\n);
$test_count++;
$not_bogus = 0;
}
if ($not_bogus) {
my $last_testspec = $self->get_current_spec;
$last_testspec->comment( qq('$name' link count $compare $count) );
push @code, qq(cmp_ok scalar \@{[mech()->find_all_links(text=>qq($name))]}, qq($compare), qq($count), "'$name' link count $compare $count";\n);
$test_count++;
view release on metacpan or search on metacpan
lib/App/SimulateReads/Read.pm view on Meta::CPAN
isa => 'Int',
builder => '_build_base',
lazy_build => 1
);
has '_not_base' => (
is => 'ro',
isa => 'HashRef',
builder => '_build_not_base',
lazy_build => 1
);
sub _build_not_base {
my %not_base = (
A => ['T', 'C', 'G'],
a => ['t', 'c', 'g'],
T => ['A', 'C', 'G'],
t => ['a', 'c', 'g'],
C => ['A', 'T', 'G'],
c => ['a', 't', 'g'],
G => ['A', 'T', 'C'],
g => ['a', 't', 'c']
);
return \%not_base;
}
sub _build_base {
my $self = shift;
# If sequencing_error equal to zero, set _base to zero
lib/App/SimulateReads/Read.pm view on Meta::CPAN
$$seq_ref =~ tr/atcgATCG/tagcTAGC/;
}
sub _randb {
my ($self, $base) = @_;
return $self->_not_base->{$base}[int(rand(3))] || $base;
}
__END__
=pod
view release on metacpan or search on metacpan
t/test-lib-slaughter-packages.t view on Meta::CPAN
# Sanity check by ensuring that a made-up method name is
# invalid.
#
# This ensures we're not misusing UNIVERSAL:can
#
ok( !UNIVERSAL::can( $handle, "not_present" ),
"Random methods aren't present." );
}
}
view release on metacpan or search on metacpan
share/public/highlight/highlight.min.js view on Meta::CPAN
},contains:[{begin:/\\\n/,relevance:0},e.inherit(s,{className:"string"}),{
className:"string",begin:/<.*?>/},a,e.C_BLOCK_COMMENT_MODE]},l={
className:"title",begin:t.optional(n)+e.IDENT_RE,relevance:0
},d=t.optional(n)+e.IDENT_RE+"\\s*\\(",u={
type:["bool","char","char16_t","char32_t","char8_t","double","float","int","long","short","void","wchar_t","unsigned","signed","const","static"],
keyword:["alignas","alignof","and","and_eq","asm","atomic_cancel","atomic_commit","atomic_noexcept","auto","bitand","bitor","break","case","catch","class","co_await","co_return","co_yield","compl","concept","const_cast|10","consteval","constexpr","co...
literal:["NULL","false","nullopt","nullptr","true"],built_in:["_Pragma"],
_type_hints:["any","auto_ptr","barrier","binary_semaphore","bitset","complex","condition_variable","condition_variable_any","counting_semaphore","deque","false_type","future","imaginary","initializer_list","istringstream","jthread","latch","lock_guar...
},p={className:"function.dispatch",relevance:0,keywords:{
_hint:["abort","abs","acos","apply","as_const","asin","atan","atan2","calloc","ceil","cerr","cin","clog","cos","cosh","cout","declval","endl","exchange","exit","exp","fabs","floor","fmod","forward","fprintf","fputs","free","frexp","fscanf","future","...
},
view release on metacpan or search on metacpan
lib/App/Smbxfer.pm view on Meta::CPAN
my ($local_path, $remote_smb_path_spec) = validated_paths(
SMB => $smb,
SOURCE => $source,
DEST => $dest,
SOURCE_IS_LOCAL => $whether_or_not_source_is_local_path
);
Given source, destination paths as expected by modulino's run()
function, performs validations and returns normalized forms of both paths in
order (source, dest).
lib/App/Smbxfer.pm view on Meta::CPAN
do_smb_transfer(
SMB_OBJECT => $smb,
LOCAL_PATH => $local_path,
SMB_PATH_SPEC => $remote_smb_path_spec,
SOURCE_IS_LOCAL => $whether_or_not_source_is_local_path,
RECURSIVE => 1,
CREATE_PARENTS => 1
);
Handles setup for upload/download, then delegates responsibility for file
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
}
}
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]/,
);
}
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/Smolder/Report.pm');
view release on metacpan or search on metacpan
inc/File/Find/Rule.pm view on Meta::CPAN
#line 499
sub DESTROY {}
sub AUTOLOAD {
$AUTOLOAD =~ /::not_([^:]*)$/
or croak "Can't locate method $AUTOLOAD";
my $method = $1;
my $sub = sub {
my $self = _force_object shift;
view release on metacpan or search on metacpan
lib/App/SpamcupNG/HTMLParse.pm view on Meta::CPAN
my $encoding = lc( $wanted[0] );
my $charset = lc( $wanted[1] );
$charset =~ s/^\s+//;
$charset =~ tr/"//d;
my $not_useful = 'boundary';
if (
substr( $charset, 0, length($not_useful) ) eq
$not_useful )
{
$info{content_type} = $encoding;
$info{charset} = undef;
}
else {
view release on metacpan or search on metacpan
lib/App/Spec/Run/Validator.pm view on Meta::CPAN
if (not @$values) {
next;
}
if ($spec->unique and (uniq @$values) != @$values) {
$errs->{ $type }->{ $name } = "not_unique";
next;
}
}
else {