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

NAME

Net::Topsy::Result - Topsy Result Objects

SYNOPSIS

    use Net::Topsy;

    my $topsy  = Net::Topsy->new( key => $ENV{TOPSY_API_KEY} );
    my $result = $topsy->search({
                                q => $search_term,
                                page   =>  1,  # default
                                perpage => 30, # 30 per page
                                window => 'd', # today
                                });
    my $iter   = $result->iter;
    while ($iter->has_next) {
        my $item = $iter->next;
        printf "%-60s : %d : %s\n", $item->{title} ,$item->{hits}, $item->{url};
    }

Each API call to a Net::Topsy object returns an object that abstracts away some of the intricacies of the raw data structure that is returned. The result of an API call has some metadata associated with it, as well as an iterator that allows you to access the list of data.

METHODS

iter
    my $iter   = $result->iter;
    while ($iter->has_next) {
        my $item = $iter->next;
        ...
    }

Returns an iterator that is a subclass of MooseX::Iterator, which allows access to the list of data that is the result of a Topsy API call.

page
    my $page = $result->page();

Returns the current page number of the results.

window
    my $window = $result->window();

Returns the single letter designation of the time window.

total
    my $total = $result->total();

Returns the total number of results.

perpage
    my $perpage = $result->perpage();

Returns the number of results "per page", i.e. the number of results in the list.

AUTHOR

Jonathan Leto, <jonathan at leto.net>

COPYRIGHT & LICENSE

Copyright 2009 Jonathan Leto <jonathan@leto.net>, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.