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   13640 use strict;
  1         1  
  1         27  
4 1     1   3 use warnings;
  1         1  
  1         29  
5              
6 1     1   416 use Plack::Util::Accessor qw(mind env log req res tube seen grit vent);
  1         218  
  1         5  
7 1     1   525 use Plack::Request;
  1         60639  
  1         27  
8 1     1   379 use Plack::Response;
  1         736  
  1         89  
9              
10             sub new {
11 1     1 0 10 my ($class, $meal) = @_;
12              
13 1         7 $meal->{req} = Plack::Request->new($meal->{env});
14 1         14 $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__