File Coverage

blib/lib/Wurm/mob.pm
Criterion Covered Total %
statement 19 21 90.4
branch n/a
condition n/a
subroutine 6 8 75.0
pod 0 3 0.0
total 25 32 78.1


line stmt bran cond sub pod time code
1             package Wurm::mob;
2              
3 1     1   17813 use strict;
  1         3  
  1         38  
4 1     1   4 use warnings;
  1         2  
  1         45  
5              
6 1     1   761 use Plack::Util::Accessor qw(mind env log req res tube seen grit vent);
  1         309  
  1         7  
7 1     1   730 use Plack::Request;
  1         72813  
  1         42  
8 1     1   392 use Plack::Response;
  1         815  
  1         88  
9              
10             sub new {
11 1     1 0 9 my ($class, $meal) = @_;
12              
13 1         10 $meal->{req} = Plack::Request->new($meal->{env});
14 1         15 $meal->{res} = Plack::Response->new(200);
15 1         20 return bless $meal, $class;
16             }
17              
18 0     0 0   sub response {$_[0]->{res}}
19 0     0 0   sub request {$_[0]->{req}}
20              
21             '.oOo.' # in wurm i trust
22             __END__