File Coverage

blib/lib/Nephia/Request.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 2 6 33.3
subroutine 5 5 100.0
pod 2 2 100.0
total 24 28 85.7


line stmt bran cond sub pod time code
1             package Nephia::Request;
2 12     12   2623 use strict;
  12         22  
  12         425  
3 12     12   68 use warnings;
  12         20  
  12         403  
4 12     12   17928 use parent 'Plack::Request::WithEncoding';
  12         24904  
  12         76  
5              
6             sub uri {
7 1     1 1 10249 my $self = shift;
8              
9 1   33     18 $self->{uri} ||= $self->SUPER::uri;
10 1         10238 $self->{uri}->clone; # avoid destructive opearation
11             }
12              
13             sub base {
14 1     1 1 1188 my $self = shift;
15              
16 1   33     22 $self->{base} ||= $self->SUPER::base;
17 1         158 $self->{base}->clone; # avoid destructive operation
18             }
19              
20             1;
21              
22             __END__