File Coverage

lib/CLI/Dispatch/Command.pm

Criterion	Covered	Total	%
statement	32	49	65.3
branch	15	20	75.0
condition	3	11	27.2
subroutine	7	9	77.7
pod	7	7	100.0
total	64	96	66.6

package CLI::Dispatch::Command;

use strict;
use warnings;

sub new {
  my $class = shift;
  my $self  = bless {}, $class;
  $self->set_options(@_) if @_;

  if (!$self->can('log')) {
    require Log::Dump; Log::Dump->import;
  }

  $self;
}

sub set_options {
  my $self = shift;

  my %args = @_;
  for (keys %args) {
      die "override $_ by a command argument" if defined $self->{$_};
      $self->{$_} = $args{$_};
  }

  if ($self->can('logger')) {
    $self->logger( $self->{verbose} || $self->{debug} || $self->{logfilter} ? 1 : 0 );
  }
  if ($self->can('logfilter')) {
    my @filters = $self->{logfilter} ? split ',', $self->{logfilter} : ();
    push @filters, '!debug' unless $self->{debug};
    $self->logfilter(@filters);
  }

  $self;
}

sub options { return () }

sub option {
  my ($self, $name) = @_;

  defined $self->{$name} ? $self->{$name} : '';
}

sub run {
  my ($self, @args) = @_;

  return;
}

sub run_directly {
  my $self = shift;
  my $class = ref $self || $self;
  require CLI::Dispatch;
  CLI::Dispatch->run_directly($class);
}

sub usage {
  my ($self, $no_print) = @_;

  my $class = ref $self;
  $class =~ s{::}{/}g;
  $class .= '.pm';

  my $file = $INC{$class} || $0 or return;
  my $content = do { local $/; open my $fh, '<', $file; <$fh> };

  require CLI::Dispatch::Help;
  my $help = CLI::Dispatch::Help->new(%$self);

  my $pod = $help->_parse_pod($content);
  $pod = $help->extract_pod_body($pod);

  $pod =~ /^(\S+\s+.+?)\n(?=\S)/s; # extract first paragraph
  $help->output( $1 || '', $no_print );
}

1;

__END__