WWW::Scraper::Response::Job - result class for scrapes of Job Listings

package WWW::Scraper::Response::Job;

use strict;
use vars qw($VERSION @ISA);
@ISA = qw(WWW::Scraper::Response);
use WWW::Scraper::Response;
$VERSION = sprintf("%d.%02d", q$Revision: 1.0 $ =~ /(\d+)\.(\d+)/);

sub new {
    my $self = WWW::Scraper::Response::new(
         'Job'
        ,{
             'relevance' => ''
            ,'title' => ''
            ,'description' => ''
            ,'companyProfileURL' => ''
            ,'company' => ''
            ,'location' => ''
            ,'postDate' => ''
            ,'url' => ''
         }
        ,@_);
    return $self;
}

sub FieldTitles {
    return {
                'relevance'  => 'Relevance'
               ,'title'      => 'Title'
               ,'description' => 'Description'
               ,'companyProfileURL'    => 'Company Profile URL'
               ,'company'    => 'Company'
               ,'location'   => 'Location'
               ,'postDate'   => 'Post-Date'
               ,'url'        => 'URL'
           };
}

1;