view release on metacpan or  search on metacpan

lib/Business/Shipping/UPS_XML/Parser.pm  view on Meta::CPAN

         $contents = $self->{'_contents'};
         $name = $self->{'_name'};
         $self->{$name} = $contents;
	  }
	  $self->{'_name'} = undef;
	  $self->{'_contents'} = undef;
   }
   # print "End Level " . $self->{'_level'} . "\n";
}
sub spawn_new_object() {

   my $self = shift;

   my $contents = $self->{'_contents'};
   my $name = $self->{'_name'};
   $self->{'_name'} = undef;
   $self->{'_contents'} = undef;

   my $x = new Business::Shipping::UPS_XML::Parser($contents,$self->{'_level'});
   $x->parse();