File Coverage

blib/lib/YA/CLI/Usage.pm

Criterion	Covered	Total	%
statement	21	26	80.7
branch	4	6	66.6
condition			n/a
subroutine	7	9	77.7
pod	1	1	100.0
total	33	42	78.5

package YA::CLI::Usage;
our $VERSION = '0.003';
use Moo;
use namespace::autoclean;

# ABSTRACT: Class that handles usage and man page generation for action handlers

use Carp qw(croak);
use List::Util qw(first);
use Pod::Find qw(pod_where);
use Pod::Usage qw(pod2usage);

has verbose => (
    is      => 'ro',
    default => 1,
);

has rc => (
    is      => 'ro',
    default => 0,
);

has message => (
    is        => 'ro',
    predicate => 'has_message',
);

has pod_file => (
    is        => 'ro',
    predicate => 'has_pod_file'
);

sub run {
    my $self = shift;

    my $pod_where = $self->_pod_where;

    $self->_pod2usage(
        $self->has_message ? (-message => $self->message) : (),
        -verbose => $self->verbose,
        -exitval => $self->rc,
        $pod_where ? ('-input' => $pod_where) : (),
    );
}

sub _pod_where {
  my $self = shift;
  return unless $self->has_pod_file;
  return pod_where({ -inc => 1 }, $self->pod_file);
}

sub _pod2usage {
    my $self = shift;
    pod2usage(@_);
}

__PACKAGE__->meta->make_immutable;

__END__