lib/PerlDaemonModules/ExampleModule.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package PerlDaemonModules::ExampleModule;

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

	return bless { conf => $conf }, $class;
}

sub do ($) {
	my $self = shift;
	my $conf = $self->{conf};
	my $logger = $conf->{logger};

	$logger->logmsg('ExampleModule Test');
}

1;