package Metadata::Dumper::App;

use strict;

use lib '/app/tools/distribution/lib';

use lib '/app/tools/common/lib';
use Common::Assert;
use Data::Dumper;

use lib '/app/tools/metadata/lib';
use Metadata::Dumper::XML;

use base 'Common::Script';

sub _init {
    my $self = shift;
    my %args = @_;

    $self->SUPER::_init(@_);

    $self->{_albumID} = $args{album_id};
    $self->{_raw}     = $args{raw};

    assert( $self->{_client_id}, "Client ID Required" );

    return $self;
}

sub _process {
    my $self = shift;
    $self->_exportXML();
}

sub _exportXML {
    my $self = shift;

    my $dumper = new Metadata::Dumper::XML( albumID => $self->{_albumID}, raw => $self->{_raw} );
    print $dumper->translate();
}

1;