Changeset 745

Timestamp:

05/15/06 18:03:03

Author:

miyagawa

Message:

allow plugins/Filter/Bar.pm directory structure.
http://d.hatena.ne.jp/fuba/20060514/1147579162#c

Files:

• trunk/plagger/lib/Plagger.pm (modified) (3 diffs)

trunk/plagger/lib/Plagger.pm

@@ -159 +159 @@
-                $ent = File::Spec->catfile($path, $ent);
-                if (-f $ent && $ent =~ /\.pm$/) {
-
-
-
-
+
-                } elsif (-d $ent) {
-                    my $lib = File::Spec->catfile($ent, "lib");
@@ -168 +165 @@
-                        $self->log(debug => "Add $lib to INC path");
-                        unshift @INC, $lib;
+                    } else {
+                        my $rule = File::Find::Rule->new;
+                           $rule->file;
+                           $rule->name('*.pm');
+                        my @modules = $rule->in($ent);
+                        for my $module (@modules) {
+                            $self->add_plugin_path($module);
+                        }
-                    }
-                }
@@ -177 +182 @@
-        $self->load_plugin($plugin) unless $plugin->{disable};
-    }
+}
+
+sub add_plugin_path {
+    my($self, $file) = @_;
+
+    my $pkg = $self->extract_package($file)
+        or die "Can't find package from $file";
+    $self->plugins_path->{$pkg} = $file;
+    $self->log(debug => "$file is added as a path to plugin $pkg");
-}
-