rev 1452 - trunk/siesta/lib

[prev] [thread] [next] [lurker] [Date index for 2003/10/21]

From: simon
Subject: rev 1452 - trunk/siesta/lib
Date: 09:02 on 21 Oct 2003
Author: simon
Date: 2003-10-21 09:02:54 +0100 (Tue, 21 Oct 2003)
New Revision: 1452

Modified:
   trunk/siesta/lib/Siesta.pm
Log:
Switch to using Module::Pluggable


Modified: trunk/siesta/lib/Siesta.pm
===================================================================
--- trunk/siesta/lib/Siesta.pm	2003-10-21 08:02:17 UTC (rev 1451)
+++ trunk/siesta/lib/Siesta.pm	2003-10-21 08:02:54 UTC (rev 1452)
@@ -9,11 +9,17 @@
 use IO::File;
 use File::Find::Rule qw/find/;
 use File::Basename qw/fileparse/;
+use File::Spec::Functions qw(catdir);
+use Module::Pluggable (sub_name => 'available_plugins', search_path => 
+                        [catdir(qw(Siesta Plugin)), catdir(qw(Acme Siesta Plugin))]);
+use base qw(Module::Pluggable);
 use UNIVERSAL::require;
 use Template;
 
 use Carp qw(croak);
 
+
+
 =head1 NAME
 
 Siesta - the Siesta mailing list manager.
@@ -134,7 +140,7 @@
 
 =cut
 
-sub available_plugins {
+sub some_available_plugins {
     my $self = shift;
     my @dirs;
 

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52