required => 1,
);
-has 'source' => (
- is => 'ro',
- isa => 'Str',
- predicate => 'has_old_source',
- clearer => 'clear_old_source',
-);
-
has 'file' => (
is => 'ro',
isa => 'Str',
}
$xmlobj = $self->object;
} else {
+ require XML::LibXML;
my $parser = XML::LibXML->new();
my $parsersub = $self->has_file ? 'parse_file' : 'parse_string';
try {