NAME

WWW::Yandex::TIC - Query Yandex Thematic Index of Citing (TIC) for domain

SYNOPSIS

use WWW::Yandex::TIC;
my $ytic = WWW::Yandex::TIC;
print $ytic->get('www.yandex.ru'), "\n";

DESCRIPTION

The WWW::Yandex::TIC is a class implementing a interface for querying Yandex Thematic Index of Citing (TIC) for domain.

To use it, you should create WWW::Yandex::TIC object and use its method get(), to query TIC for domain.

It uses LWP::UserAgent for making request to Google.

CONSTRUCTOR METHOD

$tic = WWW::Yandex::TIC->new(%options);

This method constructs a new WWW::Yandex::TIC object and returns it. Key/value pair arguments may be provided to set up the initial state. The following options is correspond to attribute methods described below:

KEY                     DEFAULT
-----------             --------------------
agent                   "Bond, James Bond/0.07"
proxy                   undef

agent specifies the header 'User-Agent' when querying Yandex. If the proxy option is passed in, requests will be made through specified proxy.

QUERY METHOD

$tic = $ytic->get('www.yandex.ru');

Queries Yandex for a specified Yandex Thematic Index of Citing (TIC) for domain and returns TIC. If query successfull, integer value from 0 to over 0 returned. If query fails for some reason (Yandex unreachable, domain does not in Yandex catalog) it return undef.

In list context this function returns list from two elements where first is the result as in scalar context and the second is the HTTP::Response object (returned by LWP::UserAgent::get). This can be usefull for debugging purposes and for querying failure details.

BUGS

If you find any, please report ;)

AUTHOR

Dmitry Bashlov <bashlov@cpan.org>.

COPYRIGHT

Copyright 2005, Dmitry Bashlov, All Rights Reserved.

You may use, modify, and distribute this package under the same terms as Perl itself.