package AI::General;
use 5.008;
use strict;
use warnings;
our $VERSION = '0.01';
sub new {
my ( $class ) = @_;
my $self = bless [], $class;
$self->dwim( "Implement self" );
return $self;
}
sub dwim {
my ( $self, $args ) = @_;
#... TO DO
}
1;
__END__
=head1 NAME
AI::General - A general-purpose artificial intelligence
=head1 SYNOPSIS
use AI::General;
AI::General->dwim( "Prove NP != P" ) or
die $AI::General::excuse;
=head1 DESCRIPTION
This module is a general purpose artificial intelligence. It consists
of one method, dwim ('Do what I mean'), which can take any number of
arguments.
=head1 TO DO
Implement dwim()
=head1 CREDITS
Cheers to Santiago Dala for suggesting the constructor implementation
=head1 AUTHOR
Maciej Ceglowski, E<lt>maciej@ceglowski.comE<gt>
=head1 SEE ALSO
L<perl>.
=cut