view release on metacpan or search on metacpan
lib/App/Sandy/Simulator.pm view on Meta::CPAN
}
}
unless (%piece_table) {
die "All fasta entries were removed due to deletions. ",
"Please, verify the genomic variation '$genomic_variation'\n";
}
# If fasta_rtree has entries
unless ($self->_has_no_fasta_rtree) {
# Remove no valid entries from id -> pid relation
lib/App/Sandy/Simulator.pm view on Meta::CPAN
log_msg sprintf ":: In validating '%s': Position, %s/%s at %s:%d, outside fasta sequence",
$genomic_variation, $snv->{ref}, $snv->{alt}, $seq_id, $snv->{pos} + 1;
# Next snv
next;
# Deletions and changes. Just verify if the reference exists
} elsif ($snv->{ref} ne '-') {
my $ref = substr $$seq, $snv->{pos}, length($snv->{ref});
if (uc($ref) ne uc($snv->{ref})) {
log_msg sprintf ":: In validating '%s': Not found reference '%s' at fasta position %s:%d",
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.87.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.88.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.81.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
lib/App/SeismicUnixGui/big_streams/immodpg.pm view on Meta::CPAN
return ();
}
=head2 sub set_change
verify another lock file does not exist and
only then:
create another lock file
while change file is written.
that revents fortran file from reading
view release on metacpan or search on metacpan
lib/App/ShellCompleter/cpanm.pm view on Meta::CPAN
'f|force' => $noop,
'n|notest!' => $noop,
'test-only' => $noop,
'S|sudo!' => $noop,
'v|verbose' => $noop,
'verify!' => $noop,
'q|quiet!' => $noop,
'h|help' => $noop,
'V|version' => $noop,
'perl=s' => $noop,
'l|local-lib=s' => $noop,
view release on metacpan or search on metacpan
lib/App/ShellCompleter/mpv.pm view on Meta::CPAN
'term-playing-msg=s' => undef, # String (default: )
'term-status-msg=s' => undef, # String (default: )
'terminal!' => undef, # Flag (default: yes) [global]
'title=s' => undef, # String (default: mpv - ${media-title})
'tls-ca-file=s' => undef, # String (default: ) [file]
'tls-verify!' => undef, # Flag (default: no)
'tv-adevice=s' => undef, # String (default: )
'tv-alsa!' => undef, # Flag (default: no)
'tv-amode=i' => _gcint(0,3), # Integer (0 to 3) (default: -1)
'tv-audio!' => undef, # Flag (default: yes)
'tv-audioid=i' => _gcint(0,9), # Integer (0 to 9) (default: 0)
view release on metacpan or search on metacpan
local/lib/perl5/Module/Build.pm view on Meta::CPAN
[version 0.2806]
This is just like the C<test> action, but doesn't actually build the
distribution first, and doesn't add F<blib/> to the load path, and
therefore will test against a I<previously> installed version of the
distribution. This can be used to verify that a certain installed
distribution still works, or to see whether newer versions of a
distribution still pass the old regression tests, and so on.
=item skipcheck
view release on metacpan or search on metacpan
1.01 Mon Apr 10 09:57:04 PDT 2006
- failed upload; trying again
1.00 Fri Mar 17 17:28:10 PST 2006
- verify this works with the 1.0 interfaces
0.03 Fri Mar 17 11:57:24 PST 2006
- switch code filtering to new filter() paradigm
0.02 Wed Mar 8 14:59:37 PST 2006
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.87.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.68.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
lib/Slaughter/Transport/http.pm view on Meta::CPAN
{
$ua = LWP::UserAgent->new();
}
else
{
$ua = LWP::UserAgent->new( ssl_opts => { verify_hostname => 1 } );
}
#
# Use a proxy, if we should.
#
view release on metacpan or search on metacpan
lib/App/SnerpVortex.pm view on Meta::CPAN
Some repositories will be too complex for snassign-auto to be
successful. We hope a motivated individual will update snassign-gui
to be a tag/branch assignment editor so humans can override the
automatic assignment.
snassign-gui is intended to be used to verify that snassign-auto
worked correctly, before a possibly lengthy snerp run.
=item snerp
When everything is ready, snerp is called to export the Subversion
view release on metacpan or search on metacpan
socialcalc/third-party/Socket.IO-node/lib/socket.io/client.js view on Meta::CPAN
Client.prototype._generateSessionId = function(){
this.sessionId = Math.random().toString().substr(2);
return this;
};
Client.prototype._verifyOrigin = function(origin){
var origins = this.listener.options.origins;
if (origins.indexOf('*:*') !== -1) {
return true;
}
if (origin) {
view release on metacpan or search on metacpan
lib/App/SpamcupNG/UserAgent.pm view on Meta::CPAN
$logger->warn('Retrying with basic authentication');
return $self->login( $id, $password, 1 );
}
$logger->die(
'Cannot connect to server or invalid credentials. Please verify your username and password and try again.'
);
}
return undef;
}
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.87.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
inc/Module/Build/Sqitch.pm view on Meta::CPAN
);
if (-e $tmpl_dir && -d _) {
# Scan for old templates, but only if we can read the directory.
if (opendir my $dh, $tmpl_dir) {
while (my $bn = readdir $dh) {
next unless $bn =~ /^(deploy|verify|revert)[.]tmpl([.]default)?$/;
my ($action, $default) = ($1, $2);
my $file = File::Spec->catfile($tmpl_dir, $bn);
if ($default) {
$self->log_verbose("Unlinking $file\n");
# Just unlink default files.
inc/Module/Build/Sqitch.pm view on Meta::CPAN
# subdirectories using the appropriate engine name (pg, sqlite, #
# or oracle) as follows: #
# #
# deploy.tmpl -> deploy/$engine.tmpl #
# revert.tmpl -> revert/$engine.tmpl #
# verify.tmpl -> verify/$engine.tmpl #
# #
#################################################################
} . "\n");
}
}
view release on metacpan or search on metacpan
F<ppport.h> on your source code. See the next section for
details.
=head1 EXAMPLES
To verify whether F<ppport.h> is needed for your module, whether you
should make any changes to your code, and whether any special defines
should be used, F<ppport.h> can be run as a Perl script to check your
source code. Simply say:
perl ppport.h
vmess||5.006000|
vnewSVpvf|5.006000|5.004000|p
vnormal||5.009002|
vnumify||5.009000|
vstringify||5.009000|
vverify||5.009003|
vwarner||5.006000|
vwarn||5.006000|
wait4pid|||
warn_nocontext|||vn
warner_nocontext|||vn
view release on metacpan or search on metacpan
lib/App/Standby/Frontend.pm view on Meta::CPAN
$self->logger()->log( message => 'New Request from '.$remote_addr.'. Args: '.$args, level => 'debug', );
return 1;
}
sub _verify_group_key {
my $self = shift;
my $request = shift;
my $sql = 'SELECT COUNT(*) FROM groups WHERE id = ? AND key = ?';
my $sth = $self->dbh()->prepare($sql);
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_update_group {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'UPDATE groups SET `name` = ?, `key` = ? WHERE id = ?';
lib/App/Standby/Frontend.pm view on Meta::CPAN
my $self = shift;
my $request = shift;
return unless $request->{'group_id'};
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'DELETE FROM groups WHERE id = ?';
my $sth = $self->dbh()->prepare($sql);
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_insert_service {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'INSERT INTO group_services (`group_id`,`name`,`desc`,`class`) VALUES(?,?,?,?)';
my $sth = $self->dbh()->prepare($sql);
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_update_service {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'UPDATE group_services SET `name` = ?, `desc` = ?, `class` = ? WHERE id = ?';
lib/App/Standby/Frontend.pm view on Meta::CPAN
my $self = shift;
my $request = shift;
return unless $request->{'gs_id'};
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'DELETE FROM group_services WHERE id = ?';
my $sth = $self->dbh()->prepare($sql);
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_insert_config {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'INSERT INTO config (`key`,`value`,`group_id`) VALUES (?,?,?)';
my $sth = $self->dbh()->prepare($sql);
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_update_config {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'UPDATE config SET `value` = ? WHERE id = ?';
lib/App/Standby/Frontend.pm view on Meta::CPAN
my $self = shift;
my $request = shift;
return unless $request->{'config_id'};
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'DELETE FROM config WHERE id = ?';
my $sth = $self->dbh()->prepare($sql);
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_insert_config_contacts {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=list_config_contacts&contact_id='.$request->{'contact_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'INSERT INTO config_contacts (`key`,`value`,`contact_id`) VALUES (?,?,?)';
my $sth = $self->dbh()->prepare($sql);
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_update_config_contacts {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=list_config_contacts&contact_id='.$request->{'contact_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'UPDATE config_contacts SET `value` = ? WHERE id = ?';
lib/App/Standby/Frontend.pm view on Meta::CPAN
my $self = shift;
my $request = shift;
return [ 301, [ 'Location', '?rm=list_config_contacts&contact_id='.$request->{'contact_id'}.'&msg=Missing%20Args' ], [] ] unless $request->{'cconfig_id'};
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=list_config_contacts&contact_id='.$request->{'contact_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'DELETE FROM config_contacts WHERE id = ?';
my $sth = $self->dbh()->prepare($sql);
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_insert_contact {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'INSERT INTO contacts (`name`,`cellphone`, `group_id`,`is_enabled`,`ordinal`) VALUES (?,?,?,0,0)';
my $sth = $self->dbh()->prepare($sql);
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_update_contact {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $sql = 'UPDATE contacts SET ';
my @args = ();
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_delete_contact {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
return unless $request->{'contact_id'};
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_update_janitor {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $error = '';
my $Group = $self->groups()->{$request->{'group_id'}};
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_enable_contact {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $Group = $self->groups()->{$request->{'group_id'}};
if($Group) {
lib/App/Standby/Frontend.pm view on Meta::CPAN
sub _render_disable_contact {
my $self = shift;
my $request = shift;
# verify group_key before any modification
if(!$self->_verify_group_key($request)) {
return [ 301, [ 'Location', '?rm=overview&group_id='.$request->{'group_id'}.'&msg=Invalid%20Key' ], [] ];
}
my $Group = $self->groups()->{$request->{'group_id'}};
if($Group) {
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.63.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.79.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.87.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
lib/App/Task.pm view on Meta::CPAN
task "run foo" => \&foo;
};
task "finalize foo" => sub {
task "enable barring" => […,…];
task "verify foo" => sub {
my $status = test_foo();
say $status ? "foo is good" : "foo is down";
return $status;
};
};
lib/App/Task.pm view on Meta::CPAN
➜➜➜➜ [2.1] enable barring …
Ullamcorper eget nulla facilisi etiam dignissim diam.
Maecenas volutpat blandit aliquam etiam erat velit scelerisque in dictum.
… done (enable barring).
➜➜➜➜ [2.2] verify foo …
foo is down
… failed (verify foo).
… done (finalize foo).
=head1 INTERFACE
view release on metacpan or search on metacpan
lib/App/Tel.pm view on Meta::CPAN
#[ qr/cipher type \S+ not supported/ => sub { $rtr->{ciphertype}="des"; redo METHOD; } ],
# removing these 4, they should be handled by eof anyway
#[ qr/ssh_exchange_identification/ => sub { next METHOD; } ],
#[ qr/[Cc]onnection (refused|closed)/ => sub { next METHOD; } ],
#[ qr/key_verify failed/ => sub { next METHOD; } ],
#[ qr/Corrupted/ => sub { next METHOD; } ],
[ 'eof' => sub { next METHOD; } ],
[ 'timeout' => sub { next METHOD; } ],
);
}
view release on metacpan or search on metacpan
lib/App/Term/Jump.pm view on Meta::CPAN
=over 2
=item * \%options - options parsed from the command line
=item * $path - path to verify
=back
I<Returns> - True if the path can not be added to the database
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.88.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
This file contains message digests of all files listed in MANIFEST,
signed via the Module::Signature module, version 0.88.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
% cpansign -v
It will check each file's integrity, as well as the signature's
view release on metacpan or search on metacpan
lib/App/Test/Generator.pm view on Meta::CPAN
=head2 Property-Based Testing with Transforms
The generator can create property-based tests using L<Test::LectroTest> when the
C<properties> configuration option is enabled.
This provides more comprehensive
testing by automatically generating thousands of test cases and verifying that
mathematical properties hold across all inputs.
=head3 Basic Property-Based Transform Example
Here's a complete example testing the C<abs> builtin function:
lib/App/Test/Generator.pm view on Meta::CPAN
=item * Enables property-based testing with 1000 trials per property
=item * Defines two transforms: one for positive numbers, one for negative
=item * Automatically generates properties that verify C<abs()> always returns non-negative numbers
=back
Generate the test:
lib/App/Test/Generator.pm view on Meta::CPAN
=item * Traditional edge-case tests for boundary conditions
=item * Random fuzzing with 30 iterations (or as configured)
=item * Property-based tests that verify the transforms with 1000 trials each
=back
=head3 What Properties Are Tested?
lib/App/Test/Generator.pm view on Meta::CPAN
=item * B<Specific values> - If output specifies a C<value>, checks exact equality
=back
For the C<abs> example above, the generated properties verify:
# For the "positive" transform:
- Given a positive number, abs() returns >= 0
- The result is a valid number
- The result is defined
view release on metacpan or search on metacpan
author/patch-next-version.pl view on Meta::CPAN
foreach my $fn (keys(%files))
{
die("Failed to find '$fn' in '$toplevel'\n") unless -f "$toplevel/$fn";
}
# verify we're clean
#
my @status = qx(git status --porcelain --ignored 2>&1);
@status = grep(!m#^!! tmp/$#, @status);
die("Tree not clean:\n@status") if (@status || $?);