File Coverage

blib/lib/Gungho/Handler/Null.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             # $Id: /mirror/gungho/lib/Gungho/Handler/Null.pm 31309 2007-11-29T13:16:23.310269Z lestrrat $
2             #
3             # Copyright (c) 2007 Daisuke Maki <daisuke@endeworks.jp>
4             # All rights reserved.
5              
6             package Gungho::Handler::Null;
7 1     1   1247 use strict;
  1         2  
  1         22  
8 1     1   3 use warnings;
  1         1  
  1         21  
9 1     1   3 use base qw(Gungho::Handler);
  1         1  
  1         11  
10              
11             sub handle_response
12             {
13             my $self = shift;
14             my $c = shift;
15             my $req = shift;
16             my $res = shift;
17              
18             $c->log->info($req->uri . " responded with code " . $res->code);
19             }
20              
21             1;
22              
23             =head1 NAME
24              
25             Gungho::Handler::Null - A Handler That Does Nothing
26              
27             =head1 METHODS
28              
29             =head2 handle_response
30              
31             Prints out the URI that just got fetched and its status code
32              
33             =cut