The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

NOLookup::Patent::DataLookup - Lookup Patentstyret trademark data from the JSON formatted service offered by the JSON API.

DESCRIPTION

Use WWW::Mechanize and JSON to lookup data from the JSON API. Use NOLookup::Patent::Entry module to map the resulting json data structure to a NOLookup::Patent::Entry objects.

The timeout period $PATENT_TIMEOUT is used to trap and return the call if lookup is hanging for some reason.

METHODS

The module provides the below methods.

lookup_tm_text()

Lookup based on a complete or part of a trademark text.

Mandatory parameters are: $tm_text: the trademark text (or part of) to search for

Optional parameters are: $max_no_pages: max. number of pages to return, default 10. $page_ix : index to the first page to fetch, default 1.

Returns 0 entries if none found.

Returns an array of NOLookup::Patent::Entry objects in the data when matches are found.

lookup_applid()

Lookup based on an application id.

Returns 0 entries if none found, or some error.

Returns an array of on single NOLookup::Patent::Entry object in the data when matches are found.

raw_json_decoded()

The raw JSON data structure, as returned by the JSON service, and then decoded to a perl data structure with decode_json().

error()

Set if an error has occured. On errors, the lookup terminates, with more info in the status().

warning()

Set if a warning has occured. On warnings, the lookup continues, but warnings are accumulated in the status().

status()

Further description of error/warning situations.

data()

Found data, an array of NOLookup::Patent::Entry data objects.

See doc. for NOLookup::Patent::Entry for details.

size()

The number of objects in data().

total_size()

The total number of matches for the search. So, if size() is less than total_size(), there is more data which is not fetched.

SUPPORT

For now, support questions should be sent to:

<(nospam)info(at)norid.no>

Please also see the SUPPORT file in the distribution.

SEE ALSO

NOLookup::Patent::Entry http://www.patentstyret.no http://ws.patentstyret.no/search https://dbsearch2.patentstyret.no/AdvancedSearch.aspx?Category=Mark

AUTHOR

Trond Haugen, <(nospam)info(at)norid.no>

COPYRIGHT

Copyright (c) 2017 Trond Haugen <(nospam)info(at)norid.no>. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

LICENSE

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