package Opals::XML::SAX::UploadRsHandler;

# Version number
$VERSION   = 0.01;

use warnings;
use strict;
use XML::SAX;
use base qw( XML::SAX::Base );
sub new {
    my ($class) = @_;
    my $type = shift;
    my $self={curField=>'response'};
    $self->{text}="";
    bless $self, $class;
    return $self;
}

sub start_element {
    my ($self, $element) = @_;
    my $name = $element->{'Name'};
    $self->{text}="";
    if($name eq 'metadata'){
        $self->{'curField'}='metadata';
    }
} 
#################################################################
sub end_element {
    my ($self, $element) = @_;
    my $name = $element->{'Name'};
    if($self->{'curField'} eq 'metadata'){
        $self->{'metadata'}->{$name}=$self->{text} ;
    }
    elsif($name eq 'metadata'){
        $self->{'curField'}='response';
    }
    else{
         $self->{$name}=$self->{text} ;
    }
    $self->{text}="";
}
#################################################################
sub characters {
    my $self = shift;
    my $text = shift;
    $self->{text} .= $text->{Data};
}

1;