WebService::Lucene::Client - XML::Atom::Client subclass

WebService-Lucene documentation Contained in the WebService-Lucene distribution.

Index

Code Index:

NAME

Top

WebService::Lucene::Client - XML::Atom::Client subclass

DESCRIPTION

Top

This is a simple XML::Atom::Client subclass with some extra logic to throw exceptions on failure.

METHODS

Top

make_request( @options )

overloaded method to throw a WebService::Lucene::Exception on failure.

AUTHORS

Top

* Brian Cassidy <brian.cassidy@nald.ca>
* Adam Paynter <adam.paynter@nald.ca>

COPYRIGHT AND LICENSE

Top

Copyright 2006-2009 National Adult Literacy Database

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

WebService-Lucene documentation Contained in the WebService-Lucene distribution. 
package WebService::Lucene::Client;

use strict;
use warnings;

use base qw( XML::Atom::Client );

use WebService::Lucene::Exception;


sub make_request {
    my ( $self, @rest ) = @_;
    my $response = $self->SUPER::make_request( @rest );

    if ( !$response->is_success ) {
        WebService::Lucene::Exception->throw( $response );
    }

    return $response;
}


1;