view release on metacpan or  search on metacpan

devel/curversion  view on Meta::CPAN

my $version  = $META->{version};


if ($options->{'-n'}) {
    my $v = version->new($version);
    $version = $v->numify;
}

if ($options->{'-i'}) {
    my $v = version->new($version);
    my @digits = split m/\./, $v->stringify;
    $digits[-1]++;
    $v    = version->new( join q{.}, @digits );
    $version = $v->stringify;
}
    
    
if ($options->{'-Q'}) {
    $version = quotemeta $version;
}