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;