From f01a1b81735086acb446d5c4b67fbdb406e6e6f2 Mon Sep 17 00:00:00 2001 From: "Paul Buetow (europa)" Date: Sun, 17 May 2015 10:11:18 +0100 Subject: retab and restyle the source --- lib/PerlDaemonModules/ExampleModule2.pm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'lib/PerlDaemonModules/ExampleModule2.pm') 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; -- cgit v1.2.3