diff options
| author | Paul Buetow <paul@buetow.org> | 2011-05-13 14:21:40 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-05-13 14:21:40 +0000 |
| commit | 202e193921617dc4ebbb812b88b3173706243c6b (patch) | |
| tree | 4cd3a050c4bf8092b2a85de62824da7420eee59a | |
| parent | 120ea2c4fba07d81e17d1d432c1543f5d3ca2f25 (diff) | |
added an example module
| -rw-r--r-- | lib/PerlDaemonModules/ExampleModule.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/PerlDaemonModules/ExampleModule.pm b/lib/PerlDaemonModules/ExampleModule.pm new file mode 100644 index 0000000..75708f2 --- /dev/null +++ b/lib/PerlDaemonModules/ExampleModule.pm @@ -0,0 +1,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; |
