rev 1457 - trunk/siesta/lib

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

Author: richardc
Date: 2003-10-21 10:28:05 +0100 (Tue, 21 Oct 2003)
New Revision: 1457

Modified:
   trunk/siesta/lib/Siesta.pm
Log:
unbreak 20fullsend.t


Modified: trunk/siesta/lib/Siesta.pm
===================================================================
--- trunk/siesta/lib/Siesta.pm	2003-10-21 09:19:55 UTC (rev 1456)
+++ trunk/siesta/lib/Siesta.pm	2003-10-21 09:28:05 UTC (rev 1457)
@@ -11,7 +11,7 @@
 use File::Basename qw/fileparse/;
 use File::Spec::Functions qw(catdir);
 use Module::Pluggable
-  sub_name    => 'available_plugins',
+  sub_name    => '_plugins',
   search_path => [ catdir(qw(Siesta Plugin)),
                    catdir(qw(Acme Siesta Plugin)),
                  ];
@@ -143,7 +143,10 @@
 
 =cut
 
-# provided by Module::Pluggable
+sub available_plugins {
+    my $self = shift;
+    return map { m/([^:]+)$/; $1 } $self->_plugins;
+}
 
 
 =head2 ->bake ( $template, $options )

• rev 1457 - trunk/siesta/lib richardc 10:28 on 21 Oct 2003

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