Add plugin_search_component function to WellWell::Core.

interchange · Oct 24, 2010 · f8e4d13 · f8e4d13
1 parent 278b1d0
commit f8e4d13
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/lib/WellWell/Core.pm b/lib/WellWell/Core.pm
@@ -22,6 +22,12 @@ package WellWell::Core;
 use strict;
 use warnings;
 
+use vars qw/@ISA @EXPORT_OK/;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT_OK = qw/plugin_search_component/;
+
 use Vend::Config;
 
 use WellWell::Cart;
@@ -79,6 +85,20 @@ sub plugin_scan_sub {
 				 "$plref->{$plugin}->{directory}/pages");
 		}
 	}
+
+	# store in catalog configuration
+	$Vend::Cfg->{PluginRepository} = $plref;
+}
+
+sub plugin_search_component {
+	my ($name) = @_;
+	my ($plugin, $ref);
+
+	while (($plugin, $ref) = each %{$Vend::Cfg->{PluginRepository}}) {
+		if (-f "$ref->{directory}/components/$name") {
+			return $ref;
+		}
+	}
 }
 
 sub hooks {