lib/MogileFS/Domain.pm

   1 package MogileFS::Domain;
   2 use strict;
   3 use warnings;
   4 use MogileFS::Server;
   5 use MogileFS::Util qw(throw);
   6
   7 =head1
   8
   9 MogileFS::Domain - domain class.
  10
  11 =cut
  12
  13 sub new_from_args {
  14     my ($class, $args, $class_factory) = @_;
  15     return bless {
  16         class_factory => $class_factory,
  17         %{$args},
  18     }, $class;
  19 }
  20
  21 # Instance methods:
  22
  23 sub id   { $_[0]{dmid} }
  24 sub name { $_[0]{namespace} }
  25
  26 sub has_files {
  27     my $self = shift;
  28     return 1 if $Mgd::_T_DOM_HAS_FILES;
  29     return Mgd::get_store()->domain_has_files($self->id);
  30 }
  31
  32 sub classes {
  33     my $self = shift;
  34     return $self->{class_factory}->get_all($self);
  35 }
  36
  37 sub class {
  38     my $self = shift;
  39     return $self->{class_factory}->get_by_name($self, $_[0]);
  40 }
  41
  42 sub observed_fields {
  43     return {};
  44 }
  45
  46 1;