view release on metacpan or  search on metacpan

lib/Data/Structure/Deserialize/Auto.pm  view on Meta::CPAN

127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
    $v = io->file($v)->slurp;
  }
  unshift(@decoders, $hint) if (defined($hint));
  my $n;
  do {
    $n = shift(@decoders);
    my $decoder = $decoders{$n};
    try {
      my $structure = $decoder->($v);
      if (ref($structure) eq 'HASH' || ref($structure) eq 'ARRAY') {
        # warn("decoded using '$n'");
        return $decoder->($v);
      }
    } catch {
      # ignore any errors and try the next decoder, or die out at the bottom
    };
  } while (@decoders);
  die("Data::Structure::Deserialize::Auto was unable to process the input");
}
 
=pod