File Coverage

blib/lib/MogileFS/Factory/Device.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::Device;
2 21     21   123 use strict;
  21         45  
  21         519  
3 21     21   93 use warnings;
  21         32  
  21         518  
4 21     21   95 use base 'MogileFS::Factory';
  21         34  
  21         1704  
5              
6 21     21   7067 use MogileFS::Device;
  21         65  
  21         1360  
7              
8             sub set {
9 130     130 0 526 my ($self, $args) = @_;
10 130         252 my $hostfactory = MogileFS::Factory::Host->get_factory;
11 130         273 return $self->SUPER::set(MogileFS::Device->new_from_args($args, $hostfactory));
12             }
13              
14             1;