File Coverage

lib/HTTP/Server/VirtualHost/LocalHost.pm
Criterion Covered Total %
statement 15 18 83.3
branch n/a
condition 0 2 0.0
subroutine 5 6 83.3
pod 0 1 0.0
total 20 27 74.0


line stmt bran cond sub pod time code
1             # Copyrights 2008 by Mark Overmeer.
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 1.05.
5 1     1   5 use warnings;
  1         1  
  1         29  
6 1     1   5 use strict;
  1         1  
  1         35  
7              
8             package HTTP::Server::VirtualHost::LocalHost;
9 1     1   4 use vars '$VERSION';
  1         2  
  1         48  
10             $VERSION = '0.11';
11              
12 1     1   4 use base 'HTTP::Server::VirtualHost';
  1         2  
  1         143  
13              
14 1     1   6 use Log::Report 'httpd-multiplex', syntax => 'SHORT';
  1         8  
  1         11  
15              
16              
17             sub init($)
18 0     0 0   { my ($self, $args) = @_;
19              
20 0   0       $args->{name} ||= 'localhost';
21 0           $self->SUPER::init($args);
22             }
23              
24             # probably, more code will need to be added later
25              
26             1;