diff options
Diffstat (limited to 'lib/PerlDaemonModules/ExampleModule.pm')
| -rw-r--r-- | lib/PerlDaemonModules/ExampleModule.pm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lib/PerlDaemonModules/ExampleModule.pm b/lib/PerlDaemonModules/ExampleModule.pm index e9cf4b8..4e7d1c4 100644 --- a/lib/PerlDaemonModules/ExampleModule.pm +++ b/lib/PerlDaemonModules/ExampleModule.pm @@ -1,4 +1,4 @@ -# PerlDaemon (c) 2010, 2011, Dipl.-Inform. (FH) Paul Buetow (http://perldaemon.buetow.org) +# PerlDaemon (c) 2010, 2011, 2015, Dipl.-Inform. (FH) Paul Buetow (http://perldaemon.buetow.org) package PerlDaemonModules::ExampleModule; @@ -6,26 +6,26 @@ use strict; use warnings; sub new ($$$) { - my ($class, $conf) = @_; + my ($class, $conf) = @_; - my $self = bless { conf => $conf }, $class; + my $self = bless { conf => $conf }, $class; - # Store some private module stuff - $self->{counter} = 0; + # Store some private module stuff + $self->{counter} = 0; - return $self; + return $self; } # Runs periodically in a loop (set interval in perldaemon.conf) sub do ($) { - my $self = shift; - my $conf = $self->{conf}; - my $logger = $conf->{logger}; + my $self = shift; + my $conf = $self->{conf}; + my $logger = $conf->{logger}; - # Calculate some private module stuff - my $count = ++$self->{counter}; + # Calculate some private module stuff + my $count = ++$self->{counter}; - $logger->logmsg("ExampleModule Test $count"); + $logger->logmsg("ExampleModule Test $count"); } 1; |
