File Coverage

blib/lib/MogileFS/Factory/Domain.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	27	59.2

package MogileFS::Factory::Domain;
use strict;
use warnings;
use base 'MogileFS::Factory';

use MogileFS::Domain;

sub set {
    my ($self, $args) = @_;
    my $classfactory = MogileFS::Factory::Class->get_factory;
    my $dom = $self->SUPER::set(MogileFS::Domain->new_from_args($args, $classfactory));

    # Stupid awkward classes have a magic "default"
    # If it exists in the DB, it will be overridden.
    my $cls = $classfactory->get_by_id($dom->id, 0);
    unless ($cls) {
        $classfactory->set({ dmid => $dom->id, classid => 0,
            classname => 'default',
            mindevcount => MogileFS->config('default_mindevcount')});
    }
    return $dom;
}

1;