Changeset 3725

Timestamp:

12/28/07 15:08:24 (13 months ago)

Author:

tokuhirom

Message:

Archer:
- user's custom plugin
- added some basic test.
- revert some buggy code

Location:

lang/perl/Archer/trunk

Files:

• lib/Archer.pm (modified) (2 diffs)
• t/01_simple.t (added)
• t/01_simple.yaml (added)
• t/Plugin (added)
• t/Plugin/Dummy.pm (added)

lang/perl/Archer/trunk/lib/Archer.pm

@@ -84 +84 @@
         }
 
-        my $class = "Archer::Plugin::$plugin->{module}";
+        my $class = ($plugin->{module} =~ /^\+(.+)$/) ? $1 : "Archer::Plugin::$plugin->{module}";
         $self->log( 'debug' => "load $class" );
         $class->use or die $@;
@@ -107 +107 @@
     $parallel->use or die $@;
 
-    # construct elements
-    # this one doesn't work for me
-    # my $server_tree = $self->{config}->{projects}->{$self->{project}};
-    # but this one do
-    my $server_tree = $self->{ config }->{ projects };
+    my $server_tree = $self->{config}->{projects}->{$self->{project}};
 
     my @elems;