File Coverage

blib/lib/Tanker/Plugin/Log.pm
Criterion Covered Total %
statement 18 22 81.8
branch n/a
condition n/a
subroutine 6 7 85.7
pod 0 1 0.0
total 24 30 80.0


line stmt bran cond sub pod time code
1             package Tanker::Plugin::Log;
2              
3 1     1   6 use strict;
  1         3  
  1         40  
4 1     1   7 use warnings;
  1         2  
  1         32  
5 1     1   521 use Tanker::Request;
  1         3  
  1         31  
6 1     1   536 use Tanker::Plugin;
  1         3  
  1         24  
7 1     1   5 use Data::Dumper;
  1         2  
  1         49  
8 1     1   5 use vars qw(@ISA);
  1         1  
  1         123  
9              
10             @ISA = qw (Tanker::Plugin);
11              
12              
13             sub handle ($$)
14             {
15 0     0 0   my ($self, $request) = @_;
16            
17 0           sleep (rand(10));
18 0           print STDERR Dumper $request;
19 0           print STDERR "\n\n";
20              
21             }
22              
23              
24              
25              
26             1;
27             __END__