File Coverage

blib/lib/MogileFS/Factory/Host.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package MogileFS::Factory::Host;
2 21     21   97 use strict;
  21         30  
  21         699  
3 21     21   87 use warnings;
  21         27  
  21         494  
4 21     21   80 use base 'MogileFS::Factory';
  21         26  
  21         1471  
5              
6 21     21   6550 use MogileFS::Host;
  21         50  
  21         1705  
7              
8             sub set {
9 68     68 0 1136 my ($self, $args) = @_;
10 68         138 my $devfactory = MogileFS::Factory::Device->get_factory;
11 68         171 return $self->SUPER::set(MogileFS::Host->new_from_args($args, $devfactory));
12             }
13              
14             1;