NAME

SYNOPSIS

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

DESCRIPTION

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

AUTHOR

COPYRIGHT

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