src/perlmods/OpenSRF/DomainObjectCollection.pm

   1 package OpenSRF::DomainObjectCollection;
   2 use base 'OpenSRF::DOM::Element::domainObjectCollection';
   3 use OpenSRF::DOM;
   4 use OpenSRF::Utils::Logger qw(:level);
   5 my $logger = "OpenSRF::Utils::Logger";
   6
   7 =head1 NAME
   8
   9 OpenSRF::DomainObjectCollection
  10
  11 =head1 SYNOPSIS
  12
  13 OpenSRF::DomainObjectCollection is an abstract base class.  It
  14 should not be used directly.  See C<OpenSRF::DomainObjectCollection::*>
  15 for details.
  16
  17 =cut
  18
  19 sub new {
  20         my $class = shift;
  21         $class = ref($class) || $class;
  22
  23         my @args = shift;
  24
  25         (my $type = $class) =~ s/^.+://o;
  26
  27         my $doc = OpenSRF::DOM->createDocument;
  28         my $dO = OpenSRF::DOM::Element::domainObjectCollection->new( $type, @args );
  29
  30         $doc->documentElement->appendChild($dO);
  31
  32         return $dO;
  33 }
  34
  35 1;