File Coverage

blib/lib/Git/DescribeVersion/App.pm

Criterion	Covered	Total	%
statement	32	38	84.2
branch	7	10	70.0
condition	3	3	100.0
subroutine	10	11	90.9
pod	1	3	33.3
total	53	65	81.5

# vim: set ts=2 sts=2 sw=2 expandtab smarttab:
#
# This file is part of Git-DescribeVersion
#
# This software is copyright (c) 2010 by Randy Stauner.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#
use strict;
use warnings;

package Git::DescribeVersion::App;
{
  $Git::DescribeVersion::App::VERSION = '1.015';
}
BEGIN {
  $Git::DescribeVersion::App::AUTHORITY = 'cpan:RWSTAUNER';
}
# ABSTRACT: Run Git::DescribeVersion as one-line script

use Git::DescribeVersion ();
use Getopt::Long qw(GetOptions); # core

# for simplicity
our %Defaults = %Git::DescribeVersion::Defaults;

my %get_opt_spec = map {
  my $dash = $_;
  # accept --opt_name or --opt-name (but store it in the hash as opt_name)
  # don't duplicate single words ("format=s" rather than "format|format=s")
  ( $dash =~ tr/_/-/ ? "$_|$dash=s" : "$_=s" )
} keys %Defaults;

# simple: enable `perl -MGit::DescribeVersion::App -e run`
sub import {
  no strict 'refs'; ## no critic
  *{caller(0) . '::run'} = \&run;
}

sub options {
  # allow usage as Git::DescribeVersion::App->run()
  # (for consistency with other App's)
  # and simply discard the unused argument
  shift(@_) if @_ && $_[0] eq __PACKAGE__;

  my %env;
  foreach my $opt ( keys %Defaults ){
    # look for $ENV{GIT_DV_OPTION}
    my $eopt = "\UGIT_DV_$opt";
    $env{$opt} = $ENV{$eopt} if exists($ENV{$eopt});
  }

  my %argv;
  GetOptions(\%argv, 'help' => \&usage, %get_opt_spec)
    or usage();

  my %args = ref($_[0]) ? %{$_[0]} : @_;

  # order of importance: %ENV, @ARGV, @_
  return {%env, %argv, %args};
}

sub run {
  print Git::DescribeVersion->new(options(@_))->version, "\n";
}

sub usage {
  no warnings 'uninitialized';
  # show package name if script name is "-" or "-e"
  printf("%s %s\n\nOptions (and their default values):\n\n",
    ($0 =~ /^-e?$/ ? __PACKAGE__ : $0), __PACKAGE__->VERSION
  );

  foreach my $opt ( sort keys %Defaults ){
    (my $arg = $opt) =~ tr/_/-/;
    printf(qq[  --%-18s "%s"\n], $arg, $Defaults{$opt});
  }

  print "\nFor more information try `perldoc Git::DescribeVersion::App`\n";
  exit;
}

1;


__END__