view release on metacpan or search on metacpan
lib/ABNF/Generator.pm view on Meta::CPAN
no warnings "recursion";
use Carp;
use Readonly;
use Method::Signatures;
use Data::Dumper;
use Parse::ABNF;
use List::Util qw(shuffle);
use ABNF::Grammar qw($BASIC_RULES splitRule);
view release on metacpan or search on metacpan
examples/postifx-policy-server.pl view on Meta::CPAN
use IO::Socket;
use threads;
use Proc::Daemon;
use Sys::Syslog qw( :DEFAULT setlogsock);
use Data::Dumper;
use lib( "./" );
use ACL;
# Global config settings
my $TC = 1;
view release on metacpan or search on metacpan
lib/ACME/QuoteDB.pm view on Meta::CPAN
use Exporter 'import';
our @EXPORT = qw/quote/; # support one liner
use Carp qw/croak/;
use Data::Dumper qw/Dumper/;
use ACME::QuoteDB::LoadDB;
use aliased 'ACME::QuoteDB::DB::Attribution' => 'Attr';
use aliased 'ACME::QuoteDB::DB::QuoteCatg' => 'QuoteCatg';
use aliased 'ACME::QuoteDB::DB::Category' => 'Catg';
use aliased 'ACME::QuoteDB::DB::Quote' => 'Quote';
view release on metacpan or search on metacpan
lib/AFS/Object/PTServer.pm view on Meta::CPAN
if ( $group->hasAttribute('name') ) {
my $name = $group->name();
$self->{_groups}->{_byName}->{$name} = $group;
} else {
$self->_Croak("Group has no name attribute!!\n" .
Data::Dumper->Dump([$group],['group']));
}
if ( $group->hasAttribute('id') ) {
my $id = $group->id();
$self->{_groups}->{_byId}->{$id} = $group;
} else {
$self->_Croak("Group has no id attribute!!\n" .
Data::Dumper->Dump([$group],['group']));
}
return 1;
}
view release on metacpan or search on metacpan
t/AI-Calibrate-pathologies.t view on Meta::CPAN
BEGIN { use_ok('AI::Calibrate', ':all') };
my $points0 = [ ];
use Data::Dumper;
is_deeply( calibrate($points0), [], "empty point set");
my $points1 = [
[.9, 1]
view release on metacpan or search on metacpan
"warnings" : "0"
}
},
"test" : {
"requires" : {
"Data::Dumper" : "0",
"Test::More" : "0"
}
}
},
"release_status" : "stable",
view release on metacpan or search on metacpan
lib/AI/CleverbotIO.pm view on Meta::CPAN
{ our $VERSION = '0.002'; }
use Moo;
use Ouch;
use Log::Any ();
use Data::Dumper;
use JSON::PP qw< decode_json >;
has endpoints => (
is => 'ro',
default => sub {
view release on metacpan or search on metacpan
lib/AI/FANN/Evolving/Gene.pm view on Meta::CPAN
use File::Temp 'tempfile';
use Scalar::Util 'refaddr';
use AI::FANN::Evolving;
use Algorithm::Genetic::Diploid::Gene;
use base 'Algorithm::Genetic::Diploid::Gene';
use Data::Dumper;
my $log = __PACKAGE__->logger;
=head1 NAME
view release on metacpan or search on metacpan
lib/AI/ML/Expr.pm view on Meta::CPAN
if (ref($tree) eq "Math::Lapack::Matrix") {
my $s = $tree->max();
my $e_x = exp( $tree - $s );
my $div = sum( $e_x, 1 );
return $e_x / $div;
#use Data::Dumper;
#print STDERR Dumper $matrix;
# return _bless _softmax($tree->matrix_id);
}
die "softmax for non matrix";
}
view release on metacpan or search on metacpan
lib/AI/MXNet/Metric.pm view on Meta::CPAN
package AI::MXNet::EvalMetric;
use Mouse;
use overload '""' => sub {
return "EvalMetric: "
.Data::Dumper->new(
[shift->get_name_value()]
)->Purity(1)->Deepcopy(1)->Terse(1)->Dump
}, fallback => 1;
has 'name' => (is => 'rw', isa => 'Str');
has 'num' => (is => 'rw', isa => 'Int');
view release on metacpan or search on metacpan
bin/from-folder.pl view on Meta::CPAN
use File::Find;
use Storable qw(lock_store lock_retrieve);
use Getopt::Long;
use Digest::MD5 qw(md5_hex);
use Data::Dumper;
use Data::Printer;
use Env qw(PWD);
my ($TOP,$storage) ;
$TOP = $ARGV[0] unless(!@ARGV);
$storage = $ARGV[1] unless(!@ARGV);
view release on metacpan or search on metacpan
examples/eigenvector_initialization.pl view on Meta::CPAN
use strict;
use Data::Dumper;
use AI::NeuralNet::FastSOM::Rect;
my @vs = ([ 3, 2, 4 ], [ -1, -1, -1 ], [ 0, 4, -3]);
my $dim = 3;
view release on metacpan or search on metacpan
examples/eigenvector_initialization.pl view on Meta::CPAN
use strict;
use Data::Dumper;
use AI::NeuralNet::SOM::Rect;
my @vs = ([ 3, 2, 4 ], [ -1, -1, -1 ], [ 0, 4, -3]);
my $dim = 3;
view release on metacpan or search on metacpan
examples/logical_or.pl view on Meta::CPAN
printf "Answer: %d\n", $net->winner([1,1]);
printf "Answer: %d\n", $net->winner([1,0]);
printf "Answer: %d\n", $net->winner([0,1]);
printf "Answer: %d\n\n", $net->winner([0,0]);
use Data::Dumper;
print Dumper $net->infer([1,1]);
view release on metacpan or search on metacpan
xt/99-test-prerequisites.t view on Meta::CPAN
#!perl -w
use warnings;
use strict;
use Test::More;
use Data::Dumper;
use File::Find;
=head1 DESCRIPTION
This test checks whether all tests still pass when the optional test
view release on metacpan or search on metacpan
example/PSOTest-MultiCore.pl view on Meta::CPAN
use lib '../lib/';
#-----------------------------------------------------------------------
#use AI::ParticleSwarmOptimization;
use AI::ParticleSwarmOptimization::MCE;
#use AI::ParticleSwarmOptimization::Pmap;
use Data::Dumper; $::Data::Dumper::Sortkeys = 1;
#=======================================================================
sub calcFit {
my @values = @_;
my $offset = int (-@values / 2);
my $sum;
view release on metacpan or search on metacpan
example/PSOTest-MultiCore.pl view on Meta::CPAN
use lib '../lib/';
#-----------------------------------------------------------------------
#use AI::ParticleSwarmOptimization;
#use AI::ParticleSwarmOptimization::MCE;
use AI::ParticleSwarmOptimization::Pmap;
use Data::Dumper; $::Data::Dumper::Sortkeys = 1;
#=======================================================================
sub calcFit {
my @values = @_;
my $offset = int (-@values / 2);
my $sum;
view release on metacpan or search on metacpan
Benchmark/perl-vs-xs.pl view on Meta::CPAN
#!/usr/bin/perl -W
use strict;
use warnings;
use Data::Dumper;
use Time::HiRes qw{ gettimeofday tv_interval };
use Benchmark qw( timethese cmpthese );
use constant WIDTH_X => 64;
use constant WIDTH_Y => 64;
view release on metacpan or search on metacpan
examples/and.pl view on Meta::CPAN
# Steve Purkis <spurkis@epn.nu>
# July 20, 1999
##
use Data::Dumper;
use AI::Perceptron;
print( "Example: training a perceptron to recognize an 'AND' function.\n",
"usage: $0 [<threshold> <weight1> <weight2>]\n" );
view release on metacpan or search on metacpan
bin/Inception.pl view on Meta::CPAN
# ABSTRACT: Runnable example command line Inception client
use Moo;
use MooX::Options;
use 5.010;
use Data::Dumper qw(Dumper);
use Perl6::Form;
my $default_host = '127.0.0.1';
my $default_port = '9000';
my $default_model = 'inception';
view release on metacpan or search on metacpan
examples/append.pl view on Meta::CPAN
#!/usr/local/bin/perl
use strict;
use warnings;
use lib ('../lib/', 'lib');
use Data::Dumper;
$Data::Dumper::Indent = 0;
$Data::Dumper::Terse = 1;
use AI::Prolog 0.64;
my $prolog = AI::Prolog->new(<<"END_PROLOG");
append([], X, X).
append([W|X], Y, [W|Z]) :- append(X, Y, Z).
view release on metacpan or search on metacpan
t/lib/TF_Utils.pm view on Meta::CPAN
my @devices = map {
my $idx = $_;
my %h = map { ( $_ => $device_list->$_( $idx, $s ) ) } qw(Name Type MemoryBytes Incarnation);
\%h;
} 0..$device_list->Count - 1;
use Data::Dumper; print Dumper(\@devices);
}
1;
view release on metacpan or search on metacpan
examples/capi_dump_model.pl view on Meta::CPAN
use strict;
use warnings;
use 5.010;
use Data::Dumper;
use AI::XGBoost::CAPI qw(:all);
my $dtrain = XGDMatrixCreateFromFile('agaricus.txt.train');
my $dtest = XGDMatrixCreateFromFile('agaricus.txt.test');
view release on metacpan or search on metacpan
example1.pl view on Meta::CPAN
#
use strict;
use warnings;
use Data::Dumper;
use AIX::Perfstat;
my $cput = AIX::Perfstat::cpu_total();
print "cpu_total() ", Dumper($cput);