Help for this page

Select Code to Download


  1. or download this
    our $VERSION;
my $version_pod = <<"=cut";
=pod
...
]}

=cut
  2. or download this
    my $version_pod = <<'=cut';
=pod
...
    return 1 if $version_pod =~ m/VERSION.*\Q$v/;
    return;
}
  3. or download this
    use Test::More tests => 2;
BEGIN { use_ok('My::Module') };
ok(My::Module->__test_version, "version ok");
  4. or download this
    our $VERSION = ($version_pod =~ m/^our \$VERSION = "(\d+(?:\.\d+)+)"/m
+) ? $1 : "0.01";