Subject: | normalize_{$prefix}target should be normalize_{$prefix}_target according to pod |
this is the patch:
[ahartmai@ahartmai-nb Catalyst-Controller-DBIC-API-2.002003 (master)]$
diff -u
/home/ahartmai/perl5/perlbrew/perls/perl-5.12.2/lib/site_perl/5.12.2/MooseX/Role/BuildInstanceOf.pm
foo
---
/home/ahartmai/perl5/perlbrew/perls/perl-5.12.2/lib/site_perl/5.12.2/MooseX/Role/BuildInstanceOf.pm
2011-01-13 14:59:22.882812001 +0100
+++ foo 2011-01-13 15:00:26.702812001 +0100
@@ -89,7 +89,7 @@
},
);
- method "normalize_".$prefix."target" => sub {
+ method "normalize_".$prefix."_target" => sub {
my $self = shift @_;
my $class = ref $self ? ref $self:$self;
my $target = $parameters->target;
@@ -106,7 +106,7 @@
};
method "_build_". $prefix ."_class" => sub {
- my $normalize_target = "normalize_".$prefix."target";
+ my $normalize_target = "normalize_".$prefix."_target";
return shift->$normalize_target;
};
@@ -159,7 +159,7 @@
my $instance = $self->$create($self->$merge);
- my $normalize_target = "normalize_".$prefix."target";
+ my $normalize_target = "normalize_".$prefix."_target";
my $target_class = $self->$normalize_target;
if($instance->isa($target_class)) {