1#!/usr/bin/perl 2# Copyright (C) 2009 Stefan Metzmacher <metze@samba.org> 3# Published under the GNU GPL, v3 or later. 4 5package Template; 6 7use strict; 8 9sub new($$) { 10 my ($classname) = @_; 11 my $self = { 12 classname => $classname 13 }; 14 bless $self; 15 return $self; 16} 17 18sub teardown_env($$) 19{ 20 my ($self, $envvars) = @_; 21 22 return 0; 23} 24 25sub getlog_env($$) 26{ 27 my ($self, $envvars) = @_; 28 29 return ""; 30} 31 32sub check_env($$) 33{ 34 my ($self, $envvars) = @_; 35 36 return 1; 37} 38 39sub setup_env($$$) 40{ 41 my ($self, $envname, $path) = @_; 42 my $envvars = undef; 43 44 return $envvars; 45} 46 47sub stop($) 48{ 49 my ($self) = @_; 50} 51 521; 53