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

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

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 Yandex.

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

This method constructs a new WWW::Yandex::TIC object and returns it.

$ua = $tic->user_agent;

This method returns constructed LWP::UserAgent object. You can configure object before making requests. Default configuration described below:

   KEY                     DEFAULT
   -----------             --------------------
   agent                   "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.5; en-US; rv:1.9.0.1) Gecko/2008070206 Firefox/3.0.1"
   default_headers         "Accept-Charset: utf-8;q=0.7,*;q=0.7"

agent specifies the header 'User-Agent' when querying Yandex. default_headers is a HTTP::Headers object. See LWP::UserAgent.

$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.

If you find any, please report ;)

Dmitry Bashlov <bashlov@cpan.org> http://bashlov.ru. Ivan Baktsheev <dot.and.thing@gmail.com>.

Copyright 2005, Dmitry Bashlov Copyright 2008-2009, Ivan Baktsheev

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