File Coverage

blib/lib/Net/AIML.pm

Criterion	Covered	Total	%
statement	21	36	58.3
branch	0	6	0.0
condition			n/a
subroutine	7	9	77.7
pod	2	2	100.0
total	30	53	56.6

package Net::AIML;
use strict;
use warnings;

our $VERSION = '0.0.5';


use HTTP::Request::Common qw(POST);
use LWP::Simple;
use LWP::UserAgent;
use XML::Smart;

use constant BOTURL => 'http://www.pandorabots.com/pandora/talk-xml';

sub new {
    my $class = shift;
    return bless {@_}, $class;
}

sub tell {
    my ( $self, $input, $custid ) = @_;
    my $ua = LWP::UserAgent->new();
    $ua->env_proxy();
    my $req = POST BOTURL,
      [ botid => $self->{botid}, custid => $custid, input => $input ];
    my $res = $ua->request($req);
    if ( ! $res->is_success ) { return "sorry, I'm having connection problems"; }
    my $xs    = XML::Smart->new( $res->content );    # or whatever
    my $error = qq[$xs->{result}{status}];
    if ($error) { warn $error; return; }
    return wantarray
      ? ( qq[$xs->{result}{that}], qq[$xs->{result}{custid}] )
      : qq[$xs->{result}{that}];
}

1;
__END__