view release on metacpan or  search on metacpan

devel/curversion  view on Meta::CPAN

#!/usr/local/bin/perl
# $Id: curversion 37 2007-11-03 20:08:48Z asksol $
# $Source$
# $Author: asksol $
# $HeadURL: https://class-dot.googlecode.com/svn/trunk/devel/curversion $
# $Revision: 37 $
# $Date: 2007-11-03 21:08:48 +0100 (Sat, 03 Nov 2007) $
use strict;
use warnings;
use version;
use 5.006_001;

use FindBin     qw($Bin);
use YAML::Syck;
use File::Spec;
use Getopt::LL qw(getoptions);

our $VERSION = 1.0;

my $options  = getoptions(undef, { style => 'GNU' });
my $updir    = File::Spec->updir();
my $distmeta = File::Spec->catfile($Bin, $updir, 'META.yml');
my $META     = LoadFile($distmeta);

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;
}

print $version, "\n";

__END__

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 78
# End:
# vim: expandtab tabstop=4 shiftwidth=4 shiftround