#===============================================================================
#         FILE:  ShowSearchRequest.pm
#       AUTHOR:  Kyle Brandt (mn), kyle@kbrandt.com , http://www.kbrandt.com
#      COMPANY:  Home
#===============================================================================

use strict;
use warnings;

package WebService::TVRage::ShowSearchRequest;

use Mouse;
use LWP::UserAgent;
use HTTP::Request::Common;
use XML::Simple;
use Data::Dumper;
use WebService::TVRage::ShowList;
has 'showTitle' => ( is => 'rw');
has 'URL' => ( is => 'rw',
               default => 'http://www.tvrage.com/feeds/search.php?show=');

sub search {
	my $self = shift;
	my $showTitle = shift;
	$self->showTitle($showTitle);
	my $uA = LWP::UserAgent->new( timeout => 20);
	my $showSearchReq = HTTP::Request->new(GET => $self->URL . $self->showTitle);
	my $showSearchResponse = $uA->request($showSearchReq);
	print $showSearchResponse->error_as_HTML unless $showSearchResponse->is_success;
	my $xml = new XML::Simple;
	my $processedXML = $xml->XMLin( $showSearchResponse->decoded_content, (ForceArray => ['show']));
	return undef if $processedXML == 0;
	my $object = WebService::TVRage::ShowList->new();
	$object->_showListHash($processedXML);
    return $object;
}

1;

=head1 NAME

WebService::TVRage::ShowSearchRequest - Requests A List of shows using TVRage's XML Service

=head1 SYNOPSIS
   
    my $heroesSearch = WebService::TVRage::ShowSearchRequest->new( showTitle => 'Heroes' );
	$heroesSearch->search();

=head1 Methods

=head2 new()

    my $heroesSearch = WebService::TVRage::ShowSearchRequest->new( showTitle => 'Heroes' );

Constructor object for creating a request to search for Shows by title. 

=over 1

=item showTitle
    
Set this to the title of the show you are searching for.
 
=back

=head2 search()

    $heroes->search()

Sends a request to TVRage for which ever show you specified with the showTitle attribute and returns a WebService::TVRage::ShowList object

=head1 AUTHOR

Kyle Brandt, kyle@kbrandt.com 
http://www.kbrandt.com

=cut