File Coverage

blib/lib/exact/cli.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	2	4	50.0
condition	1	3	33.3
subroutine	6	7	85.7
pod	1	1	100.0
total	37	43	86.0

package exact::cli;
# ABSTRACT: Command-line interface helper utilities extension for exact

use 5.014;
use exact;
use strict;
use Util::CommandLine 1.04 ();

our $VERSION = '1.06'; # VERSION

sub import {
    my ( $self, $caller ) = @_;
    $caller //= caller();

    my @methods = qw( options pod2usage readmode singleton );
    {
        no strict 'refs';
        for (@methods) {
            my $method = "Util::CommandLine::$_";
            *{ $caller . '::' . $_ } = \&$method unless ( defined &{ $caller . '::' . $_ } );
        }

        for ('podhelp') {
            *{ $caller . '::' . $_ } = \&$_ unless ( defined &{ $caller . '::' . $_ } );
        }
    }
}

sub podhelp {
    Util::CommandLine::options();
}

1;

__END__