our $VERSION;
my $version_pod = <<"=cut";
=pod

=head1 NAME

blah blah

=head1 VERSION

@{[
    $VERSION = "0.23"
]}

=cut


##</code><code>##

my $version_pod = <<'=cut';
=pod

=head1 NAME

blah blah...

=head1 VERSION

our $VERSION = "0.63";

=cut

our $VERSION = "0.63";
# ...

sub __test_version {
    my $v = __PACKAGE__->VERSION;
    return 1 if $version_pod =~ m/VERSION.*\Q$v/;
    return;
}


##</code><code>##

use Test::More tests => 2;
BEGIN { use_ok('My::Module') };
ok(My::Module->__test_version, "version ok");


##</code><code>##

our $VERSION = ($version_pod =~ m/^our \$VERSION = "(\d+(?:\.\d+)+)"/m) ? $1 : "0.01";