WWW::SearchResult - class for results returned from WWW::Search

    require WWW::Search;
    require WWW::SearchResult;
    $search = new WWW::Search;
    $search->native_query(WWW::Search::escape_query($query));
    # Get first result:
    $result = $search->next_result();

    $result = new WWW::SearchResult();

# SearchResult.pm
# by John Heidemann
# Copyright (C) 1996 by USC/ISI
# $Id: SearchResult.pm,v 2.78 2008/07/21 01:20:30 Martin Exp $
#
# Copyright (c) 1996 University of Southern California.
# All rights reserved.
#
# Redistribution and use in source and binary forms are permitted
# provided that the above copyright notice and this paragraph are
# duplicated in all such forms and that any documentation, advertising
# materials, and other materials related to such distribution and use
# acknowledge that the software was developed by the University of
# Southern California, Information Sciences Institute.  The name of the
# University may not be used to endorse or promote products derived from
# this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.

#####################################################################

package WWW::SearchResult;

use strict;
use warnings;

use CGI;
use base 'LWP::MemberMixin';
our
$VERSION = do{ my @r = (q$Revision: 2.78 $ =~ /\d+/g); sprintf "%d."."%03d" x $#r, @r};

sub new
  {
  my $class = shift;
  my $self = bless { }, $class;
  $self->{urls} = ();
  return $self;
  } # new

sub url
  {
  my $self = shift;
  if (@_ < 1)
    {
    # No arguments, just return the current value:
    return ${$self->{urls}}[0];
    } # if no args
  unshift @{$self->{urls}}, $_[0];
  return $self->{urls}->[0];
  } # url

sub _elem_array
  {
  my $self = shift;
  my $elem = shift;
  if (@_ < 1)
    {
    # No arguments
    return wantarray ? @{$self->{$elem}} : $self->{$elem};
    } # if
  if (ref($_[0]))
    {
    # Trying to assign an arrayref:
    $self->{$elem} = $_[0];
    }
  else
    {
    # Trying to set to a scalar (or list of scalars); make sure it's
    # an array even if they give one element:
    $self->{$elem} = undef;
    push @{$self->{$elem}}, @_;
    }
  # Always return array refrence
  return $self->{$elem};
  } # _elem_array

sub _add_elem_array
  {
  my $self = shift;
  my $elem = shift;
  # No matter how many they're adding:
  push(@{$self->{$elem}}, @_);
  } # _add_elem_array

sub add_url { return shift->_add_elem_array('urls', @_); }

sub urls { return shift->_elem_array('urls', @_); }

sub add_related_url { return shift->_add_elem_array('related_urls', @_); }

sub related_urls { return shift->_elem_array('related_urls', @_); }

sub add_related_title { return shift->_add_elem_array('related_titles', @_); }

sub related_titles { return shift->_elem_array('related_titles', @_); }

sub title { return shift->_elem('title', @_); }

sub description { return shift->_elem('description', @_); }

sub source { return shift->_elem('source', @_); }

sub add_sources { return shift->_add_elem_array('sources', @_); }

sub sources { return shift->_elem_array('sources', @_); }

sub score { return shift->_elem('score', @_); }

sub normalized_score { return shift->_elem('normalized_score', @_); }

sub change_date { return shift->_elem('change_date', @_); }

sub index_date { return shift->_elem('index_date', @_); }

sub size { return shift->_elem('size', @_); }

sub raw { return shift->_elem('raw', @_); }

sub as_HTML
  {
  my $self = shift;
  my $cgi = new CGI;
  my $s = $cgi->a({
                   href => $self->url,
                  },
                  $self->title || 'title unknown',
                 );
  $s .= $cgi->br;
  $s .= $self->description || 'no description available';
  return $s;
  } # as_HTML

sub bid_amount { return shift->_elem('bid', @_); }

sub bid_count { return shift->_elem('bids', @_); }

sub bidder  { return shift->_elem('bidder', @_); }

sub category { return shift->_elem('category', @_); }

sub company { return shift->_elem('company', @_); }

sub end_date { return shift->_elem('end_date', @_); }

sub image_url { return shift->_elem('image_url', @_); }

sub item_number { return shift->_elem('item_number', @_); }

sub location { return shift->_elem('location', @_); }

sub question_count { return shift->_elem('question_count', @_); }

sub seller { return shift->_elem('seller', @_); }

sub shipping { return shift->_elem('shipping', @_); }

sub sold { return shift->_elem('sold', @_); }

sub start_date { return shift->_elem('start_date', @_); }

sub thumb_url { return shift->_elem('thumb_url', @_); }

sub watcher_count { return shift->_elem('seller', @_); }

1;

__END__