view release on metacpan or  search on metacpan

t/000-report-versions-tiny.t  view on Meta::CPAN

        }
    } else {
        my $version;
        eval { $version = $module->VERSION; };
        if ($@) {
            diag("${module}: $@");
            $pmver = 'died during VERSION check.';
        } elsif (defined $version) {
            $pmver = "$version";
        } else {
            $pmver = '<undef>';
        }
    }

    # So, we should be good, right?
    return sprintf('%-45s => %-10s%-15s%s', $module, $pmver, $wanted, "\n");
}

eval { $v .= pmver('Acme::MetaSyntactic','any version') };
eval { $v .= pmver('Acme::MetaSyntactic::Themes','1.000') };
eval { $v .= pmver('ExtUtils::MakeMaker','any version') };