package Megahal;use 5.008;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 Megahal ':all';# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK# will save memory.our %EXPORT_TAGS = ( 'all' => [ qw(	MEGAHAL_H) ] );our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );our @EXPORT = qw(	MEGAHAL_H);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 "&Megahal::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('Megahal', $VERSION);# Preloaded methods go here.# Autoload methods go after =cut, and are processed by the autosplit program.1;__END__# Below is stub documentation for your module. You'd better edit it!=head1 NAMEMegahal - Perl extension for the Megahal conversation simulator library.=head1 SYNOPSIS  use Megahal;  Megahal::megahal_initialize();  Megahal::megahal_do_reply(texte, log);  Megahal::megahal_learn_no_reply(texte, log);  Megahal::megahal_cleanup();=head1 ABSTRACT  Megahal is a conversation simulator that learns as you talk to it.  It uses a Markov Model to learn how to hold a conversation. It is  possible to teach Meagahal to talk about new topics, and in  different languages.=head1 DESCRIPTION=over=item megahal_initialize()Initialize megahal brain. Required before other functions are called.=item megahal_do_reply(text, log)Update the brain by feeding him the input B<text>. Logging is controlled viathe B<log> boolean. Returns the answer of the bot.=item megahal_learn_no_reply()Same as above but without making a reply. Much faster and typically used inscripts for quick learning.=item megahal_cleanup()You need to call this function to save the brain, and finish Megahal.=back=head1 FILESMegahal looks for the following files in the current directory:=over=item megahal.brnMegahal brain.=item megahal.banList of words which cannot be used as keywords.=item megahal.logLog file for errors.=item megahal.txtLog file for the conversation.=item megahal.swpKeyword translation for Megahal. If Megahal choose "why" as keyword and find aline containing "why because" in a line of this file then "why" gets translatedin "because" in the reply.=head1 SEE ALSOhttp://megahal.sourceforge.net/=head1 AUTHORThis page was written by Laurent Fousse, E<lt>laurent@komite.netE<gt>.=head1 COPYRIGHT AND LICENSECopyright 2003 by Jason Hutchens, David N. Welton and others.This library is free software; you can redistribute it and/or modifyit under the GNU General Public Licence.=cut