our $VERSION = "0.98_001";

my $version_pod = <<'=cut';

=pod

=head1 VERSION

$VERSION = "0.98_001"

=cut

sub __test_version {
    my $v = __PACKAGE__->VERSION;
    my ($v_test) = $version_pod =~ m/VERSION\s*=\s*"(.+)"/m;
    return $v eq $v_test ? 1 : 0;
}

# im testfile dann:
ok(HTML::Template::Compiled->__test_version, "version ok");