File Coverage

blib/lib/exact/cli.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	2	4	50.0
condition	1	3	33.3
subroutine	5	6	83.3
pod	1	1	100.0
total	33	39	84.6

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

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

our $VERSION = '1.09'; # VERSION

sub import {
    my ( $self, $params, $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__