[prev] [thread] [next] [lurker] [Date index for 2003/10/21]
Author: simon Date: 2003-10-21 09:11:45 +0100 (Tue, 21 Oct 2003) New Revision: 1454 Modified: trunk/siesta/lib/Siesta.pm Log: Remove old code Modified: trunk/siesta/lib/Siesta.pm =================================================================== --- trunk/siesta/lib/Siesta.pm 2003-10-21 08:04:09 UTC (rev 1453) +++ trunk/siesta/lib/Siesta.pm 2003-10-21 08:11:45 UTC (rev 1454) @@ -140,27 +140,9 @@ =cut -sub some_available_plugins { - my $self = shift; - my @dirs; +# provided by Module::Pluggable - foreach my $dir ( map { "$_/Siesta/Plugin" } @INC ) { - push @dirs, $dir if ( -e $dir && -d $dir ); - } - my @files = find( name => "*.pm", in => \@dirs ); - my @plugins; - - foreach my $file (@files) { - my ($name) = fileparse($file, qr{\.pm}); - push @plugins, $name; - } - - my %plugins = map { $_ => 1 } @plugins; - - return sort keys %plugins; -} - =head2 ->bake ( $template, $options ) $options, if present, is a hash reference
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52