File Coverage

blib/lib/YA/CLI/PodRole.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	6	8	75.0
condition	3	5	60.0
subroutine	7	7	100.0
pod	2	3	66.6
total	41	46	89.1

package YA::CLI::PodRole;
our $VERSION = '0.007';
use Moo::Role;
use namespace::autoclean;

# ABSTRACT: Pod handler role

use YA::CLI::Usage;

sub usage_pod { 0 }

sub as_help {
    my $self = shift;
    my $rc = shift;
    my $message = shift;

    return YA::CLI::Usage->new(
      rc => ($rc // 0),
      $message ? (message => $message) : (),
      $self->_get_podfile_for_usage,
    );
}

sub as_manpage {
    my $self = shift;

    return YA::CLI::Usage->new(
        rc      => 0,
        verbose => 2,
        $self->_get_podfile_for_usage,
    );
}

sub _get_podfile_for_usage {
    my $self = shift;

    my $podfile;
    my $pod = $self->usage_pod;
    return unless $pod;
    return if $pod eq 'pl';
    return (pod_file => $pod) unless $pod == 1;
    return (pod_file => ref $self || $self);
}

1;

__END__