File Coverage

blib/lib/Test/Environment/Plugin/Apache2/Apache2/Request.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	2	50.0
total	17	32	53.1

package Test::Environment::Plugin::Apache2::Apache2::Request;

our $VERSION = '0.06';

1;

package Apache2::Request;

=head1 NAME

Test::Environment::Plugin::Apache2::Apache2::Request - mock Apache2::Request for Test::Environment

=head1 SYNOPSIS


=head1 DESCRIPTION

Will populate Apache2::Request namespace with fake methods that can be used for
testing.

=cut

use warnings;
use strict;

our $VERSION = '0.06';

use URI;

use base 'Class::Accessor::Fast';


=head1 PROPERTIES

    req_rec

=cut

__PACKAGE__->mk_accessors(qw{
    req_rec
    _params
});


=head1 METHODS

=head2 new()

Object constructor.

=cut

sub new {
    my $class = shift;
    my $req_rec   = shift;
    my $self = $class->SUPER::new({
        'req_rec' => $req_rec,
        @_,
    });

    $self->{'_params'} = { URI->new($req_rec->unparsed_uri)->query_form };

    return $self;
}

*param = *params;

sub params {
    my $self = shift;
    if (@_) {
        my $param_name = shift;
        return $self->_params->{$param_name};
    }
    return $self->_params;
}

1;

__END__