1package MogileFS::Factory::Device; 2use strict; 3use warnings; 4use base 'MogileFS::Factory'; 5 6use MogileFS::Device; 7 8sub set { 9 my ($self, $args) = @_; 10 my $hostfactory = MogileFS::Factory::Host->get_factory; 11 return $self->SUPER::set(MogileFS::Device->new_from_args($args, $hostfactory)); 12} 13 141; 15