Yet Another CPAN Grep

OrePAN ( T/TO/TOKUHIROM/OrePAN-0.08.tar.gz, TOKUHIROM, 2013; MetaCPAN )

OrePAN/lib/OrePAN/Archive.pm ( view source; MetaCPAN )

rict;
use warnings;
use utf8;
use Mouse;
use Mouse::Util::TypeConstraints;
use YAML::Tiny ();
use JSON ();
use List::MoreUtils qw/any/;
use Log::Minimal;
use File::Basename;
use File::Temp;
use Path::

 infof("retrieve meta data");
        if ( my ($json) = grep /META.json$/, @files ) {
            my $data = $json->slurp;
            JSON::decode_json($data);
        }
        elsif ( my ($yml) = g

s ) {
            eval{
                # json format yaml
                my $data = $yml->slurp;
                YAML::Tiny::Load($data) || JSON::decode_json($data);
            };
        }