# Get template object my $tobj = $self->_getTemplateObject(); # Set template variables my $vars = {Testrun => $self, Environment => $environment, RunData => $rundata, Filter => $self->getFilterObject(), }; # If file option was supplied, then output to a file if ($file) { #getTemplateFile - access the template file in correct format if ($tobj->process($self->_getTemplateFile(), $vars, $file)) { return; } }