Initial revision
[OpenSRF.git] / src / perlmods / OpenSRF / DOM / Element / domainObjectAttr.pm
1 package OpenSRF::DOM::Element::domainObjectAttr;
2 use base 'OpenSRF::DOM::Element';
3
4 sub new {
5         my $class = shift;
6         my @nodes;
7         while (@_) {
8                 my ($name,$val) = (shift,shift);
9                 push @nodes, $class->SUPER::new(name => $name, value => $val);
10         }
11         return @nodes if (wantarray);
12         return $nodes[0];
13 }
14
15 1;