src/perlmods/OpenSRF/DOM/Element/searchTargetValue.pm

   1 package OpenSRF::DOM::Element::searchTargetValue;
   2 use base 'OpenSRF::DOM::Element';
   3
   4 sub new {
   5         my $self = shift;
   6         my $class = ref($self) || $self;
   7         my @args = @_;
   8
   9         my @values = ();
  10         for my $val (@args) {
  11                 next unless ($val);
  12                 if (ref($val)) {
  13                         push @values, $class->new(@$val);
  14                 } else {
  15                         push @values, $class->SUPER::new( value => $val );
  16                 }
  17
  18         }
  19         return $values[0] if (!wantarray);
  20         return @values;
  21 }
  22
  23 1;