File Coverage

blib/lib/Getopt/Inherited.pm

Criterion	Covered	Total	%
statement	35	38	92.1
branch	5	8	62.5
condition			n/a
subroutine	9	10	90.0
pod	2	2	100.0
total	51	58	87.9

use 5.008;
use strict;
use warnings;

package Getopt::Inherited;
our $VERSION = '1.100860';
# ABSTRACT: Handling inherited command-line options
use Getopt::Long;
use Pod::Usage;
use parent qw(
  Class::Accessor::Complex
  Data::Inherited
);
__PACKAGE__->mk_hash_accessors(qw(opt));
Getopt::Long::Configure('no_ignore_case');
use constant GETOPT => (qw(help man logfile|log=s verbose|v+ version|V));
use constant GETOPT_DEFAULTS => ();

sub usage {
    my $self = shift;
    require Pod::Usage;
    Pod::Usage::pod2usage(@_);
}

sub do_getopt {
    my $self = shift;
    my %opt;
    GetOptions(\%opt, $self->every_list('GETOPT')) or $self->usage(2);
    $self->usage(1) if $opt{help};
    $self->usage(-exitstatus => 0, -verbose => 2) if $opt{man};
    my %defaults = $self->every_hash('GETOPT_DEFAULTS');
    while (my ($key, $value) = each %defaults) {
        next if defined $opt{$key};
        $opt{$key} = $value;
    }
    $self->opt(%opt);
    $self;
}
1;


__END__