Changeset 8512 for lang/perl/Punc

Timestamp:

03/30/08 20:45:13 (8 months ago)

Author:

mizzy

Message:

lang/perl/Punc: modify provider auto discovery mechanism.

Location:

lang/perl/Punc/trunk/lib/Punc

Files:

• Client/Response.pm (modified) (1 diff)
• Server/Module.pm (modified) (1 diff)
• Server/Module/Service.pm (modified) (1 diff)
• Server/Module/Service/RedHat.pm (modified) (1 diff)

lang/perl/Punc/trunk/lib/Punc/Client/Response.pm

@@ -1 +1 @@
 package Punc::Client::Response;
+
+use strict;
+use warnings;
 
 sub new {

lang/perl/Punc/trunk/lib/Punc/Server/Module.pm

@@ -4 +4 @@
 use warnings;
 use Pod::Text;
+use Module::Pluggable;
 
 sub new {
     my $class = shift;
+    $class->search_path( new => $class );
+
+    my @modules = $class->plugins;
+    for my $module ( @modules ) {
+        $module->require or die $@;
+        my $default_for = $module->default_for;
+        next unless $default_for;
+
+        my ( $fact ) = keys %$default_for;
+        if ( grep { `facter $fact` =~ /$_/i } @{ $default_for->{$fact} } ) {
+            $class = $module;
+        }
+    }
+
     bless {}, $class;
 }
+
+sub default_for { }
 
 sub exec {

lang/perl/Punc/trunk/lib/Punc/Server/Module/Service.pm

@@ -5 +5 @@
 use base qw( Punc::Server::Module );
 use UNIVERSAL::require;
-
-sub new {
-    my $class = shift;
-    my $provider = get_provider();
-    $class = "${class}::${provider}";
-    $class->require or die $@;
-    bless {}, $class;
-}
-
-my %provider_map = (
-    'centos|fedora' => 'RedHat',
-);
-
-sub get_provider {
-    my $os = `facter operatingsystem`;
-
-    for ( keys %provider_map ) {
-        return $provider_map{$_} if $os =~ /$_/i;
-    }
-
-    return 'RedHat' # default;
-}
 
 sub status {

lang/perl/Punc/trunk/lib/Punc/Server/Module/Service/RedHat.pm

@@ -1 +1 @@
 package Punc::Server::Module::Service::RedHat;
 
+use strict;
+use warnings;
 use base qw( Punc::Server::Module::Service );
+
+sub default_for {
+    return { 'operatingsystem' => [ 'redhat', 'fedora', 'centos' ] }
+}
 
 sub status {