view release on metacpan or search on metacpan
Infix2Postfix.pm view on Meta::CPAN
package Affix::Infix2Postfix;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
#use Data::Dumper;
require Exporter;
require AutoLoader;
@ISA = qw(Exporter AutoLoader);
view release on metacpan or search on metacpan
package Agent;
use strict;
use UNIVERSAL;
use Class::Tom qw( cc repair );
use Data::Dumper; # for argument passing
use Agent::Message; # load message handling routines
use Agent::Transport; # load the autoloader
use vars qw($VERSION $MAJORVERSION $MINORVERSION $MICROVERSION $thread $Debug);
view release on metacpan or search on metacpan
lib/AgentPushKit/Client/Object/AcceptedResponse.pm view on Meta::CPAN
require 5.6.0;
use strict;
use warnings;
use utf8;
use JSON qw(decode_json);
use Data::Dumper;
use Module::Runtime qw(use_module);
use Log::Any qw($log);
use Date::Parse;
use DateTime;
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"Carp" : "0",
"Cwd" : "0",
"Data::Dumper" : "0",
"File::Basename" : "0",
"File::Find" : "0",
"File::Path" : "0",
"File::Slurper" : "0",
"File::Spec" : "0",
view release on metacpan or search on metacpan
}
},
"test" : {
"requires" : {
"Cwd" : "0",
"Data::Dumper" : "0",
"File::Basename" : "0",
"File::Find" : "0",
"File::Path" : "0",
"File::Slurper" : "0",
"File::Spec" : "0",
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"Carp" : "0",
"Cwd" : "0",
"Data::Dumper" : "0",
"File::Basename" : "0",
"File::Find" : "0",
"File::Path" : "0",
"File::Slurper" : "0",
"File::Spec" : "0",
view release on metacpan or search on metacpan
t/aion/env/etc.pm view on Meta::CPAN
use common::sense; use open qw/:std :utf8/; use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//; use Test::More 0.98; use String::Diff q...
#
# use common::sense;
#
# use YAML::Syck qw//;
#
view release on metacpan or search on metacpan
t/aion/format/url.pm view on Meta::CPAN
use common::sense; use open qw/:std :utf8/; use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//; use Test::More 0.98; use String::Diff q...
#
# use common::sense;
#
# use List::Util qw//;
# use Encode qw//;
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"Carp" : "0",
"Cwd" : "0",
"Data::Dumper" : "0",
"File::Basename" : "0",
"File::Find" : "0",
"File::Path" : "0",
"File::Slurper" : "0",
"File::Spec" : "0",
view release on metacpan or search on metacpan
"test" : {
"requires" : {
"Aion::Format" : "v0.1.0",
"Carp" : "0",
"Cwd" : "0",
"Data::Dumper" : "0",
"File::Basename" : "0",
"File::Find" : "0",
"File::Path" : "0",
"File::Slurper" : "0",
"File::Spec" : "0",
view release on metacpan or search on metacpan
},
"test" : {
"requires" : {
"Carp" : "0",
"Cwd" : "0",
"Data::Dumper" : "0",
"File::Basename" : "0",
"File::Find" : "0",
"File::Path" : "0",
"File::Slurper" : "0",
"File::Spec" : "0",
view release on metacpan or search on metacpan
misc/agent-context/.claude/skills/getty-perl-core/SKILL.md view on Meta::CPAN
with a `script/` directory should have it renamed to `bin/` — otherwise none of
the executable handling takes effect.
## 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
lib/Akamai/Edgegrid.pm view on Meta::CPAN
use 5.006;
use strict;
use warnings FATAL => 'all';
use base 'LWP::UserAgent';
use Data::Dumper;
use Digest::SHA qw(hmac_sha256_base64 sha256_base64);
use POSIX qw(strftime);
use Data::UUID;
use Config::IniFiles;
view release on metacpan or search on metacpan
lib/Akamai/Open/Debug.pm view on Meta::CPAN
$Akamai::Open::Debug::VERSION = '0.03';
use strict;
use warnings;
use MooseX::Singleton;
use Data::Dumper qw/Dumper/;
use Log::Log4perl;
our $default_conf = q/
log4perl.category.Akamai.Open.Debug = ERROR, Screen
log4perl.appender.Screen = Log::Log4perl::Appender::Screen
view release on metacpan or search on metacpan
lib/Album.pm view on Meta::CPAN
=back
=head1 BUGS AND PROBLEMS
Some versions of Perl may exhibit Data::Dumper problems with non-ASCII
data. Perl 5.6.x and 5.8.3 and later should be fine.
=head1 AUTHOR AND CREDITS
Johan Vromans (jvromans@squirrel.nl) wrote this module.
view release on metacpan or search on metacpan
lib/Algorithm/Bitonic/Sort.pm view on Meta::CPAN
use feature 'say';
use common::sense;
use constant DEBUG => $ENV{ALGORITHM_BITONIC_SORT_DEBUG};
if (DEBUG) {
require Data::Dumper::Simple;
}
our (@ISA, @EXPORT);
BEGIN {
require Exporter;
view release on metacpan or search on metacpan
eg/sample.pl view on Meta::CPAN
###########################################
use warnings;
use strict;
use Algorithm::Bucketizer;
use Data::Dumper;
print "$Algorithm::Bucketizer::VERSION\n";
my @items = (
[2,2],
view release on metacpan or search on metacpan
t/02-predict.t view on Meta::CPAN
my @original = @whole_series[64 .. $#whole_series];
my @predicted = @{ $burg->predict(64) };
is($#original, $#predicted, 'cardinality');
# use Data::Dumper;
# diag Dumper(\@original, \@predicted);
my $error = 0.0;
my $epsilon = 3.0;
for my $i (0 .. $#original) {
view release on metacpan or search on metacpan
# NoGood is registered
ok($ngs->nb_no_goods > 0);
my $nng = $ngs->nb_no_goods;
use Data::Dumper;
$ngs->filter_no_good(sub {
return 1;
}); # use this NG
is($ngs->nb_no_goods, $nng);
view release on metacpan or search on metacpan
lib/Algorithm/CheckDigits/MXX_006.pm view on Meta::CPAN
use 5.006;
use strict;
use warnings;
use integer;
use Data::Dumper;
use version; our $VERSION = 'v1.3.6';
our @ISA = qw(Algorithm::CheckDigits);
view release on metacpan or search on metacpan
example/cluster.pl view on Meta::CPAN
use strict;
use warnings;
use Algorithm::ClusterPoints;
use Data::Dumper;
my $clp = Algorithm::ClusterPoints->new(radius => 0.1, min_size => 2, ordered => 1);
while (<DATA>) {
next if /^\s*(?:#.*)?$/;
example/cluster.pl view on Meta::CPAN
$clp->add_point($x, $y);
}
my @clusters_ix = $clp->clusters_ix;
print Data::Dumper->Dump([\@clusters_ix], ['clusters_ix']);
for my $i (0..$#clusters_ix) {
print( join( ' ',
"cluster $i:",
map {
example/cluster.pl view on Meta::CPAN
), "\n"
);
}
my @clusters = $clp->clusters;
print Data::Dumper->Dump([\@clusters], ['clusters']);
__DATA__
0.43 0.62
0.50 0.65
0.49 0.32
view release on metacpan or search on metacpan
lib/Algorithm/CriticalPath.pm view on Meta::CPAN
our $VERSION = '0.07';
use Graph;
use Carp;
use Data::Dumper;
has 'graph' => (
is => 'ro'
, isa => 'Graph'
, required => 1
view release on metacpan or search on metacpan
examples/examplefit.pl view on Meta::CPAN
xdata => \@xdata,
ydata => \@ydata,
maximum_iterations => $max_iter,
);
use Data::Dumper;
print Dumper \@parameters;
print Dumper $square_residual;
view release on metacpan or search on metacpan
lib/Algorithm/DBSCAN.pm view on Meta::CPAN
use strict;
use warnings;
use 5.10.1;
use Data::Dumper;
use Algorithm::DBSCAN::Point;
use Algorithm::DBSCAN::Dataset;
=head1 NAME
view release on metacpan or search on metacpan
lib/Algorithm/DependencySolver/Traversal.pm view on Meta::CPAN
use MooseX::FollowPBP;
use MooseX::Method::Signatures;
use List::MoreUtils qw(all uniq);
use Data::Dumper;
=head1 NAME
Algorithm::DependencySolver::Traversal - A module for traversing a dependency graph
view release on metacpan or search on metacpan
use strict;
$^W++;
use lib qw(blib lib);
use Algorithm::Diff::Any qw(diff LCS traverse_sequences traverse_balanced sdiff);
use Algorithm::Diff;
use Data::Dumper;
use Test;
BEGIN
{
$|++;
my @lcs = LCS( \@a, \@b );
ok( "@lcs", $correctResult );
# Compare the diff output with the one from the Algorithm::Diff manpage.
my $diff = diff( \@a, \@b );
$Data::Dumper::Indent = 0;
my $cds = Dumper($correctDiffResult);
my $dds = Dumper($diff);
ok( $dds, $cds );
##################################################
view release on metacpan or search on metacpan
# `make test'. After `make install' it should work as `perl base.t'
use strict;
$^W++;
use lib qw(blib lib);
use Algorithm::Diff::XS qw(diff LCS traverse_sequences traverse_balanced sdiff);
use Data::Dumper;
use Test;
BEGIN
{
$|++;
my @lcs = LCS( \@a, \@b );
ok( "@lcs", $correctResult );
# Compare the diff output with the one from the Algorithm::Diff manpage.
my $diff = diff( \@a, \@b );
$Data::Dumper::Indent = 0;
my $cds = Dumper($correctDiffResult);
my $dds = Dumper($diff);
ok( $dds, $cds );
##################################################
view release on metacpan or search on metacpan
# `make test'. After `make install' it should work as `perl base.t'
use strict;
$^W++;
use lib qw(blib lib);
use Algorithm::Diff qw(diff LCS traverse_sequences traverse_balanced sdiff);
use Data::Dumper;
use Test;
BEGIN
{
$|++;
my @lcs = LCS( \@a, \@b );
ok( "@lcs", $correctResult );
# Compare the diff output with the one from the Algorithm::Diff manpage.
my $diff = diff( \@a, \@b );
$Data::Dumper::Indent = 0;
my $cds = Dumper($correctDiffResult);
my $dds = Dumper($diff);
ok( $dds, $cds );
##################################################
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
*{"${package}::$field"} = $sub;
return $code if defined wantarray;
}
sub default_as_code {
require Data::Dumper;
local $Data::Dumper::Sortkeys = 1;
my $code = Data::Dumper::Dumper(shift);
$code =~ s/^\$VAR1 = //;
$code =~ s/;$//;
return $code;
}
inc/Spiffy.pm view on Meta::CPAN
# Debugging support
#===============================================================================
sub spiffy_dump {
no warnings;
if ($dump eq 'dumper') {
require Data::Dumper;
$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent = 1;
return Data::Dumper::Dumper(@_);
}
require YAML;
$YAML::UseVersion = 0;
return YAML::Dump(@_) . "...\n";
}
view release on metacpan or search on metacpan
Allow fitness to not be memo-ized (re-evaulate every generation)
Write more tests
Support for freezing state using Storable or Data::Dumper or something
Non-aligned crossover
Better POD for EA-n00bs ;)