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

	# Initialize attributes
     my $self = {
	_test_name          => undef,    # Name of the current test 
	_testcase_name      => undef,    # Name of the current testcase
	_test_statistics         => {},       # Statistics for the current test

   };

  bless $self, $class;     # Two-argument version used to support inheritance
  return $self;
}