Changeset 20361

Timestamp:

10/01/08 15:44:23 (5 years ago)

Author:

yappo

Message:

flavor 作成時に author と email を聞くというのと、Plugin でも聞けるようにtrigger point追加

Location:

lang/perl/Module-Setup/trunk

Files:

• Makefile.PL (modified) (1 diff)
• lib/Module/Setup.pm (modified) (4 diffs)
• lib/Module/Setup/Flavor/Default.pm (modified) (1 diff)
• lib/Module/Setup/Plugin.pm (modified) (2 diffs)

lang/perl/Module-Setup/trunk/Makefile.PL

@@ -12 +12 @@
 requires 'Module::Collect';
 requires 'Pod::Usage';
+requires 'Scalar::Util';
 requires 'Template';
 requires 'YAML';

lang/perl/Module-Setup/trunk/lib/Module/Setup.pm

@@ -18 +18 @@
 use YAML ();
 
-use Data::Dumper;
 
 sub new {
@@ -35 +34 @@
     my($self, $msg, $default) = @_;
     return $default unless $self->has_term;
-    prompt($msg, $default);    
+    prompt($msg, $default);
 }
 
@@ -156 +155 @@
             Carp::croak $@ if $@;
         }
-        $loaded_plugin{$pkg} = $pkg->new( config => $config );
+        $loaded_plugin{$pkg} = $pkg->new( context => $self, config => $config );
     }
 }
@@ -282 +281 @@
         push @{ $config->{plugins} }, @{ $options->{plugins} };
     }
+    $config->{plugins} ||= [];
+
+    # load plugins
+    $self->load_plugins(+{
+        %{ $config },
+        %{ $options },
+        plugins => $config->{plugins},
+    });
+
+    # ask author and mail
+    $config->{author} ||= 'Default Name';
+    $config->{author} = $self->dialog("Your name: ", $config->{author});
+
+    $config->{email} ||= 'default {at} example.com';
+    $config->{email} = $self->dialog("Your email: ", $config->{email});
+
+    $self->call_trigger( befor_dump_config => $config );
+
+    # reset triggers # this is bad hack
+    delete $self->{__triggers};
+    delete $self->{_class_trigger_results};
 
     # save config

lang/perl/Module-Setup/trunk/lib/Module/Setup/Flavor/Default.pm

@@ -185 +185 @@
     - Template
     - Test::Makefile
+

lang/perl/Module-Setup/trunk/lib/Module/Setup/Plugin.pm

@@ -3 +3 @@
 use warnings;
 
-sub base_class { shift->{base_class} }
+use Scalar::Util qw(weaken);
 
 sub new {
     my($class, %args) = @_;
-    $args{base_class} ||= 'Module::Setup';
     my $self = bless { %args }, $class;
+    weaken $self->{context};
     $self->register;
     $self;
@@ -17 +17 @@
 sub add_trigger {
     my($self, @args) = @_;
-    $self->base_class->add_trigger(@args);
+    $self->{context}->add_trigger(@args);
 }