view release on metacpan or search on metacpan
lib/App/cpm/HTTP.pm view on Meta::CPAN
die "Couldn't find HTTP Clients that support https" if !$backend;
my $http = $backend->new(
agent => $agent,
timeout => 60,
verify_SSL => 1,
%args,
);
my $keep_alive = exists $args{keep_alive} ? $args{keep_alive} : 1;
if ($keep_alive and $backend =~ /LWP$/) {
$http->{ua}->conn_cache({ total_capacity => 3 });
view release on metacpan or search on metacpan
share/wordlist_en.tsv view on Meta::CPAN
65511 venus
65512 verbalize
65513 verbally
65514 verbose
65515 verdict
65516 verify
65521 verse
65522 version
65523 versus
65524 vertebrae
65525 vertical
view release on metacpan or search on metacpan
xt/author/docker_dozo.t view on Meta::CPAN
# Run command in existing running container
my $out = `$dozo -I $image -N $container -L -B echo world 2>&1`;
unlike($out, qr/create live container/, 'uses existing container');
like($out, qr/world/, 'command runs via exec in running container');
# Stop container and verify restart
`docker stop $container 2>&1`;
$out = `$dozo -I $image -N $container -L -B echo restarted 2>&1`;
like($out, qr/restarting exited container $container/, 'restarts stopped container');
# Kill and recreate
view release on metacpan or search on metacpan
lib/App/financeta/indicators.pm view on Meta::CPAN
6 => 'KAMA',
7 => 'MAMA',
8 => 'T3',
};
#TODO: verify parameters that are entered by the user
has overlaps => {
bbands => {
name => 'Bollinger Bands',
params => [
# key, pretty name, type, default value
view release on metacpan or search on metacpan
lib/FlashVideo/Site/Tudou.pm view on Meta::CPAN
die "Couldn't extract video ID, we are out probably out of date" unless $videoID;
debug "Using video ID $videoID";
# Get video info; safe keys seen: YouNeverKnowThat, IAlsoNeverKnow
# but they're not even verifying either safekey or noCatch
# (maybe noCatch means no cache?)
$browser->get(
sprintf "http://v2.tudou.com/v2/kili?safekey=%s&id=%s&noCatch=%d",
'YouNeverKnowThat', $videoID, rand( 10000 ) );
view release on metacpan or search on metacpan
lib/App/gh/Git.pm view on Meta::CPAN
}
sub _temp_cache {
my ($self, $name) = _maybe_self(@_);
_verify_require();
my $temp_fd = \$TEMP_FILEMAP{$name};
if (defined $$temp_fd and $$temp_fd->opened) {
if ($TEMP_FILES{$$temp_fd}{locked}) {
throw Error::Simple("Temp file with moniker '" .
lib/App/gh/Git.pm view on Meta::CPAN
$TEMP_FILES{$$temp_fd}{fname} = $fname;
}
$$temp_fd;
}
sub _verify_require {
eval { require File::Temp; require File::Spec; };
$@ and throw Error::Simple($@);
}
=item temp_reset ( FILEHANDLE )
view release on metacpan or search on metacpan
=head2 GitHub Attestations
This distribution now uses
L<GitHub Attestations|https://github.blog/2024-05-02-introducing-artifact-attestations-now-in-public-beta/>,
which allow you to verify that the archive file you have was made from
the official repo.
You need a GitHub account and the L<gh tool|https://github.com/larsks/ghcli>.
# download the distro file from GitHub, MetaCPAN, or a CPAN mirror
$ gh auth login
...follow instructions...
$ gh attestation verify App-grepurl-1.23.tar.gz --owner briandfoy
=head2 Getting help
Although I'm happy to hear from module users in private email,
that's the best way for me to forget to do something.
view release on metacpan or search on metacpan
lib/App/grindperl.pm view on Meta::CPAN
$self->vlog("Running '$cmdline'");
system($cmdline);
return $? == 0;
}
sub verify_dir {
my ($self) = @_;
my $prefix = dir($self->prefix);
return -w $prefix->parent;
}
lib/App/grindperl.pm view on Meta::CPAN
cache_dir
cache_file
config_file
read_config_file
do_cmd
verify_dir
configure
run
=head1 SEE ALSO
view release on metacpan or search on metacpan
lib/App/hopen/Gen.pm view on Meta::CPAN
unless scalar keys %$hrSourceFiles;
my $lrSourceFiles = $hrSourceFiles->{(keys %$hrSourceFiles)[0]};
hlog { 'found inputs to goal', $args{goal}->name, Dumper($lrSourceFiles) } 2;
# TODO? verify that all the assets are actually in the graph first?
$self->connect($_, $phony_node) foreach @$lrSourceFiles;
} #visit_goal()
=head2 visit_node
view release on metacpan or search on metacpan
=head2 GitHub Attestations
This distribution now uses
L<GitHub Attestations|https://github.blog/2024-05-02-introducing-artifact-attestations-now-in-public-beta/>,
which allow you to verify that the archive file you have was made from
the official repo.
You need a GitHub account and the L<gh tool|https://github.com/larsks/ghcli>.
# download the distro file from GitHub, MetaCPAN, or a CPAN mirror
$ gh auth login
...follow instructions...
$ gh attestation verify App::ipinfo-1.23.tar.gz --owner briandfoy
=head2 Getting help
Although I'm happy to hear from module users in private email,
that's the best way for me to forget to do something.
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
.claude/agents/perl-release-check.md view on Meta::CPAN
Use `dzil-release-check` skills for:
- Understanding dist.ini configuration
- @Author::GETTY conventions
- Plugin bundle options
Run: `dzil test` and `dzil build` to verify
## For Plain Distributions
Check manually:
- `Makefile.PL` or `Build.PL`
view release on metacpan or search on metacpan
lib/App/locket.pm view on Meta::CPAN
App::locket uses third-party tools for read/write access to the clipboard. It tries to detect if
C<pbcopy>, C<xsel>, or C<xclip> are available. It does this by looking in C</bin> and C</usr/bin>
=head2 Purging the clipboard
By default, App::locket will purge the clipboard of a secret it put there after a set delay. It will try to verify that it is
wiping what it put there in the first place (so it doesn't accidentally erase something else you copied)
If for some reason App::locket cannot read from the clipboard, it will purge it just in case
If you prematurely cancel a secret copying operation via CTRL-C, App::locket will catch the signal and purge the clipboard first
view release on metacpan or search on metacpan
sub query_gemini {
my $query = shift;
my $socket = IO::Socket::SSL->new(
PeerHost => $host,
PeerService => $port,
SSL_verify_mode => SSL_VERIFY_NONE)
or die "Cannot construct client socket: $@";
print $socket "$query\r\n";
undef $/; # slurp
return <$socket>;
}
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
bin/makedist view on Meta::CPAN
config_init() unless $opt_noconfig;
# First we need to make sure that all files that's listed in the MANIFEST
# actually exists.
verify_manifest();
makedist();
bin/makedist view on Meta::CPAN
# App-makedist-0.012.tar.gz
return (defined $package ? $package : 'App-' . basename(getcwd()));
}
#>
sub verify_manifest { #<
open(my $fh, '<', $MANIFEST) or die "Can't open '$MANIFEST': aborting\n";
print "- Checking file integrity...\n" if $opt_verbose;
while(<$fh>) {
chomp;
view release on metacpan or search on metacpan
t/basics.t
t/develop_block.t
t/eof.t
t/eol.t
t/preserve.t
t/verify_prereqs.t
META.yml Module YAML meta-data (added by MakeMaker)
META.json Module JSON meta-data (added by MakeMaker)
view release on metacpan or search on metacpan
t/01_mdee.t view on Meta::CPAN
like($out, qr/\e\[/, 'output contains ANSI escape sequences');
# Both table formatting and text should be present
like($out, qr/greple.*Pattern matching/s, 'table content is present');
};
# Test: show option (verify actual output behavior)
subtest 'show option' => sub {
# Helper: check if text has ANSI color directly applied
# Markers and content may be colored separately (emphasis_mark),
# so match ANSI before either the marker or the content.
sub has_ansi_around {
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
}
];no strict qw(refs);my$code_ref=eval qq{#line 1 "DBI::PurePerl $method"\n$method_code};warn "$@\n$method_code\n" if $@;die "$@\n$method_code\n" if $@;*$method=$code_ref;if (0 && $method =~ /\b(connect|FETCH)\b/){my$l=0;warn "*$method code:\n"....
DBI_PUREPERL
$fatpacked{"DBI/SQL/Nano.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_SQL_NANO';
package DBI::SQL::Nano;use strict;use warnings;use vars qw($VERSION $versions);use Carp qw(croak);require DBI;BEGIN {$VERSION="0.03";$versions->{nano_version}=$VERSION;if ($ENV{DBI_SQL_NANO}||!eval {require SQL::Statement;$SQL::Statement::VERSION g...
DBI_SQL_NANO
$fatpacked{"DBI/Util/CacheMemory.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'DBI_UTIL_CACHEMEMORY';
package DBI::Util::CacheMemory;use strict;use warnings;our$VERSION="0.03";my%cache;sub new {my ($class,%options)=@_;my$namespace=$options{namespace}||= 'Default';my$self=bless \%options=>$class;$cache{$namespace }||= {};return$self}sub set {my ($se...
DBI_UTIL_CACHEMEMORY
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.73.
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
t/samples/percona-compiled.txt view on Meta::CPAN
information.
--master-retry-count=#
The number of tries the slave will make to connect to the
master before giving up. Deprecated option, use 'CHANGE
MASTER TO master_retry_count = <num>' instead.
--master-verify-checksum
Force checksum verification of logged events in binary
log before sending them to slaves or printing them in
output of SHOW BINLOG EVENTS. Disabled by default.
--max-allowed-packet=#
Max packet length to send to or receive from the server
t/samples/percona-compiled.txt view on Meta::CPAN
for any given scenario. (Default: INDEX_SCAN,
TABLE_SCAN).
--slave-skip-errors=name
Tells the slave thread to continue replication when a
query event returns an error from the provided list
--slave-sql-verify-checksum
Force checksum verification of replication events after
reading them from relay log. Note: Events are always
checksum-verified by slave on receiving them from the
network before writing them to the relay log. Enabled by
default.
(Defaults to on; use --skip-slave-sql-verify-checksum to disable.)
--slave-transaction-retries=#
Number of times the slave SQL thread will retry a
transaction in case it failed with a deadlock or elapsed
lock wait timeout, before giving up and stopping
--slave-type-conversions=name
t/samples/percona-compiled.txt view on Meta::CPAN
low-priority-updates FALSE
lower-case-table-names 0
master-info-file master.info
master-info-repository FILE
master-retry-count 86400
master-verify-checksum FALSE
max-allowed-packet 4194304
max-binlog-cache-size 18446744073709547520
max-binlog-dump-events 0
max-binlog-files 0
max-binlog-size 1073741824
t/samples/percona-compiled.txt view on Meta::CPAN
slave-parallel-workers 0
slave-pending-jobs-size-max 16777216
slave-preserve-commit-order FALSE
slave-rows-search-algorithms TABLE_SCAN,INDEX_SCAN
slave-skip-errors (No default value)
slave-sql-verify-checksum TRUE
slave-transaction-retries 10
slave-type-conversions
slow-launch-time 2
slow-query-log FALSE
slow-query-log-always-write-time 10
view release on metacpan or search on metacpan
t/00-basic.t view on Meta::CPAN
require './t/test.pl';
diag "Client connecting to $port...";
# verify that connection is possible
use IO::Socket::INET;
my $client = IO::Socket::INET->new(
Domain => AF_INET,
PeerAddr => "localhost:$port",
) or die "Cannot construct socket - $!\n";
view release on metacpan or search on metacpan
lib/App/nioscli.pm view on Meta::CPAN
option 'insecure' => (
is => 'ro',
isa => 'Bool',
default => 0,
cmd_env => 'WAPI_INSECURE',
documentation => 'Enable or disable verifying SSL certificates',
);
option 'scheme' => (
is => 'ro',
isa => 'Str',
lib/App/nioscli.pm view on Meta::CPAN
global:
username: foo
password: bar
wapi-host: 10.0.0.1
=item * C<insecure>: Enable or disable verifying SSL certificates. Can be set from C<ENV: WAPI_INSECURE>, default is C<false>.
=item * C<password>: Password to use to authenticate the connection to NIOS. Can be set from C<ENV: WAPI_PASSWORD>.
=item * C<scheme>: Default is C<https>.
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/App/pepper.pm view on Meta::CPAN
'host' => '',
'connect' => undef,
'debug' => $opt->{'debug'},
'login' => undef,
'reconnect' => 0,
'verify' => ($opt->{'insecure'} ? undef : 1),
'ca_file' => Mozilla::CA::SSL_ca_file(),
'lang' => ($opt->{'lang'} ? $opt->{'lang'} : 'en'),
'appname' => sprintf('Pepper %s', $VERSION),
'login_security' => $opt->{'login-security'},
);
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.83.
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
t/test2_helpers.pl view on Meta::CPAN
my ($object, $cb) = @_;
my $mocked = Mocked->new($object);
if (defined($cb)) {
$cb->($mocked, $object);
$mocked->verify;
} else {
return $mocked;
}
}
t/test2_helpers.pl view on Meta::CPAN
my $mockedMethod = MockedMethod->new($self, $method);
push @{$self->{methods}}, $mockedMethod;
return $mockedMethod;
}
sub verify {
my ($self) = @_;
for (@{$self->{methods}}) {
$_->verify();
}
}
sub reset {
my ($self) = @_;
t/test2_helpers.pl view on Meta::CPAN
my ($self, @args) = @_;
$self->{with} = \@args;
return $self;
}
sub verify {
my ($self) = @_;
if (defined $self->{with}) {
is $self->{called_with}, $self->{with}, "method " . $self->{method} . " is called with expected arguments";
}
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.73.
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.73.
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