# $Id: BuyItNow.pm,v 1.15 2013/03/02 20:21:41 Martin Exp $
=head1 NAME
WWW::Search::Ebay::BuyItNow - backend for searching eBay Buy-It-Now items
=head1 SYNOPSIS
use WWW::Search;
my $oSearch = new WWW::Search('Ebay::BuyItNow');
my $sQuery = WWW::Search::escape_query("jawa");
$oSearch->native_query($sQuery);
while (my $oResult = $oSearch->next_result())
{ print $oResult->url, "\n"; }
=head1 DESCRIPTION
This class is a Ebay specialization of WWW::Search.
It handles making and interpreting Ebay searches
F<http://www.ebay.com>.
This class exports no public interface; all interaction should
be done through L<WWW::Search> objects.
=head1 NOTES
The search is done against eBay Buy-It-Now items only.
The query is applied to TITLES only.
In the resulting WWW::Search::Result objects, the description field
consists of a human-readable combination (joined with semicolon-space)
of the Item Number; number of bids; and high bid amount (or starting
bid amount).
=head1 SEE ALSO
To make new back-ends, see L<WWW::Search>.
=head1 BUGS
Please tell the author if you find any!
=head1 AUTHOR
Martin 'Kingpin' Thurn, C<mthurn at cpan.org>, L<http://tinyurl.com/nn67z>.
=head1 LICENSE
Copyright (C) 1998-2009 Martin 'Kingpin' Thurn
=cut
package WWW::Search::Ebay::BuyItNow;
use strict;
use warnings;
use WWW::Search::Ebay;
use base 'WWW::Search::Ebay';
our
$VERSION = do { my @r = (q$Revision: 1.15 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r };
sub _native_setup_search
{
my ($self, $sQuery, $rh) = @_;
# http://shop.ebay.com/items/_W0QQLHQ5fBINZ1QQLHQ5fIncludeSIFZ1?_nkw=Burkina+Faso+flag&_sacat=0&_fromfsb=&_trksid=m270.l1313&_odkw=Burkina+Faso&_osacat=0
# http://shop.ebay.com/items/_W0QQLHQ5fBINZ1QQLHQ5fIncludeSIFZ1?_nkw=Burkina+Faso+flag
$self->{search_host} = q{http://shop.ebay.com};
$self->{search_path} = q{/items/_W0QQLHQ5fBINZ1};
$self->{'_options'} = {
'_nkw' => $sQuery,
};
return $self->SUPER::_native_setup_search($sQuery, $rh);
} # _native_setup_search
sub _columns
{
my $self = shift;
return qw( enddate price );
} # _columns
1;
__END__