view release on metacpan or  search on metacpan

t/lib/Test/CAPRESTResource.pm  view on Meta::CPAN

    $self->rest_resource(resource => 'fidget', prefix => 'foo',
        identifier => 'num',
        in_types => ['application/xml'], out_types => ['text/html']);

    if (defined $self->query->param('noargs')) {
        $self->rest_resource();
    }

    if (defined $self->query->param('bogusargs')) {
        $self->rest_resource('midget', 'gidget', 'apt-get');
    }

    if (defined $self->query->param('bogusresource')) {
        my $resource = {
            prefix     => 'foo',
            identifier => 'num',
        };
        $self->rest_resource($resource);
    }