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

NAME

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

SYNOPSIS

 use WWW::Yandex::TIC;
 my $ytic = WWW::Yandex::TIC->new;
 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 Yandex.

CONSTRUCTOR METHOD

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

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> http://bashlov.ru. Ivan Baktsheev <dot.and.thing@gmail.com>.

COPYRIGHT

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

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