diff options
| author | Paul Buetow (europa) <paul@buetow.org> | 2015-05-17 10:11:18 +0100 |
|---|---|---|
| committer | Paul Buetow (europa) <paul@buetow.org> | 2015-05-17 10:11:18 +0100 |
| commit | f01a1b81735086acb446d5c4b67fbdb406e6e6f2 (patch) | |
| tree | 1f38b0cdd3c2c2f4d884077c91a04a4e19f19acb /lib/PerlDaemonModules/ExampleModule2.pm | |
| parent | d6f78c532c2c23b1203b1c0332de89a8c8c53d04 (diff) | |
retab and restyle the source
Diffstat (limited to 'lib/PerlDaemonModules/ExampleModule2.pm')
| -rw-r--r-- | lib/PerlDaemonModules/ExampleModule2.pm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lib/PerlDaemonModules/ExampleModule2.pm b/lib/PerlDaemonModules/ExampleModule2.pm index 74fdd05..2acf221 100644 --- a/lib/PerlDaemonModules/ExampleModule2.pm +++ b/lib/PerlDaemonModules/ExampleModule2.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::ExampleModule2; @@ -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("ExampleModule2 Test $count"); + $logger->logmsg("ExampleModule2 Test $count"); } 1; |
