view release on metacpan or search on metacpan
.claude/skills/getty-perl-core/SKILL.md view on Meta::CPAN
- **Skip pure dev-tooling noise** — skill hardlinks, editor config, internal CI refactors. A CI fix that unbreaks the build for everyone IS worth a line.
- **Never hand-edit the version line or timestamp** — `[NextRelease]` owns those.
## Forbidden
⌠`require Foo` inside a method to "speed up startup" · ⌠a Getty repo's `$VERSION` as a cpanfile requirement · ⌠`'0'` or `'>= x'` as a version argument · ⌠`default => sub {...}` for a non-trivial attribute default · ⌠4-space indent ...
## When in doubt
Grep hand-written Getty code for how the pattern is used there — the reference is an older repo with no AI commits in its history. Newer repos may show an agent's guess rather than the house rule.
view release on metacpan or search on metacpan
t/00_diag.t view on Meta::CPAN
use Test2::V0 -no_srand => 1;
use Alien::pkgconf;
use Data::Dumper qw( Dumper );
diag '';
diag '';
diag '';
view release on metacpan or search on metacpan
inc/My/Build/Base.pm view on Meta::CPAN
use My::Build::Utility qw(awx_arch_file awx_touch);
use Alien::wxWidgets::Utility qw(awx_sort_config awx_grep_config);
use File::Path ();
use File::Basename ();
use Fatal qw(open close unlink);
use Data::Dumper;
use File::Glob qw(bsd_glob);
use Carp;
use lib '.';
# Ensure deterministic output
$Data::Dumper::Sortkeys = 1;
# use the system version of a module if present; in theory this could lead to
# compatibility problems (if the latest version of one of the dependencies,
# installed in @INC is incompatible with the bundled version of a module)
sub _load_bundled_modules {
inc/My/Build/Base.pm view on Meta::CPAN
my $directory = File::Basename::dirname( $file );
my %config = $self->_init_config;
my $base = $self->awx_key;
my $body = Data::Dumper->Dump( [ \%config ] );
$body =~ s/rEpLaCe/$base/g;
File::Path::mkpath( $directory ) or die "mkpath '$directory': $!"
unless -d $directory;
open my $fh, '> ' . File::Spec->catfile( $directory, $base . '.pm' );
view release on metacpan or search on metacpan
lib/Aliyun.pm view on Meta::CPAN
use Aliyun::AuthV2;
use Aliyun::Request;
use Aliyun::Method::FcSmsNumSend;
use Aliyun::Method::FcIotQrycard;
use Data::Dumper qw/Dumper/;
my $auth = Aliyun::AuthV2->new();
$auth->set_appkey('ä½ è‡ªå·±çš„key');
$auth->set_secretkey('ä½ è‡ªå·±çš„ç§˜é’¥');
view release on metacpan or search on metacpan
lib/App/AllKnowingDNS/Config.pm view on Meta::CPAN
package App::AllKnowingDNS::Config;
use Mouse;
use App::AllKnowingDNS::Zone;
use App::AllKnowingDNS::Util;
use Data::Dumper;
=head1 NAME
App::AllKnowingDNS::Config - configuration object
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.67';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use Fcntl ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.68';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use Fcntl ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.68';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use Fcntl ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);
view release on metacpan or search on metacpan
lib/CPAN/Uploader.pm view on Meta::CPAN
if not (ref $self) and not $arg;
$self = $self->new($arg) if $arg;
if ($arg->{dry_run}) {
require Data::Dumper;
$self->log("By request, cowardly refusing to do anything at all.");
$self->log(
"The following arguments would have been used to upload: \n"
. '$self: ' . Data::Dumper::Dumper($self)
. '$file: ' . Data::Dumper::Dumper($file)
);
} else {
$self->_upload($file);
}
}
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"Crypt::OpenSSL::Guess" : "0.11",
"Crypt::OpenSSL::PKCS10" : "0",
"Data::Dumper" : "0",
"Digest::SHA" : "0",
"File::Spec::Functions" : "0",
"Test::More" : "0"
}
}
view release on metacpan or search on metacpan
lib/Crypt/RSA/Key/Private.pm view on Meta::CPAN
## it under the same terms as Perl itself.
use vars qw($AUTOLOAD $VERSION);
use base 'Crypt::RSA::Errorhandler';
use Tie::EncryptedHash;
use Data::Dumper;
use Math::BigInt try => 'GMP, Pari';
use Math::Prime::Util qw/is_prime/;
use Carp;
$Crypt::RSA::Key::Private::VERSION = '1.99';
lib/Crypt/RSA/Key/Private.pm view on Meta::CPAN
C<Filename> into the object. If C<Password> is provided, the
method automatically calls reveal() to decrypt the key.
=item B<serialize()>
Creates a Data::Dumper(3) serialization of the private key and
returns the string representation.
=item B<deserialize()>
Accepts a serialized key under the C<String> parameter and
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.71';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use constant IS_WIN32 => $^O eq 'MSWin32';
use if !IS_WIN32, Fcntl => ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);
view release on metacpan or search on metacpan
inc/Pegex/Compiler.pm view on Meta::CPAN
return JSON::XS->new->utf8->canonical->pretty->encode($self->tree);
}
sub to_perl {
my $self = shift;
require Data::Dumper;
no warnings 'once';
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;
my $perl = Data::Dumper::Dumper($self->tree);
$perl =~ s/\?\^:/?-xism:/g;
$perl =~ s!(\.rgx.*?qr/)\(\?-xism:(.*)\)(?=/)!$1$2!g;
die "to_perl failed with non compatible regex in:\n$perl"
if $perl =~ /\?\^/;
return $perl;
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
package Inline::C;
our $VERSION = '0.71';
use Inline 0.56;
use Config;
use Data::Dumper;
use Carp;
use Cwd qw(cwd abs_path);
use File::Spec;
use constant IS_WIN32 => $^O eq 'MSWin32';
use if !IS_WIN32, Fcntl => ':flock';
inc/Inline/C.pm view on Meta::CPAN
print MF <<END;
use ExtUtils::MakeMaker;
my %options = %\{
END
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print MF Data::Dumper::Dumper(\ %options);
print MF <<END;
\};
WriteMakefile(\%options);
view release on metacpan or search on metacpan
use Test::More tests => 1;
package Ingy;
use Sex qw(Data::Dumper strict ? ? ?);
package main;
pass "I survived Sex with Ingy!";
view release on metacpan or search on metacpan
BabelFish.pm view on Meta::CPAN
=head2 $phish->get_languages_hashref()
Returns a hashref of language info. It can be used to view all the available languages, their name, targets, and two letter code.
It is probably most usefull if you need to reference what the two letter code is for a given langauge.
use Data::Dumper;
print Dumper $phish->get_languages_hashref; # AltaVista::BabelFish->get_languages_hashref works also
=head2 $phish->fishinfo()
Returns content for an html page (no header) if called via a browser (IE !-t STDIN) and a text page if via CLI (IE -t STDIN)
view release on metacpan or search on metacpan
lib/Alter.pm view on Meta::CPAN
my $trans = $trans_tab{ $type};
$trans->( $_[ 0], $_[ 1]); # may change $_[ 1] ($to)
$_[ 1];
}
### Data::Dumper support (for viewing only)
{
package Alter::Dumper;
# return a viewable string containing the object information
sub Dumper {
my $obj = shift;
require Data::Dumper;
local $Data::Dumper::Purity = 1;
Data::Dumper::Dumper( $obj->Alter::image);
}
}
### Storable support
{
lib/Alter.pm view on Meta::CPAN
autovivification off for the current class. This is also the
default.
=head3 Serialization Support
Serialization is supported for human inspection in C<Data::Dumper>
style and for disk storage and cloning in C<Storable> style.
For C<Data::Dumper> support C<Alter> provides the class C<Alter::Dumper>
for use as a base class, which contains the single method C<Dumper>.
C<Dumper> returns a string that represents a hash in C<Data::Dumper>
format. The hash shows all I<alter ego>s that have been created for
the object, keyed by class. An additional key "(body)" (which can't
be a class name) holds the actual body of the object. Formatting-
and other options of C<Data::Dumper> will change the appearance of
the dump string, with the exception of C<$Data::Dumper::Purity>,
which will always be 1. C<Dumper> can also be imported from
C<Alter> directly.
Note that C<eval()>-ing a dump string will I<not> restore the
object, but rather create a hash as described. Re-creation of
lib/Alter.pm view on Meta::CPAN
fields still applies, only each class sees its individual hash.
C<Alter> based objects are garbage-collected and thread-safe without
additional measures.
C<Alter> also supports C<Data::Dumper> and C<Storable> in
a generic way, so that C<Alter> based objects can be easily be viewed
and made persistent (within the limitations of the respective modules).
C<Alter> works by giving every object a class-specific I<alter ego>,
which can be any scalar, for its (the classe's) specific needs for
view release on metacpan or search on metacpan
lib/Alvis/AinoDump.pm view on Meta::CPAN
package Alvis::AinoDump;
use warnings;
use strict;
use Data::Dumper;
$Alvis::AinoDump::VERSION = '0.1';
##############################################################################
#
view release on metacpan or search on metacpan
lib/Alvis/NLPPlatform.pm view on Meta::CPAN
use Fcntl qw(:DEFAULT :flock :seek);
use Alvis::Pipeline;
use File::Path qw(mkpath);
use File::Touch;
#use Data::Dumper;
my $cur_doc_nb;
my $done_parsing;
our $last_doc;
view release on metacpan or search on metacpan
lib/Alvis/QueryFilter.pm view on Meta::CPAN
use strict;
use warnings;
use Carp;
use Data::Dumper;
use Alvis::Treetagger;
use CQL::Parser;
use URI::Escape;
view release on metacpan or search on metacpan
lib/Alvis/Saa.pm view on Meta::CPAN
use strict;
use Alvis::Tana;
# use Data::Dumper;
use Sys::Hostname;
use IO::Socket;
use IO::Select;
use Fcntl;
view release on metacpan or search on metacpan
inc/Alzabo/GUI/Mason/Build.pm view on Meta::CPAN
use Module::Build 0.16;
use base 'Module::Build';
use Cwd;
use Data::Dumper;
use File::Path;
use File::Spec;
sub ACTION_install
{
view release on metacpan or search on metacpan
inc/Alzabo/Build.pm view on Meta::CPAN
use strict;
use Module::Build 0.20;
use base 'Module::Build';
use Data::Dumper;
use File::Path;
use File::Spec;
sub ACTION_docs
{
view release on metacpan or search on metacpan
lib/Amazon/API.pm view on Meta::CPAN
use Amazon::API::Error;
use Amazon::Credentials;
use AWS::Signature4;
use Data::Dumper;
use HTTP::Request;
use JSON qw/to_json from_json/;
use LWP::UserAgent;
use Scalar::Util qw/reftype/;
use XML::Simple;
view release on metacpan or search on metacpan
example/jp_get_items.pl view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Amazon::CreatorsAPI;
use Data::Dumper;
# Locale Reference of Japan
# https://affiliate-program.amazon.com/creatorsapi/docs/en-us/locale-reference/japan
my $api = Amazon::CreatorsAPI->new(
view release on metacpan or search on metacpan
lib/Amazon/Credentials.pm view on Meta::CPAN
__PACKAGE__->mk_accessors(qw/aws_secret_access_key aws_access_key_id token region
user_agent profile debug expiration role container order
serialized logger
/);
use Data::Dumper;
use Date::Format;
use Exporter;
use HTTP::Request;
use JSON;
use LWP::UserAgent;
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
pathname: L/LE/LEONT/ExtUtils-Config-0.007.tar.gz
provides:
ExtUtils::Config 0.007
requirements:
Config 0
Data::Dumper 0
ExtUtils::MakeMaker 6.30
File::Find 0
File::Temp 0
Test::More 0.88
strict 0
cpanfile.snapshot view on Meta::CPAN
ExtUtils-Depends-0.306
pathname: X/XA/XAOC/ExtUtils-Depends-0.306.tar.gz
provides:
ExtUtils::Depends 0.306
requirements:
Data::Dumper 0
ExtUtils::MakeMaker 0
File::Spec 0
IO::File 0
perl 5.006
ExtUtils-Helpers-0.021
cpanfile.snapshot view on Meta::CPAN
Module::Build::PodParser 0.4211
requirements:
CPAN::Meta 2.142060
CPAN::Meta::YAML 0.003
Cwd 0
Data::Dumper 0
ExtUtils::CBuilder 0.27
ExtUtils::Install 0
ExtUtils::Manifest 0
ExtUtils::Mkbootstrap 0
ExtUtils::ParseXS 2.21
cpanfile.snapshot view on Meta::CPAN
Test-Differences-0.61
pathname: O/OV/OVID/Test-Differences-0.61.tar.gz
provides:
Test::Differences 0.61
requirements:
Data::Dumper 2.126
Test::More 0
Text::Diff 0.35
Test-Exception-0.32
pathname: A/AD/ADIE/Test-Exception-0.32.tar.gz
provides:
cpanfile.snapshot view on Meta::CPAN
provides:
namespace::sweep 0.006
requirements:
B::Hooks::EndOfScope 0.09
Carp 0
Data::Dumper 0
ExtUtils::MakeMaker 6.30
List::Util 0
Package::Stash 0.33
Scalar::Util 0
Sub::Identify 0.04
view release on metacpan or search on metacpan
lib/Amazon/DynamoDB/20120810.pm view on Meta::CPAN
my $source = shift;
my $r;
ref($source) eq 'HASH' || Carp::confess("Attribute updates is not a hash ref");
foreach my $k (keys %$source) {
my $op = $source->{$k};
ref($op) eq 'HASH' || Carp::confess("AttributeUpdate for field $k is not a hash ref:" . Data::Dumper->Dump([$op]));
$r->{$k} = {
(defined($op->{Action}) ? (Action => $op->{Action}) : ()),
(defined($op->{Value}) ? (Value => { _encode_type_and_value($op->{Value}) }) : ()),
};
}
lib/Amazon/DynamoDB/20120810.pm view on Meta::CPAN
fun _create_key_schema(ArrayRef $source, HashRef $known_fields) {
defined($source) || die("No source passed to create_key_schema");
defined($known_fields) || die("No known fields passed to create_key_schmea");
my @r;
foreach my $field_name (@$source) {
defined($known_fields->{$field_name}) || Carp::confess("Unknown field specified '$field_name' in schema, must be defined in fields. schema:" . Data::Dumper->Dump([$source]));
push @r, {
AttributeName => $field_name,
KeyType => (scalar(@r) ? 'RANGE' : 'HASH')
};
}
view release on metacpan or search on metacpan
lib/Amazon/EC2.pm view on Meta::CPAN
use Amazon::Credentials;
use JSON qw/from_json to_json/;
use Scalar::Util qw/reftype/;
use XML::Simple;
use Data::Dumper;
=pod
=head1 NAME
lib/Amazon/EC2.pm view on Meta::CPAN
use strict;
use warnings;
use Amazon::EC2;
use Amazon::Credentials;
use Data::Dumper;
my $ec2 = new Amazon::EC2({credentials => new Amazon::Credentials});
my $result = $ec2->DescribeInstances();
view release on metacpan or search on metacpan
lib/Amazon/MWS/Client.pm view on Meta::CPAN
use Amazon::MWS::Orders;
use Amazon::MWS::Sellers;
use Amazon::MWS::Reports;
use Amazon::MWS::Feeds;
use Amazon::MWS::Products;
use Data::Dumper;
sub agent {
return shift->{agent};
}