From 120ea2c4fba07d81e17d1d432c1543f5d3ca2f25 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Fri, 13 May 2011 14:19:38 +0000 Subject: s/RunModule/RunModules/g --- lib/PerlDaemon/PerlDaemon.pl | 4 ++-- lib/PerlDaemon/RunModule.pm | 17 ----------------- lib/PerlDaemon/RunModules.pm | 17 +++++++++++++++++ 3 files changed, 19 insertions(+), 19 deletions(-) delete mode 100644 lib/PerlDaemon/RunModule.pm create mode 100644 lib/PerlDaemon/RunModules.pm (limited to 'lib/PerlDaemon') diff --git a/lib/PerlDaemon/PerlDaemon.pl b/lib/PerlDaemon/PerlDaemon.pl index 240134d..3e3038b 100644 --- a/lib/PerlDaemon/PerlDaemon.pl +++ b/lib/PerlDaemon/PerlDaemon.pl @@ -9,7 +9,7 @@ use Shell qw(mv); use POSIX qw(setsid strftime); use PerlDaemon::Logger; -use PerlDaemon::RunModule; +use PerlDaemon::RunModules; $| = 1; @@ -142,7 +142,7 @@ sub alive ($) { sub daemonloop ($) { my $conf = shift; - my $rmodule = PerlDaemon::RunModule->new($conf); + my $rmodule = PerlDaemon::RunModules->new($conf); my $loopinterval = $conf->{'daemon.loopinterval'}; my $loop = shift; diff --git a/lib/PerlDaemon/RunModule.pm b/lib/PerlDaemon/RunModule.pm deleted file mode 100644 index 4f2c492..0000000 --- a/lib/PerlDaemon/RunModule.pm +++ /dev/null @@ -1,17 +0,0 @@ -package PerlDaemon::RunModule; - -sub new ($$$) { - my ($class, $conf) = @_; - - return bless { conf => $conf }, $class; -} - -sub do ($) { - my $self = shift; - my $conf = $self->{conf}; - my $logger = $conf->{logger}; - - $logger->logmsg('Test'); -} - -1; diff --git a/lib/PerlDaemon/RunModules.pm b/lib/PerlDaemon/RunModules.pm new file mode 100644 index 0000000..e806ca1 --- /dev/null +++ b/lib/PerlDaemon/RunModules.pm @@ -0,0 +1,17 @@ +package PerlDaemon::RunModules; + +sub new ($$$) { + my ($class, $conf) = @_; + + return bless { conf => $conf }, $class; +} + +sub do ($) { + my $self = shift; + my $conf = $self->{conf}; + my $logger = $conf->{logger}; + + $logger->logmsg('Test'); +} + +1; -- cgit v1.2.3