The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package TestParser;

use Catmandu::Sane;
use Moo;

has metadataPrefix => (is => 'ro' , default => sub { "marcxml" });

sub parse {
    my ($self,$dom) = @_;

    return undef unless defined $dom;

    my $rec = { test => 'ok' };

    $rec;
}

1;