File Coverage

blib/lib/Acme/Math/Google.pm

Criterion	Covered	Total	%
statement	15	37	40.5
branch	0	6	0.0
condition	0	4	0.0
subroutine	5	7	71.4
pod	0	2	0.0
total	20	56	35.7

package Acme::Math::Google;
use 5.008001;
use strict;
use warnings;

our $VERSION = sprintf "%d.%02d", q$Revision: 0.2 $ =~ /(\d+)/g;
use URI;
use LWP::UserAgent;

sub new{
    my $class = shift;
    my $self  = shift || {};
    $self->{base_uri} ||= 'http://www.google.com/search';
    unless ($self->{ua}){
	my $ua = LWP::UserAgent->new;
	$ua->agent( __PACKAGE__ . '/' . $VERSION );
	$self->{ua} = $ua;
    }
    return bless $self, $class;
}

sub calc{
    my $self  = shift;
    my $query = shift;
    my $as_equation = shift;
    my $uri = URI->new($self->{base_uri});
    $uri->query_form( q => $query);
    my $res = $self->{ua}->get($uri);
    return unless $res->code == 200;
    my $ans = $res->content;
    $ans =~ s{.*/images/calc_img.gif}{}xmso;
    $ans =~ s{.*?}{}xmso;
    $ans =~ s{.*}{}xmso;
    return $ans if $as_equation;
    $ans =~ s{.*=\s+}{}xmso;
    return $ans;
}

1;
__END__