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__ |