/usr/local/CPAN/WWW-Google-Groups/WWW/Google/Groups/SearchResult.pm

• package WWW::Google::Groups::SearchResult
  • new
  • next_thread
• __END__
• EOF

# $Id: SearchResult.pm,v 1.3 2003/09/16 09:08:53 cvspub Exp $
package WWW::Google::Groups::SearchResult;

use strict;
use Storable qw(dclone);

sub new {
    my ($pkg, $arg, $threads) = @_;
    my $hash = dclone $arg;
    $hash->{_threads} = $threads;
    $hash->{_thread_no} = 0;
    bless $hash, $pkg;
}

use WWW::Mechanize;
sub next_thread {
    my $self = shift;
    new WWW::Google::Groups::Thread($self, shift @{$self->{_threads}});
}



1;
__END__