view release on metacpan or search on metacpan
lib/Algorithm/IRCSRP2.pm view on Meta::CPAN
# ABSTRACT: IRC channel encryption algorithm
use Moose;
# core
use Data::Dumper;
use Digest::SHA;
use MIME::Base64;
use Math::BigInt only => 'GMP,Pari';
# CPAN
view release on metacpan or search on metacpan
t/02interface.t view on Meta::CPAN
use strict;
use warnings;
use Data::Dumper;
use Algorithm::KNN::XS;
use Test::More tests => 119;
my @points = (
[1.1345, 2.657],
view release on metacpan or search on metacpan
lib/Algorithm/LBFGS.pm view on Meta::CPAN
# log iterations information in the array ref $log
my $log = [];
fmin($eval_cb, $x0, 'logging', $log);
use Data::Dumper;
print Dumper $log;
=head3 user_data
view release on metacpan or search on metacpan
use Test::More tests => 10;
#use lib "../lib";
BEGIN { use_ok( 'Algorithm::Line::Bresenham', qw/line circle quad_bezier ellipse_rect polyline thick_line varthick_line/); }
use Data::Dumper;
is_deeply (
[[0,0], [1,1], [2,2]],
[line(0,0,2,2)],
'up-right' );
[6,-1],[6,-2],[7,-2],[6,-3],[5,-3],[6,-4],[5,-4],[5,-5]],
[thick_line(13,13,5,-5,2)],
'thick_line');
__END__
$Data::Dumper::Indent = 0;
print Data::Dumper->Dump([[polyline(2,3,6,4,5,7)]]);
print Data::Dumper->Dump([[polyline(55,10,60,15,55,20,60,25,55,30,60,35)]]);;
view release on metacpan or search on metacpan
lib/Algorithm/MLCS.pm view on Meta::CPAN
Version 1.02
=head1 SYNOPSIS
use Data::Dumper;
use Algorithm::MLCS;
my @seqs = (
[ qw/a b c d f g h j q z/ ],
[ qw/a b c d f g h j q z/ ],
view release on metacpan or search on metacpan
#!/usr/bin/perl -w
use strict;
use lib qw(../blib/lib ./blib/lib);
use Algorithm::MarkovChain;
use Data::Dumper;
my $mc = Algorithm::MarkovChain->new();
my $infile = shift;
if ($infile) {
view release on metacpan or search on metacpan
package Algorithm::Merge;
use Algorithm::Diff ();
use Carp;
use strict;
use Data::Dumper;
use vars qw(@EXPORT_OK @ISA $VERSION $REVISION);
$VERSION = '0.08';
q{<!-- ------ END CONFLICT ------ -->},
) };
my $diff = diff3($pivot, $doca, $docb, $keyGen, @_);
# print Data::Dumper -> Dump([$diff]), "\n";
my @ret;
my @conflict = ( [], [] );
sub main::diag {
warn join("", @_) , "\n";
}
print join(" ", merge(
#print Data::Dumper -> Dump([
# merge(
# #[qw(a b c d h i j)], # ancestor
# #[qw(a b c d f h i j)], # left
# #[qw(a b c e g )], # right
[qw(0 1 2 3 4 7 9 b)],
view release on metacpan or search on metacpan
t/OnDisk.pl view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use File::Temp;
use Data::Dumper; $Data::Dumper::Sortkeys=1; $Data::Dumper::Useqq=1;
use Tie::Hash::MinPerfHashTwoLevel::OnDisk qw(MAX_VARIANT MIN_VARIANT);
sub slurp {
my ($file_spec)= @_;
t/OnDisk.pl view on Meta::CPAN
my $right= slurp($rfile);
my $ret= (defined($left) == defined($right) and defined($right) and $left eq $right);
if (!$ret) {
diag (sprintf "'%s' is %s bytes '%s' is %s bytes",
$lfile => length($left)//'undef', $rfile => length($right)//'undef');
require Data::Dumper;
diag Data::Dumper::qquote($left),"\n";
diag Data::Dumper::qquote($right),"\n";
}
return $ret;
}
view release on metacpan or search on metacpan
Algorithm-NCS/lib/Algorithm/NCS.pm view on Meta::CPAN
use 5.020002;
use strict;
use warnings;
use Data::Dumper;
require Exporter;
our @ISA = qw(Exporter);
view release on metacpan or search on metacpan
PageRank.pm view on Meta::CPAN
sub new { bless {}, shift }
use List::Util;
use PDL;
#use Data::Dumper;
#use PDL::IO::Dumper;
#*STDERR = \*STDOUT;
our $d_factor = 0.05; # dampening factor
view release on metacpan or search on metacpan
- Bump the version to 0.07.
0.06
2015-8-1
- The changes of 2015-5-30 mean that the check for an empty
array in row_dominance() isn't needed anymore.
- Use a simple join() in uniqel() instead of Data::Dumper.
- Remove Data::Dumper from 'requires' key in Build.PL.
- Bumped Version everywhere to 0.06; up to CPAN.
0.05
2015-7-29
- Documented methods get_primes(), get_essentials(), and
get_covers().
view release on metacpan or search on metacpan
is @values, $kgrams, "We get length - k + 1 kgram hash values";
my %kgram_seen;
my %source_seen;
#use Data::Dumper; warn Dumper( [
#map { [ $_->[0], substr($source, $_->[1], $_->[2]) ] }
#map { [ $_->[0], $_->[1], $_->[2] - $_->[1] + 1]} @values ]);
for my $i (0..(length($source)-$k)) {
my $fragment = substr($source, $i, $k);
view release on metacpan or search on metacpan
lib/Algorithm/SAT/Backtracking/DPLL.pm view on Meta::CPAN
package Algorithm::SAT::Backtracking::DPLL;
use Storable qw(dclone);
use Data::Dumper;
use strict;
use warnings;
our $VERSION = "0.13";
# this allow to switch the parent implementation (needed for the Ordered alternative)
view release on metacpan or search on metacpan
example/15.pl view on Meta::CPAN
$fifteen_search->search({search_this=>$puzzle,
solutions_to_find=>1,
search_type => 'bfs'
});
print "Solution found :\n";
use Data::Dumper;
print Dumper($fifteen_search->path)."\n";
$puzzle->set_position(
'10 12 7 3
5 13 8 4
example/15.pl view on Meta::CPAN
search_type => 'bfs',
do_not_repeat_values => 1,
max_steps => 200000
});
print "Solution found :\n";
use Data::Dumper;
print Dumper($fifteen_search->path)."\n";
view release on metacpan or search on metacpan
lib/Algorithm/Simplex/Role/Solve.pm view on Meta::CPAN
=cut
=head1 Synposis
use Algorithm::Simplex::Rational;
use Data::Dumper;
my $matrix = [
[ 5, 2, 30],
[ 3, 4, 20],
[10, 8, 0],
];
view release on metacpan or search on metacpan
lib/Algorithm/SpatialIndex/Storage/DBI.pm view on Meta::CPAN
my $node = Algorithm::SpatialIndex::Node->new(
id => $struct->[0],
coords => [@{$struct}[1..$coords]],
subnode_ids => $snodes,
);
#use Data::Dumper; warn "FETCH: " . Dumper($node);
return $node;
}
sub store_node {
my $self = shift;
my $node = shift;
#use Data::Dumper;
#use Data::Dumper; warn "STORE: " . Dumper($node);
my $id = $node->id;
my $dbh = $self->dbh_rw;
my $tname = $self->table_prefix . '_nodes';
my $sth;
if (not defined $id) {
lib/Algorithm/SpatialIndex/Storage/DBI.pm view on Meta::CPAN
$dbh->do($update_sql, {}, @_, (undef) x ($nentries-@_));
1;
};
};
}
#use Data::Dumper;
#warn Dumper $self->{buckets_insert_sql};
}
1;
__END__
view release on metacpan or search on metacpan
t/01-tsort.t view on Meta::CPAN
use strict;
use warnings;
use lib 'lib';
use Algorithm::TSort qw(Graph tsort);
use autouse 'Data::Dumper'=> 'Dumper';
use Test::More qw(no_plan);
my $buf = "1 2 3\n2 4\n3 4\n5 5\n6 7\n7 6";
my $fh;
open $fh, "<", \$buf;
view release on metacpan or search on metacpan
'List::Util' => 0,
'Params::Validate' => 0,
'Regexp::Common' => 0,
},
build_requires => {
'Data::Dumper' => 0,
'Pod::Coverage' => 0,
'Readonly' => 0,
'Test::Exception' => 0,
'Test::More' => 0,
'Test::Pod' => 0,
view release on metacpan or search on metacpan
package Algorithm::Tree::NCA;
use strict;
use warnings;
use Data::Dumper;
require Exporter;
our @ISA = qw(Exporter);
view release on metacpan or search on metacpan
lib/Algorithm/Viterbi.pm view on Meta::CPAN
The set of observations is passed as a reference to an array as shown in the following example:
use strict;
use Algorithm::Viterbi;
use Data::Dumper;
my $observations = [
[ 'work', 'rainy' ],
[ 'work', 'sunny' ],
[ 'walk', 'sunny' ],
lib/Algorithm/Viterbi.pm view on Meta::CPAN
Example:
use strict;
use Algorithm::Viterbi;
use Data::Dumper;
my $observations = [ 'walk', 'shop', 'clean' ];
my $start = { 'Rainy'=> 0.6, 'Sunny'=> 0.4 };
my $transition = {
view release on metacpan or search on metacpan
dist_author => 'John Trammell <johntrammell@gmail.com>',
dist_version_from => 'lib/Algorithm/Voting.pm',
requires => {
'Carp' => 0,
'Class::Accessor::Fast' => 0,
'Data::Dumper' => 0,
'Digest::MD5' => 0,
'List::Util' => 0,
'Math::BigInt' => 0,
'Params::Validate' => 0,
'Scalar::Util' => 0,
view release on metacpan or search on metacpan
examples/polyomino/Polyomino.pm view on Meta::CPAN
}
}
}
return $self;
}
use Data::Dumper;
sub area {
my ($width, $height) = @_;
return [ map { [(1) x $width] } 1..$height ];
}
view release on metacpan or search on metacpan
lib/Alice/Config.pm view on Meta::CPAN
package Alice::Config;
use FindBin;
use Data::Dumper;
use File::ShareDir qw/dist_dir/;
use List::MoreUtils qw/any/;
use Getopt::Long;
use Any::Moose;
use POSIX;
lib/Alice/Config.pm view on Meta::CPAN
my $callback = pop;
mkdir $self->path if !-d $self->path;
aio_open $self->fullpath, POSIX::O_CREAT | POSIX::O_WRONLY | POSIX::O_TRUNC, 0644, sub {
my $fh = shift;
if ($fh) {
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
my $config = Dumper $self->serialized;
aio_write $fh, 0, length $config, $config, 0, sub {
$callback->() if $callback;
};
}
view release on metacpan or search on metacpan
t/start_stop.t view on Meta::CPAN
{
throws_ok { my $server = $amq->run_server('5.9.9'); }
qr /Can't connect to ActiveMQ after trying 3 seconds./,
'Server would not start';
}
use Data::Dumper;
is($try, 4, 'Found retries');
}
# Install one of our test versions.
view release on metacpan or search on metacpan
examples/example.pl view on Meta::CPAN
#! /usr/bin/env perl
use lib qw+../blib/lib/+;
use Alien::BWIPP;
use Data::Dumper;
my $ean13 = new Alien::BWIPP::ean13;
open OUT, ">", "ean13.ps";
print OUT "% ean13 dependencies: " . $ean13->REQUIRES . "\n";
view release on metacpan or search on metacpan
corpus/lib/Alien/Foo1/ConfigData.pm view on Meta::CPAN
sub write {
my $me = __FILE__;
# Can't use Module::Build::Dumper here because M::B is only a
# build-time prereq of this module
require Data::Dumper;
my $mode_orig = (stat $me)[2] & 07777;
chmod($mode_orig | 0222, $me); # Make it writeable
open(my $fh, '+<', $me) or die "Can't rewrite $me: $!";
seek($fh, 0, 0);
corpus/lib/Alien/Foo1/ConfigData.pm view on Meta::CPAN
die "Couldn't find __DATA__ token in $me" if eof($fh);
seek($fh, tell($fh), 0);
my $data = [$config, $features, $auto_features];
print($fh 'do{ my '
. Data::Dumper->new([$data],['x'])->Purity(1)->Dump()
. '$x; }' );
truncate($fh, tell($fh));
close $fh;
chmod($mode_orig, $me)
corpus/lib/Alien/Foo1/ConfigData.pm view on Meta::CPAN
return $features->{$key} if exists $features->{$key};
my $info = $auto_features->{$key} or return 0;
# Under perl 5.005, each(%$foo) isn't working correctly when $foo
# was reanimated with Data::Dumper and eval(). Not sure why, but
# copying to a new hash seems to solve it.
my %info = %$info;
require Module::Build; # XXX should get rid of this
while (my ($type, $prereqs) = each %info) {
view release on metacpan or search on metacpan
lib/Alien/Bazel/Util.pm view on Meta::CPAN
# ABSTRACT: Private utilities for Alien
use File::Which qw(which);
use Path::Tiny qw(path);
use List::Util qw(first);
use Data::Dumper qw(Dumper);
use Capture::Tiny qw(capture_stdout);
use Config;
sub _is_valid_jdk {
my ($java_home) = @_;
view release on metacpan or search on metacpan
[RemovePrereqs]
remove = strict
remove = warnings
remove = base
remove = Data::Dumper
remove = Sort::Versions
[Prereqs / ConfigureRequires]
-phase = configure
File::Which = 0
view release on metacpan or search on metacpan
remove = strict
remove = warnings
remove = base
remove = lib
remove = File::Temp
remove = Data::Dumper
[Prereqs]
Alien::Build = 0.05
Module::Build = 0.37_01
view release on metacpan or search on metacpan
corpus/lib/Alien/Foo1/ConfigData.pm view on Meta::CPAN
sub write {
my $me = __FILE__;
# Can't use Module::Build::Dumper here because M::B is only a
# build-time prereq of this module
require Data::Dumper;
my $mode_orig = (stat $me)[2] & 07777;
chmod($mode_orig | 0222, $me); # Make it writeable
open(my $fh, '+<', $me) or die "Can't rewrite $me: $!";
seek($fh, 0, 0);
corpus/lib/Alien/Foo1/ConfigData.pm view on Meta::CPAN
die "Couldn't find __DATA__ token in $me" if eof($fh);
seek($fh, tell($fh), 0);
my $data = [$config, $features, $auto_features];
print($fh 'do{ my '
. Data::Dumper->new([$data],['x'])->Purity(1)->Dump()
. '$x; }' );
truncate($fh, tell($fh));
close $fh;
chmod($mode_orig, $me)
corpus/lib/Alien/Foo1/ConfigData.pm view on Meta::CPAN
return $features->{$key} if exists $features->{$key};
my $info = $auto_features->{$key} or return 0;
# Under perl 5.005, each(%$foo) isn't working correctly when $foo
# was reanimated with Data::Dumper and eval(). Not sure why, but
# copying to a new hash seems to solve it.
my %info = %$info;
require Module::Build; # XXX should get rid of this
while (my ($type, $prereqs) = each %info) {