File Coverage

blib/lib/Version/Monotonic.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	5	6	83.3
condition	1	2	50.0
subroutine	3	3	100.0
pod	2	2	100.0
total	21	23	91.3

package Version::Monotonic;

our $DATE = '2016-05-20'; # DATE
our $VERSION = '1.100'; # VERSION

#IFUNBUILT
# # use strict;
# # use warnings;
#END IFUNBUILT

use Exporter qw(import);
our @EXPORT_OK = qw(
                       valid_version
                       inc_version
               );

our $re = qr/\A([1-9][0-9]*)\.([1-9][0-9]*)(\.0)?\z/;

sub valid_version {
    my $v = shift;
    $v =~ $re ? 1:0;
}

sub inc_version {
    my ($v, $inc_compat) = @_;

    my ($compat, $rel, $zero) = $v =~ $re
        or die "Invalid monotonic version '$v'";
    $compat++ if $inc_compat;
    $rel++;
    "$compat.$rel".($zero || "");
}

1;
# ABSTRACT: Utility routines related to monotonic versioning

__END__