package SSEParser;
use Moo;
use Data::Dumper;
extends 'XML::LibXML';

sub load_sse_file {
    my ($self, $filename) = @_;
    die "File not found <$filename>\n" unless -f $filename;
    die "Not SSE file <$filename>\n" unless $filename =~ /_subeditor\.xml$/i;
	my $doc  = $self->parse_file($filename);
    print '='x75, "\n";
    print Dumper($doc);
    print '='x75, "\n";
    bless $doc, 'SSEDocument';
    return $doc;
}
1;