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

sub setup { my $self = shift;

    my $url = $self->config->{url};
    if ($url && ! ref($url) ) {
        $url = [ $url ];
    }

    foreach my $u (@$url) {
        $self->add_request(
            Gungho::Request->new(GET => $u)
        );
    }
    $self->next::method(@_);
}

NAME

Gungho::Provider::Simple - An In-Memory, Simple Provider

SYNOPSIS

  use Gungho::Provider::Simple;
  my $g = Gungho::Provider::Simple->new;
  $g->add_request(Gungho::Request->new(GET => 'http://...'));
  

METHODS

new()

Creates a new instance.

setup($c)

Sets up the provider.

add_request($request)

Adds a new request to the provider.

get_requests()

Returns the list of requests in the provider. The list is set to an empty list after the call, and has_requests is set to 0