view release on metacpan or  search on metacpan

t/has-version.t  view on Meta::CPAN

    close($in);

    return $contents;
}

use File::Spec ();

{
    my $text = _slurp(
        File::Spec->catfile(
            File::Spec->curdir, split m#/#, "lib/Pod/Weaver/PluginBundle/SHLOMIF.pm"
        )
    );

    my $ver;

    ($ver) = $text =~ m#\$[A-Za-z0-9_:]*?VERSION\s*=\s*'([0-9\.]+)'#ms;

    # TEST
    ok( defined($ver), 'VERSION was matched' );