summaryrefslogtreecommitdiff
path: root/lib/PerlDaemonModules
diff options
context:
space:
mode:
Diffstat (limited to 'lib/PerlDaemonModules')
-rw-r--r--lib/PerlDaemonModules/ExampleModule.pm24
-rw-r--r--lib/PerlDaemonModules/ExampleModule2.pm24
2 files changed, 24 insertions, 24 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;
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;