File Coverage

blib/lib/Statistics/Suggest.pm

Criterion	Covered	Total	%
statement	45	60	75.0
branch	8	16	50.0
condition	8	42	19.0
subroutine	10	13	76.9
pod			n/a
total	71	131	54.2

package Statistics::Suggest;

#use 5.008008;
use strict;
use warnings;
use Carp;

require Exporter;
use AutoLoader;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use Statistics::Suggest ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.01';

sub AUTOLOAD {
    # This AUTOLOAD is used to 'autoload' constants from the constant()
    # XS function.
    my $constname;
    our $AUTOLOAD;
    ($constname = $AUTOLOAD) =~ s/.*:://;
    croak "&Statistics::Suggest::constant not defined" if $constname eq 'constant';
    my ($error, $val) = constant($constname);
    if ($error) { croak $error; }
    {
	no strict 'refs';
	# Fixed between 5.005_53 and 5.005_61
#XXX	if ($] >= 5.00561) {
#XXX	    *$AUTOLOAD = sub () { $val };
#XXX	}
#XXX	else {
	    *$AUTOLOAD = sub { $val };
#XXX	}
    }
    goto &$AUTOLOAD;
}

require XSLoader;
XSLoader::load('Statistics::Suggest', $VERSION);

# Preloaded methods go here.

# Autoload methods go after =cut, and are processed by the autosplit program.

sub new {
    my $class = shift;
    my $self = bless {
        RType => 2,
        NNbr => 20,
        Alpha => 0.4,
        @_
    }, $class;

    return $self;
}

sub load_trans {
    my ($self, $trans) = @_;

    my $nusers = 0;
    my $nitems = 0;
    my $ntrans = 0;
    my @userid;
    my @itemid;

    for (@$trans) {
        my ($u, $i) = @$_;
        $ntrans ++;
        $nusers = $u if $u > $nusers;
        $nitems = $i if $i > $nitems;
        push @userid, $u;
        push @itemid, $i;
    }

    $self->{nusers} = $nusers;
    $self->{nitems} = $nitems;
    $self->{ntrans} = $ntrans;
    $self->{userid} = \@userid;
    $self->{itemid} = \@itemid;
}

sub init {
    my $self = shift;

    croak "necessary params not set" unless (
        defined($self->{nusers}) and defined($self->{nitems}) and defined($self->{ntrans})
            and defined($self->{userid}) and defined($self->{itemid})
                and defined($self->{RType}) and defined($self->{NNbr})
                    and ($self->{NNbr} != 2 or defined($self->{Alpha}))
                );

    $self->{RcmdHandle} = _SUGGEST_Init(
        map $self->{$_}, qw(nusers nitems ntrans userid itemid RType NNbr Alpha)
    );
}

sub estimate_alpha {
    my ($self, $nrcmd) = @_;

    croak "necessary params not set" unless (
        defined($self->{nusers}) and defined($self->{nitems}) and defined($self->{ntrans})
            and defined($self->{RType}) and defined($self->{NNbr})
        );

    $self->{NRcmd} = ($nrcmd || $self->{NRcmd});

    $self->{Alpha} = _SUGGEST_EstimateAlpha(
        map $self->{$_}, qw(nusers nitems ntrans userid itemid NNbr NRcmd)
    );
}

sub top_n {
    my ($self, $itemids, $nrcmd, $rcmds) = @_;

    croak "should init first" unless $self->{RcmdHandle};

    $self->{NRcmd} = ($nrcmd || $self->{NRcmd});

    return _SUGGEST_TopN(
        $self->{RcmdHandle}, scalar @$itemids, $itemids, $self->{NRcmd}, $$rcmds
    );
}

sub DESTROY {
    my $self = shift;

    if ($self->{RcmdHandle}) {
        _SUGGEST_Clean($self->{RcmdHandle});
    }
}

1;

__END__