Yet Another CPAN Grep

Parse-PMFile ( I/IS/ISHIGAKI/Parse-PMFile-0.47.tar.gz, ISHIGAKI, 2024; MetaCPAN )

Parse-PMFile/lib/Parse/PMFile.pm ( view source; MetaCPAN )

clean_eval { eval $_[0] } # needs to be here (RT#101273)

use strict;
use warnings;
use Safe;
use JSON::PP ();
use Dumpvalue;
use version ();
use File::Spec ();

our $VERSION = '0.47';
our $VERBOSE =


        $self->{VERSION} = $version;
        if ($self->{VERSION} =~ /^\{.*\}$/) {
            # JSON error message
        } elsif ($self->{VERSION} =~ /[_\s]/ && !$self->{ALLOW_DEV_VERSION} && !$AL

age};
        if ($pp->{version} && $pp->{version} =~ /^\{.*\}$/) { # JSON parser error
            my $err = JSON::PP::decode_json($pp->{version});
            if ($err->{x_normalize}) {