NAME

WWW::Patent::Page::Response

object holding a patent page or document (e.g. htm, pdf, tif) from selected source (e.g. from United States Patent and Trademark Office (USPTO) website or the European Patent Office (ESPACE_EP), as constructed by WWW::Patent::Page, in passing analogy to LWP::UserAgent and HTTP::Response

SYNOPSIS

Please see the test suite for working examples. The following is not guaranteed to be working or up-to-date.

  $ perl -I. -MWWW::Patent::Page -e 'print $WWW::Patent::Page::VERSION,"\n"'
  0.02

  use WWW::Patent::Page;

  print $WWW::Patent::Page::VERSION,"\n";

  my $patent_browser = WWW::Patent::Page->new(); # new object

  my $document1 = $patent_document->get('6,123,456');
        # defaults:
        #       office  => 'ESPACE_EP',
        #           country => 'US',
        #           format      => 'pdf',
        #               page    => 'all',
        # and usual defaults of LWP::UserAgent (subclassed)

  my $document2 = $patent_document->provide_doc('US6123456',
                        office  => 'ESPACE_EP' ,
                        format  => 'pdf',
                        page    => 2 ,
                        );

  my $pages_known = $patent_document->pages_available(  # e.g. TIFF
                        document=> '6123456',
                        );

DESCRIPTION

  Intent:  Use public sources to retrieve patent documents such as
  TIFF images of patent pages, html of patents, pdf, etc.
  Expandable for your office of interest by writing new submodules..

USAGE

  See also SYNOPSIS above

     Standard process for building & installing modules:

          perl Build.PL
          ./Build
          ./Build test
          ./Build install

Examples of use:

  $patent_browser = WWW::Patent::Page->new(
                        doc_id  => 'US6,654,321(B2)issued_2_Okada',
                        office  => 'ESPACE_EP' ,
                        format  => 'pdf',
                        page    => 'all' ,
                        agent   => 'Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.4b) Gecko/20030516 Mozilla Firebird/0.6',
                        );

        $patent_response = $patent_browser->get('US6,654,321(B2)issued_2_Okada');

BUGS

Pre-alpha release, to gauge whether the perl community has any interest.

Code contributions, suggestions, and critiques are welcome.

Error handling is undeveloped.

By definition, a non-trivial program contains bugs.

For United States Patents (US) via the USPTO (us), the 'kind' is ignored in method provide_doc

SUPPORT

Email me at Wanda_B_Anon@yahoo.com with example scripts to dissect.

AUTHOR

        Wanda B. Anon
        Wanda_B_Anon@yahoo.com

COPYRIGHT

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

The full text of the license can be found in the LICENSE file included with this module.

ACKNOWLEDGEMENTS

To the users of WWW::Patent::Page

SEE ALSO

perl(1).

Subroutines

new

Construct an empty object with appropriate variables as the keys referring to the content retrieved by Page with its UserAgent helper.

get_parameter

Access parameters, including content, programmatically (politely).

set_parameter

a classic

message

the message

is_success

not failed

content

provides the content (pdf, htm, etc.) when available