From c6e74a51a43bc5f9ac4bf7ad6a3fc7ea36a7961d Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sat, 18 Jun 2011 07:07:00 +0000
Subject: Example 2 added for threads testing

---
 lib/PerlDaemonModules/ExampleModule2.pm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 lib/PerlDaemonModules/ExampleModule2.pm

(limited to 'lib/PerlDaemonModules/ExampleModule2.pm')

diff --git a/lib/PerlDaemonModules/ExampleModule2.pm b/lib/PerlDaemonModules/ExampleModule2.pm
new file mode 100644
index 0000000..948f24a
--- /dev/null
+++ b/lib/PerlDaemonModules/ExampleModule2.pm
@@ -0,0 +1,31 @@
+# PerlDaemon (c) 2010, 2011, Dipl.-Inform. (FH) Paul Buetow (http://perldaemon.buetow.org)
+
+package PerlDaemonModules::ExampleModule;
+
+use strict;
+use warnings;
+
+sub new ($$$) {
+	my ($class, $conf) = @_;
+
+	my $self = bless { conf => $conf }, $class;
+
+        # Store some private module stuff
+        $self->{counter} = 0;
+
+        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};
+
+        # Calculate some private module stuff
+        my $count = ++$self->{counter};
+
+	$logger->logmsg("ExampleModule2 Test $count");
+}
+
+1;
-- 
cgit v1.2.3