File Coverage

blib/lib/MogileFS/Domain.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	2	0.0
condition			n/a
subroutine	4	11	36.3
pod	0	7	0.0
total	16	45	35.5

package MogileFS::Domain;
use strict;
use warnings;
use MogileFS::Server;
use MogileFS::Util qw(throw);

=head1

MogileFS::Domain - domain class.

=cut

sub new_from_args {
    my ($class, $args, $class_factory) = @_;
    return bless {
        class_factory => $class_factory,
        %{$args},
    }, $class;
}

# Instance methods:

sub id   { $_[0]{dmid} }
sub name { $_[0]{namespace} }

sub has_files {
    my $self = shift;
    return 1 if $Mgd::_T_DOM_HAS_FILES;
    return Mgd::get_store()->domain_has_files($self->id);
}

sub classes {
    my $self = shift;
    return $self->{class_factory}->get_all($self);
}

sub class {
    my $self = shift;
    return $self->{class_factory}->get_by_name($self, $_[0]);
}

sub observed_fields {
    return {};
}

1;