Wanda B. Anon > WWW-Patent-Page-0.109.0 > WWW::Patent::Page::Response

Download:
WWW-Patent-Page-0.109.0.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Module Version: 0.021   Source  

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

syntax highlighting: