| Subject: | patch perl-reversion to bump use_ok in tests |
I use the Test::More::use_ok function in my tests to check the version number:
BEGIN { use_ok('Some::Module', 1.02) }
I patched perl-reversion to parse use_ok. If you think it is valuable, please include the patch.
| Subject: | diff-u.txt |
--- ../Perl-Version-1.013.orig/examples/perl-reversion 2014-02-12 15:46:27.000000000 -0500
+++ examples/perl-reversion 2015-11-19 14:06:28.910498000 -0500
@@ -220,6 +220,11 @@
( .* \s*) \z }x;
}
+sub version_re_test {
+ my $ver_re = shift;
+ return qr{ ^ ( .*? use_ok .*? ) $ver_re ( .* \s*) \z }x;
+}
+
sub version_re_pod {
my $ver_re = shift;
@@ -336,6 +341,10 @@
goto => 'pod',
},
{
+ re => version_re_test( $ver_re ),
+ mark => 1,
+ },
+ {
re => version_re_perl( $ver_re ),
mark => 1,
},