← Back to branch summary

~evergreen-bugs/evergreen/rel_3_11

« back to all changes in this revision

Viewing changes to OpenSRF/src/perlmods/OpenSRF/DOM/Element/searchTargetValue.pm

  • Committer: phasefx
  • Date: 2005-02-04 22:08:15 UTC
  • Revision ID: git-v1:940e152e588a9b1c1b4f18cbbecf46691cb2f58c
Initial revision


git-svn-id: svn://svn.open-ils.org/ILS/trunk@2 dcc99617-32d9-48b4-a31d-7c20da2025e4

Show diffs side-by-side

added added

removed removed

Lines of Context:
OpenSRF/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;