package mcg_util;

sub new 
{
	my $class = shift;
   	my $self  = {};
 	$self->{reader}			= undef;
 
    bless ($self, $class);
    return $self;
}

#accessor method for Testcase reader
sub reader 
{
	my $self = shift;
    if (@_) { $self->{reader} = $shift }
    return $self->{reader};
}

sub run
{
my %params = (
                'reader'    => $self->{reader},
                @_,
  );

  my $enable_running_mcg = $params{'reader'}->getTestCaseParam("enable_running_mcg");
}