File Coverage

blib/lib/WWW/Google/Groups/SearchResult.pm

Criterion	Covered	Total	%
statement	9	17	52.9
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	24	50.0

# $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__