view release on metacpan or  search on metacpan

GHash.pm  view on Meta::CPAN

use DynaLoader;
use vars qw/$VERSION/;

$VERSION = 0.01;

bootstrap Algorithm::MarkovChain::GHash $VERSION;

sub new {
    my $invocant = shift;
    my $class = ref $invocant || $invocant;
    my __PACKAGE__ $self = $class->SUPER::new(@_);
    $self->{_cstuff} = _new_cstuff();
    return $self;
}

sub DESTROY {
    my $self = shift;

    $self->_c_destroy;
    #delete $self->{_cstuff};
}