#!/usr/bin/perl -l
package ETTX;
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;

sub load(;$){#file name
    my $class = shift;
	my $self;
	if(@_ == 1){
		my $xml = XML::Simple->new();
		$self  = { 
			ettx => $xml->XMLin(shift),	#for main file
			template => {},
		};
	}
	else{
		$self = {
			ettx => {},
			template => {},
		}
	}
    bless $self, $class;
    return $self;
};

sub loadEttx($){
	my $self = shift;
	my $xml = XML::Simple->new();
	$self=>{ettx} = $xml->XMLin(shift);
}

sub loadTemplate($){
	my $self = shift;
	my $xml = XML::Simple->new();
	$self=>{template} = $xml->XMLin(shift);
}
1;