view release on metacpan or search on metacpan
lib/Algorithm/LatticePoints.pm view on Meta::CPAN
our $VERSION = sprintf "%d.%02d", q$Revision: 0.1 $ =~ /(\d+)/g;
sub new($&){
my $class = shift;
my $coderef = shift;
bless $coderef, $class;
}
sub visit{
my $self = shift;
my ( $start, $end ) = @_;
view release on metacpan or search on metacpan
lib/Algorithm/LeakyBucket.pm view on Meta::CPAN
sub new
{
my ($class, %args) = @_;
my $self = {};
bless ($self, $class);
eval {
require Cache::Memcached::Fast;
$self->{__mc_module_fast} = 1;
};
view release on metacpan or search on metacpan
lib/Algorithm/LibLinear.pm view on Meta::CPAN
\@weights,
$loss_sensitivity,
$nu,
$regularize_bias,
);
bless +{
bias => $bias,
training_parameter => $training_parameter,
} => $class;
}
view release on metacpan or search on metacpan
lib/Algorithm/Line/typemap view on Meta::CPAN
##
## Copyright (c) 2023 Jeremy Mates
## All rights reserved.
##
## This typemap is designed specifically to make it easier to handle
## Perl-style blessed objects in XS. In particular, it takes care of
## blessing the object into the correct class (even for derived classes).
##
##
###############################################################################
## vi:et:sw=4 ts=4
view release on metacpan or search on metacpan
lib/Algorithm/LinearManifoldDataClusterer.pm view on Meta::CPAN
my ($class, %args) = @_;
my @params = keys %args;
croak "\nYou have used a wrong name for a keyword argument " .
"--- perhaps a misspelling\n"
if check_for_illegal_params(@params) == 0;
bless {
_datafile => $args{datafile} || croak("datafile required"),
_mask => $args{mask} || croak("mask required"),
_K => $args{K} || 0,
_P => $args{P} || 0,
_terminal_output => $args{terminal_output} || 0,
lib/Algorithm/LinearManifoldDataClusterer.pm view on Meta::CPAN
my ($class, %args) = @_;
my @params = keys %args;
croak "\nYou have used a wrong name for a keyword argument " .
"--- perhaps a misspelling\n"
if _check_for_illegal_params3(@params) == 0;
bless {
_output_file => $args{output_file}
|| croak("name for output_file required"),
_total_number_of_samples_needed => $args{total_number_of_samples_needed}
|| croak("total_number_of_samples_needed required"),
_number_of_clusters_on_sphere => $args{number_of_clusters_on_sphere} || 3,
view release on metacpan or search on metacpan
lib/Algorithm/LossyCount.pm view on Meta::CPAN
)
}
Carp::croak('max_error_ratio must be positive.') if $max_error_ratio <= 0;
my $self = bless +{
bucket_size => POSIX::ceil(1 / $max_error_ratio),
current_bucket => 1,
entries => +{},
max_error_ratio => $max_error_ratio,
num_samples => 0,
view release on metacpan or search on metacpan
lib/Algorithm/MasterMind.pm view on Meta::CPAN
my $self = { _rules => [],
_evaluated => 0,
_hash_rules => {} };
bless $self, $class;
$self->initialize( $options );
return $self;
}
sub random_combination {
lib/Algorithm/MasterMind.pm view on Meta::CPAN
sub start_from {
my $class = shift;
my $options = shift || croak "Options needed to start!";
my $self = {};
bless $self, $class;
for my $o ( qw( consistent alphabet rules evaluated ) ) {
$self->{"_$o"} = $options->{$o};
}
return $self;
}
view release on metacpan or search on metacpan
sv_2uv_flags||5.009001|
sv_2uv|5.004000||p
sv_add_arena|||
sv_add_backref|||
sv_backoff|||
sv_bless|||
sv_cat_decode||5.008001|
sv_catpv_mg|5.004050||p
sv_catpvf_mg_nocontext|||pvn
sv_catpvf_mg|5.006000|5.004000|pv
sv_catpvf_nocontext|||vn
view release on metacpan or search on metacpan
lib/Algorithm/Metric/Chessboard.pm view on Meta::CPAN
=cut
sub new {
my ($class, %args) = @_;
my $self = {};
bless $self, $class;
$self->x_range( $args{x_range} ) or croak "Bad 'x_range'";
$self->y_range( $args{y_range} ) or croak "Bad 'y_range'";
$self->wormholes( $args{wormholes} );
$self->wormhole_cost( $args{wormhole_cost} );
$self->calculate_wormhole_dists;
view release on metacpan or search on metacpan
lib/Algorithm/MinPerfHashTwoLevel.pm view on Meta::CPAN
sub new {
my ($class,%opts)= @_;
my $seed= delete($opts{seed});
delete($opts{state}) and warn "ignoring 'state' parameter";
my $o= bless \%opts, $class;
$o->set_seed($seed) if $seed;
$o->{variant}= $DEFAULT_VARIANT unless defined $o->{variant};
$o->{variant}= int(0+$o->{variant});
view release on metacpan or search on metacpan
lib/Algorithm/NGram.pm view on Meta::CPAN
ngram_width => $ngram_width,
token_table => $token_table,
tokens => $tokens,
};
bless $self, $class;
$self->dirty(1);
return $self;
}
view release on metacpan or search on metacpan
lib/Algorithm/NaiveBayes.pm view on Meta::CPAN
use vars qw($VERSION);
$VERSION = '0.04';
sub new {
my $package = shift;
my $self = bless {
version => $VERSION,
purge => 1,
model_type => 'Frequency',
@_,
instances => 0,
lib/Algorithm/NaiveBayes.pm view on Meta::CPAN
if ($package eq __PACKAGE__) {
# Bless into the proper subclass
return $self->_load_model_class->new(@_);
}
return bless $self, $package;
}
sub _load_model_class {
my $self = shift;
die "model_class cannot be set to " . __PACKAGE__ if ($self->{model_class}||'') eq __PACKAGE__;
view release on metacpan or search on metacpan
lib/Algorithm/NeedlemanWunsch.pm view on Meta::CPAN
my $self = { score_sub => $score_sub, local => 0 };
if (@_) {
$self->{gap_penalty} = $_[0];
}
return bless $self, $class;
}
sub local {
my $self = shift;
view release on metacpan or search on metacpan
lib/Algorithm/Nhash.pm view on Meta::CPAN
@EXPORT_OK = qw( nhash );
sub new {
my($class, @div) = @_;
return bless \@div, $class;
}
my @primes = qw( 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79
83 89 97 101 103 107 109 113);
view release on metacpan or search on metacpan
lib/Algorithm/Numerical/Sample.pm view on Meta::CPAN
$self -> {sample_size} = defined $args {sample_size} ? $args {sample_size}
: 1;
$self -> {seen} = 0;
$self -> {reservoir} = [(undef) x $self -> {sample_size}];
bless $self, $class;
}
sub data {
my $self = shift;
view release on metacpan or search on metacpan
lib/Algorithm/Odometer/Gray.pm view on Meta::CPAN
{ push @all, $x }
return @all;
};
sub new { ## no critic (RequireArgUnpacking)
my $class = shift;
return bless odometer_gray(@_), $class;
}
sub odometer_gray { ## no critic (RequireArgUnpacking)
croak "no wheels specified" unless @_;
my @w = @_;
croak "all wheels must have at least two positions"
view release on metacpan or search on metacpan
sv_2uv_flags||5.009001|
sv_2uv|5.004000||p
sv_add_arena|||
sv_add_backref|||
sv_backoff|||
sv_bless|||
sv_cat_decode||5.008001|
sv_catpv_mg|5.004050||p
sv_catpvf_mg_nocontext|||pvn
sv_catpvf_mg|5.006000|5.004000|pv
sv_catpvf_nocontext|||vn
view release on metacpan or search on metacpan
PageRank.pm view on Meta::CPAN
use warnings;
our $VERSION = '0.08';
use fields qw(graph prvect size);
sub new { bless {}, shift }
use List::Util;
use PDL;
#use Data::Dumper;
#use PDL::IO::Dumper;
view release on metacpan or search on metacpan
lib/Algorithm/Pair/Best2.pm view on Meta::CPAN
croak sprintf "Unknown option%s to %s->new: %s",
scalar(keys %args) > 1 ? 's' : '',
__PACKAGE__,
join(', ', keys %args);
}
return bless($self, ref($proto) || $proto);
}
### my (%cache, %all, @head); # debug variables.
###
###
view release on metacpan or search on metacpan
lib/Algorithm/Pair/Swiss.pm view on Meta::CPAN
=cut
sub new {
my $class = shift;
my $self = bless {}, $class;
$self->parties(@_) if @_;
return $self;
}
=item $pairer-E<gt>B<parties>( @parties )
view release on metacpan or search on metacpan
sv_2uv_flags||5.009001|
sv_2uv|5.004000||p
sv_add_arena|||
sv_add_backref|||
sv_backoff|||n
sv_bless|||
sv_buf_to_ro|||
sv_buf_to_rw|||
sv_cat_decode||5.008001|
sv_catpv_flags||5.013006|
sv_catpv_mg|5.004050||p
view release on metacpan or search on metacpan
lib/Algorithm/Points/MinimumDistance.pm view on Meta::CPAN
boxsize => $boxsize,
offsets => \@offsets,
regions => { },
distances => { }
};
bless $self, $class;
$self->_work_out_distances;
return $self;
}
view release on metacpan or search on metacpan
KEY_atan2|5.003007||Viu
KEY_AUTOLOAD|5.003007||Viu
KEY_BEGIN|5.003007||Viu
KEY_bind|5.003007||Viu
KEY_binmode|5.003007||Viu
KEY_bless|5.003007||Viu
KEY_break|5.027008||Viu
KEY_caller|5.003007||Viu
KEY_catch|5.033007||Viu
KEY_chdir|5.003007||Viu
KEY_CHECK|5.006000||Viu
SvAMAGIC_on|5.003007|5.003007|nu
SvANY|5.003007||Viu
SvARENA_CHAIN_SET|||Viu
SvARENA_CHAIN|||Viu
sv_backoff|5.003007|5.003007|n
sv_bless|5.003007|5.003007|
sv_buf_to_ro|5.019008||Viu
sv_buf_to_rw|5.019008||Viu
SvCANCOW|5.017007||Viu
SvCANEXISTDELETE|5.011000||Viu
SV_CATBYTES|5.021005|5.021005|
view release on metacpan or search on metacpan
lib/Algorithm/QuadTree.pm view on Meta::CPAN
{
my $self = shift;
my $class = ref($self) || $self;
my %args = @_;
my $obj = bless {}, $class;
for my $arg (qw/xmin ymin xmax ymax depth/) {
unless (exists $args{"-$arg"}) {
carp "- must specify $arg";
return undef;
view release on metacpan or search on metacpan
lib/Algorithm/RabinKarp.pm view on Meta::CPAN
my $class = shift;
my $k = shift;
my $stream = $class->make_stream(shift);
my $rm_k = BASE;
bless {
k => $k % 32,
vals => [],
stream => $stream,
}, ref $class || $class;
}
view release on metacpan or search on metacpan
lib/Algorithm/RandomPointGenerator.pm view on Meta::CPAN
my ($class, %args) = @_;
my @params = keys %args;
croak "\nYou have used a wrong name for a keyword argument " .
"--- perhaps a misspelling\n"
if check_for_illegal_params(@params) == 0;
bless {
_hist_file => $args{input_histogram_file} || croak("histogram file required"),
_bbox_file => $args{bounding_box_file} || croak("bounding box file required"),
_N => $args{number_of_points} || 2000,
_how_many_to_discard => $args{how_many_to_discard} || 500,
_debug => $args{debug} || 0,
view release on metacpan or search on metacpan
lib/Algorithm/RectanglesContainingDot.pm view on Meta::CPAN
sub new {
my $class = shift;
my $self = { rects => [],
names => [] };
bless $self, $class;
}
sub _reset { delete shift->{div} }
sub add_rectangle {
view release on metacpan or search on metacpan
RectanglesContainingDot_XS.xs view on Meta::CPAN
if (SvROK(klass))
stash = SvSTASH(klass);
else
stash = gv_stashsv(klass, 1);
sv_bless(rv, stash);
}
return rv;
}
return &PL_sv_undef;
}
view release on metacpan or search on metacpan
lib/Algorithm/Retry.pm view on Meta::CPAN
if (exists $attrspec->{$attr}{default}) {
$args{$attr} //= $attrspec->{$attr}{default};
}
}
$args{_attempts} = 0;
bless \%args, $class;
}
sub _success_or_failure {
my ($self, $is_success, $timestamp) = @_;
view release on metacpan or search on metacpan
lib/Algorithm/SAT/Backtracking.pm view on Meta::CPAN
# `[['blue', 'green'], ['green', '-yellow']]`
our $VERSION = "0.13";
sub new {
return bless {}, shift;
}
sub solve {
# ### solve