JSONモジュールでdieした場合でも処理を止めない。

例外処理の使い方とかイマイチ理解していなかったけど、やっぱり大事ということに気づいた。

#!/usr/bin/env perl                                                                                 
use strict;
use warnings;
use JSON;
use Data::Dumper;

my $json = <<'EOT';
{
    "foo" : [0,1,2],
    "bar" : [3,4,5]
},

EOT

my $obj	= '';
eval {
    $obj = from_json($json);
};
if($@){
    $obj = 'rescue';
}
print Dumper($obj);