sub closeLogFiles {
    close $error_log_file;
    close $warning_log_file;
}

...

sub count { return shift->{count} }

...

sub type
{
	my $self = shift;

	$self->{type} = shift if @_;

	return $self->{type};
}