File Coverage

blib/lib/CLI/Command.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	2	0.0
total	32	37	86.4

package CLI::Command;
use CLI::Base;
@ISA = ("CLI::Base");

use CLI qw(TIME);

use Carp;
use strict;

sub new {
  my $proto = shift;
  my $class = ref($proto) || $proto;

  my $name = shift;
  my $func = shift;

  my $self  = {
	       NAME => $name,
	       TYPE => undef,
	       VALUE => undef,
	       MIN => undef,
	       MAX => undef,
	       FUNC => $func
	      };
  bless ($self, $class);
  return $self;
}

sub parse {
  my $self = shift;
  my $value = shift;

  if (defined $self->function()) {
    &{$self->function()}($value);
  }
}

1;