File Coverage

blib/lib/CAD/Firemen/Option/Check.pm

Criterion	Covered	Total	%
statement	9	44	20.4
branch	0	12	0.0
condition			n/a
subroutine	3	10	30.0
pod	7	7	100.0
total	19	73	26.0

#!/usr/bin/perl
######################
#
#    Copyright (C) 2011  TU Clausthal, Institut fuer Maschinenwesen, Joachim Langenbach
#
#    This program is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program.  If not, see .
#
######################

use strict;
use warnings;

# Pod::Weaver infos
# ABSTRACT: An option check error

package CAD::Firemen::Option::Check;
{
  $CAD::Firemen::Option::Check::VERSION = '0.7.2';
}
use Exporter 'import';

sub new {
  my ($class) = shift;
  my (%params) = @_;

  # check parameters
  if(!exists($params{"name"})){
    $params{"name"} = "";
  }
  #if(!exists($params{"line"})){
  #  $params{"line"} = "";
  #}
  if(!exists($params{"errorString"})){
    $params{"errorString"} = "";
  }
  if(!exists($params{"case"})){
    $params{"case"} = 0;
  }

  my $self = {
    '_option' => $params{"name"},
    #'_line' => $params{"line"}
    '_errorString' => $params{"errorString"},
    '_case' => $params{"case"}
  };
  bless $self, $class;
  return $self;
}

sub setOption {
  my $self = shift;
  my $name = shift;
  if(!defined($name)){
    return 0;
  }
  $self->{'_option'} = $name;
  return 1;
}

sub option {
  my $self = shift;
  return $self->{'_option'};
}

sub setErrorString {
  my $self = shift;
  my $string = shift;
  if(!defined($string)){
    return 0;
  }
  $self->{'_errorString'} = $string;
  return 1;
}

sub errorString {
  my $self = shift;
  return $self->{'_errorString'};
}

sub setCase {
  my $self = shift;
  my $case = shift;
  if(!defined($case)){
    return 0;
  }
  $self->{'_case'} = $case;
  return 1;
}

sub case {
  my $self = shift;
  return $self->{'_case'};
}

1;

__END__