1#!/usr/bin/perl
2
3BEGIN {
4  use FindBin qw($Bin);
5  use lib ("$Bin/../blib/lib");
6}
7use strict;
8use Data::Dumper;
9use WebService::Technorati;
10use XML::XPath;
11use constant DEBUG => 1;
12
13
14my $apiKey = 'XXXX_api_key_XXXX';
15my $keyword = 'http://www.arachna.com/roller/page/spidaman';
16my $t = WebService::Technorati->new(key => $apiKey);
17my $q = $t->getSearchApiQuery($keyword);
18if (DEBUG) {
19    my $result_xp = XML::XPath->new(filename => "$Bin/../t/testdata/search.xml");
20    $q->readResults($result_xp);
21} else {
22    $q->execute;
23}
24my $term = $q->getSubjectSearchTerm();
25print "term: $term\n";
26print Dumper($term);
27my @matches = $q->getSearchMatches();
28
29for my $match (@matches) {
30    print Dumper($match);
31}
32