Initial revision
[OpenSRF.git] / 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;