view release on metacpan or search on metacpan
# Test::Script::Run wants the exes in bin/ or t/bin/
mkdir 't/bin';
symlink '../../pc', 't/bin/pc';
run_ok('pc', ["1+3"], 'pc runs ok');
run_not_ok('pc', ["david rules"], 'pc detects syntax errors');
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
my @pkgparts = split(/::/, $o->{API}{pkg});
my $realname = File::Spec->catfile(@pkgparts) . '.pm';
my $realname_unix = File::Spec::Unix->catfile(@pkgparts) . '.pm';
my $realpath = $INC{$realname_unix}
or croak M27_module_not_indexed($realname_unix);
my ($volume,$dir,$file) = File::Spec->splitpath($realpath);
my @dirparts = File::Spec->splitdir($dir);
pop @dirparts unless $dirparts[-1];
push @dirparts, $file;
inc/Inline.pm view on Meta::CPAN
local ($/, *CODE);
open CODE, "< $code" or croak M06_code_file_failed_open($code);
$o->{API}{code} = <CODE>;
}
else {
croak M07_code_file_does_not_exist($code);
}
}
else {
$o->{API}{code} = $code;
}
inc/Inline.pm view on Meta::CPAN
croak M59_bad_inline_file($lang) unless $langfile =~ /^[A-Z]\w*$/;
croak M60_no_inline_files()
unless (defined $INC{File::Spec::Unix->catfile("Inline","Files.pm")} and
$Inline::Files::VERSION =~ /^\d\.\d\d$/ and
$Inline::Files::VERSION ge '0.51');
croak M61_not_parsed() unless $lang = Inline::Files::get_filename($pkg);
{
no strict 'refs';
local $/;
$Inline::FILE = \*{"${pkg}::$langfile"};
# open $Inline::FILE;
inc/Inline.pm view on Meta::CPAN
#==============================================================================
sub install {
my ($module, $DIRECTORY);
my $o = shift;
croak M64_install_not_c($o->{API}{language_id})
unless uc($o->{API}{language_id}) =~ /^(C|CPP|Java|Python|Ruby|Lisp|Pdlpp)$/ ;
croak M36_usage_install_main()
if ($o->{API}{pkg} eq 'main');
croak M37_usage_install_auto()
if $o->{CONFIG}{AUTONAME};
inc/Inline.pm view on Meta::CPAN
my $o = shift;
my @configs;
for my $mod (@{$o->{CONFIG}{WITH}}) {
my $ref = eval { $mod->Inline($o->{API}{language}); };
croak M25_no_WITH_support($mod, $@) if $@;
croak M65_WITH_not_lang($mod, $o->{API}{language}) unless $ref;
push @configs, %$ref;
}
return @configs;
}
inc/Inline.pm view on Meta::CPAN
END
#'
}
sub M07_code_file_does_not_exist {
my ($file) = @_;
return <<END;
Inline assumes '$file' is a filename,
and that file does not exist.
inc/Inline.pm view on Meta::CPAN
Specifying VERSION option without NAME option is not permitted.
END
}
sub M27_module_not_indexed {
my ($mod) = @_;
return <<END;
You are attempting to load an extension for '$mod',
but there is no entry for that module in %INC.
inc/Inline.pm view on Meta::CPAN
You need to explicitly 'use Inline::Files;' before your 'use Inline'.
END
}
sub M61_not_parsed {
return <<END;
It does not appear that your program has been properly parsed by Inline::Files.
END
}
inc/Inline.pm view on Meta::CPAN
You may need to reinstall this module.
END
}
sub M64_install_not_c {
my ($lang) = @_;
return <<END;
Invalid attempt to install an Inline module using the '$lang' language.
Only C and CPP (C++) based modules are currently supported.
END
}
sub M65_WITH_not_lang {
my ($mod, $lang) = @_;
return <<END;
$mod gave no 'with' hints for $lang.
END
}
view release on metacpan or search on metacpan
script/_pick view on Meta::CPAN
# 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) {
script/_pick view on Meta::CPAN
# } 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);
view release on metacpan or search on metacpan
eg/reddit.json view on Meta::CPAN
{"kind": "Listing", "data": {"modhash": "", "children": [{"kind": "t3", "data": {"domain": "i.imgur.com", "media_embed": {}, "levenshtein": null, "subreddit": "pics", "selftext_html": null, "selftext": "", "likes": null, "saved": false, "id": "hgb1p"...
view release on metacpan or search on metacpan
script/platform-info view on Meta::CPAN
# *JSON::PP::blessed = \&Scalar::Util::blessed;
# *JSON::PP::reftype = \&Scalar::Util::reftype;
# *JSON::PP::refaddr = \&Scalar::Util::refaddr;
# }
# else{
# 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;
# };
# require B;
# my %tmap = qw(
# B::NULL SCALAR
# B::HV HASH
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 2;
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/App/Prefix.pm');
module_boilerplate_ok('bin/prefix');
view release on metacpan or search on metacpan
lib/App/ProcUtils.pm view on Meta::CPAN
cmdline_match => {
schema => 're*',
tags => ['category:filtering'],
pos => 0,
},
cmdline_not_match => {
schema => 're*',
tags => ['category:filtering'],
},
exec_match => {
schema => 're*',
tags => ['category:filtering'],
},
exec_not_match => {
schema => 're*',
tags => ['category:filtering'],
},
pids => {
'x.name.is_plural' => 1,
lib/App/ProcUtils.pm view on Meta::CPAN
goto MATCH if $is_or;
} else {
next ENTRY unless $is_or;
}
}
if (defined $args{cmdline_not_match}) {
if ($cmdline !~ /$args{cmdline_not_match}/) {
goto MATCH if $is_or;
} else {
next ENTRY unless $is_or;
}
}
lib/App/ProcUtils.pm view on Meta::CPAN
goto MATCH if $is_or;
} else {
next ENTRY unless $is_or;
}
}
if (defined $args{exec_not_match}) {
if ($exec !~ /$args{exec_not_match}/) {
goto MATCH if $is_or;
} else {
next ENTRY unless $is_or;
}
}
lib/App/ProcUtils.pm view on Meta::CPAN
=item * B<cmdline_match> => I<re>
(No description)
=item * B<cmdline_not_match> => I<re>
(No description)
=item * B<code> => I<code>
lib/App/ProcUtils.pm view on Meta::CPAN
=item * B<exec_match> => I<re>
(No description)
=item * B<exec_not_match> => I<re>
(No description)
=item * B<logic> => I<str> (default: "AND")
lib/App/ProcUtils.pm view on Meta::CPAN
=item * B<cmdline_match> => I<re>
(No description)
=item * B<cmdline_not_match> => I<re>
(No description)
=item * B<code> => I<code>
lib/App/ProcUtils.pm view on Meta::CPAN
=item * B<exec_match> => I<re>
(No description)
=item * B<exec_not_match> => I<re>
(No description)
=item * B<logic> => I<str> (default: "AND")
lib/App/ProcUtils.pm view on Meta::CPAN
=item * B<cmdline_match> => I<re>
(No description)
=item * B<cmdline_not_match> => I<re>
(No description)
=item * B<code> => I<code>
lib/App/ProcUtils.pm view on Meta::CPAN
=item * B<exec_match> => I<re>
(No description)
=item * B<exec_not_match> => I<re>
(No description)
=item * B<logic> => I<str> (default: "AND")
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]/,
);
}
view release on metacpan or search on metacpan
t/check_build_pl_for_module.t view on Meta::CPAN
Test::Pod
File::Slurp
Tree::Simple
/;
my @not_present_modules =
qw/
CGI
Moose
LWP::UserAgent
/;
plan tests => $#present_modules +
$#not_present_modules +
2;
for (@present_modules) {
ok( App::Prove::Plugin::TraceUse::_check_build_pl_for_module($_), "$_ found in Build.PL" );
}
for (@not_present_modules) {
ok( !App::Prove::Plugin::TraceUse::_check_build_pl_for_module($_), "$_ not found in Build.PL" );
}
done_testing();
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/Qmail/DMARC.pm');
view release on metacpan or search on metacpan
lib/App/RL/Command/position.pm view on Meta::CPAN
$cur_positions->add_pair( $info->{start}, $info->{end} );
if ( $opt->{op} eq "overlap" ) {
if ( $chrs->has( $info->{chr} ) ) {
my $chr_single = $set_single->{ $info->{chr} };
if ( $chr_single->intersect($cur_positions)->is_not_empty ) {
printf {$out_fh} "%s\n", App::RL::Common::encode_header($info);
}
}
}
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]/,
);
}
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/Rad/Plugin/Daemonize.pm');
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]/,
);
}
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/Rad/Plugin/TT.pm');
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
#