Changeset 20362

Timestamp:

10/01/08 15:52:55 (5 years ago)

Author:

yappo

Message:

flavor の DATA loader ついか

Location:

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

Files:

• Setup.pm (modified) (2 diffs)
• Setup/Flavor.pm (added)
• Setup/Flavor/Default.pm (modified) (1 diff)

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

@@ -171 +171 @@
 }
 
-sub class_data {
-    my($self, $class) = @_;
-    local $/;
-    eval "package $class; <DATA>";
-}
-
 sub create_directory {
     my $self = shift;
@@ -261 +255 @@
     eval " require $class "; Carp::croak $@ if $@;
 
-    my $data = $self->class_data($class);
-    Carp::croak "flavor template class is invalid: $class" unless $data;
-
-    my @template = YAML::Load(join '', $data);
+    my @template = $class->load_data;
     my $config = +{};
     for my $tmpl (@template) {

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

@@ -2 +2 @@
 use strict;
 use warnings;
-
+use base 'Module::Setup::Flavor';
 1;