perl use XML::Simple;で不完全なXMLを読むとエラーで落ちてしまう。落ちないようにしたい。

Question

前提・実現したいこと

perlでuse XML::Simple;を利用する場合、xmlが不完全ですとエラーが出て落ちてしまいます。
落ちないようにしたいのですがどのようにすればよいでしょうか？

発生している問題・エラーメッセージ

not well-formed (invalid token) at line 1, column 4, byte 4 at C:/Perl/lib/XML/Parser.pm line 187.

該当のソースコード

my $str = '<xml><Test>test</Test><Test2>test2</Test2></xml>';
# my $str = 'test<xml><Test>test</Test><Test2>test2</Test2></xml>';#←こちらにするとエラーが出て落ちる
use Data::Dumper;
use XML::Simple;
my $xml = XML::Simple->new;
my $conf = $xml->XMLin($str);
print Dumper($conf);
my $result =  $conf->{Test};
print $result;

Answer 1

こんな形でできると思います。

my $conv;
eval { $conf = $xml->XMLin($str) };
if($@ =~ /not well-formed (invalid token)/){
  # XMLの形式が不正だったときのエラー処理をここに書く。
}
...

Comments

[h5x]

とても助かりました！