File Coverage

blib/lib/CLI/Base.pm

Criterion	Covered	Total	%
statement	33	59	55.9
branch	6	16	37.5
condition	6	21	28.5
subroutine	9	13	69.2
pod	0	8	0.0
total	54	117	46.1

package CLI::Base;
use strict;

use strict;
use Carp;
use CLI   qw(INTEGER FLOAT STRING SSTRING TIME DEGREE
             BOOLEAN typeStr);
use Astro::Time qw(str2turn);

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

  my $name = shift;
  my $value = shift;
  my $type = shift;

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

  return $self;
}

sub value {
  my $self = shift;
  if (@_) {$self->{VALUE} = shift }
  return $self->{VALUE};
}

sub type {
  my $self = shift;
  if (@_) { $self->{TYPE} = shift }
  return $self->{TYPE};
}

sub name {
  my $self = shift;
  if (@_) { $self->{NAME} = shift }
  return $self->{NAME};
}

sub function {
  my $self = shift;
  if (@_) { $self->{FUNC} = shift }
  return $self->{FUNC};
}

sub min {
  my $self = shift;
  if (@_) {
    my $type = $self->type();
    if (!($type == INTEGER || $type == FLOAT ||
          $type == TIME || $type == DEGREE)) {
      carp 'Cannot set minimum value for type ', typeStr($self->type()), "\n";
      return undef;
    }
    $self->{MIN} = shift;
  }
  return $self->{MIN};
}

sub max {
  my $self = shift;
  if (@_) {
    my $type = $self->type();
    if (!($type == INTEGER || $type == FLOAT ||
          $type == TIME || $type == DEGREE)) {
      carp 'Cannot set maximum value for type ', $self->type(), "\n";
      return undef;
    }
    $self->{MAX} = shift;
  }
  return $self->{MAX};
}

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

  my $name = $self->{NAME};

  carp "Could not parse \"$name $string\"";

}

1;