File Coverage

blib/lib/Register.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch	1	4	25.0
condition			n/a
subroutine	4	5	80.0
pod	0	2	0.0
total	17	31	54.8

package Register;
require Exporter;

@ISA = qw (Exporter);
use vars qw($VERSION);

$Register::VERSION="0.0.2";

sub checkDef
{
   my ($type, $name, $value, $def)      = @_;

   if (!defined $value)
   {
      return ($def);
   }
   else
   {
      return ($value);
   }
}

sub checkReq
{
   my ($type, $name, $value)    = @_;

   if (! defined $value)
   {
      printf "ERROR:\n";
      printf "LOCATION: \<$type\>\n";
      printf "CAUSE: parameter \<$name\> required !!!\n";
      exit (1);
   } else {
      return ($value);
   }
}

use Register::System;
use Register::Generic;
1;
__END__