File Coverage

blib/lib/Algorithm/LSH/Base.pm

Criterion	Covered	Total	%
statement	30	32	93.7
branch	2	4	50.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	43	47	91.4

package Algorithm::LSH::Base;
use strict;
use warnings;
use base qw( Class::Accessor::Fast Class::Data::Inheritable);
use Carp;

__PACKAGE__->mk_accessors($_) for qw( context d L k );

sub new {
    my $class = shift;
    my $self = $class->SUPER::new( {@_} );
    return $self;
}

sub mk_virtual_methods {
    my $class = shift;
    foreach my $method (@_) {
        my $slot = "${class}::${method}";
        {
            no strict 'refs';
            *{$slot} = sub {
                Carp::croak( ref( $_[0] ) . "::${method} is not overridden" );
                }
        }
    }
    return ();
}

sub _check_parameters {
    my $self = shift;
    for my $param ( 'd', 'L', 'k' ) {
        unless ( $self->$param ) {
            croak(
                "ERROR: cannot create object [ new() method had to parameter '$param' is necessary ]"
            );
        }
    }
    if ( $self->k > $self->d ) {
        croak(
            "ERROR: cannot create object [ parameter 'k' must be smaller than parameter 'd' ]"
        );
    }
}

1;
__END__