View file File name : BuyItNow.pm Content : # $Id: BuyItNow.pm,v 1.16 2013-06-23 18:31:15 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.16 $ =~ /\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( price ); } # _columns 1; __END__