sub STORABLE_thaw { my ($self,$string,$more) = @_; warn("got: @_\n"); if ( ref($self) eq 'AI::NeuralNet::FastSOM::Rect' ) { die "got a rect!!!!!!!!!!"; } if ( ref($self) eq 'HASH' ) { die "got a HASH!!!!!!!!!!"; } if ( ref($self) eq 'SCALAR' ) { die "got a SCALAR!!!!!!!!"; } }

sub STORABLE_freeze { my ($self,$cloning) = @_; warn "store self: $self\n"; warn "store cloning: $cloning\n"; my $s = 'yippee cyaaaa'; return $s; }

NAME

AI::NeuralNet::FastSOM - Perl extension for fast Kohonen Maps

SYNOPSIS

  use AI::NeuralNet::FastSOM::Rect;

instead of

  use AI::NeuralNet::SOM;

DESCRIPTION

A drop-in replacement for Robert Barta's AI::NeuralNet::SOM. See those docs for details.

SUPPORT

Bugs should always be submitted via the CPAN bug tracker

SEE ALSO

Explanation of the algorithm:

http://www.ai-junkie.com/ann/som/som1.html

Subclasses:

AI::NeuralNet::FastSOM::Hexa AI::NeuralNet::FastSOM::Rect AI::NeuralNet::FastSOM::Torus

AUTHOR

Rick Myers, <jrm@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2009 by Rick Myers

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.0 or, at your option, any later version of Perl 5 you may have available.