File Coverage

blib/lib/YA/CLI/Usage.pm

Criterion	Covered	Total	%
statement	23	28	82.1
branch	8	10	80.0
condition	0	2	0.0
subroutine	7	9	77.7
pod	1	1	100.0
total	39	50	78.0

package YA::CLI::Usage;
our $VERSION = '0.007';
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      => 'rw',
  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;

  if ($self->verbose == 1) {
      $self->verbose(99);
  }

  $self->_pod2usage(
    $self->has_message ? (-message => $self->message) : (),
    -verbose => $self->verbose,
    -exitval => $self->rc,
    $self->verbose == 99 ? ( -sections => 'NAME|SYNOPSIS|COMMANDS|OPTIONS' ) : (),
    $pod_where ? ('-input' => $pod_where) : (),
  );
}

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

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

__PACKAGE__->meta->make_immutable;

__END__