Skip Menu |

This queue is for tickets about the MooseX-Role-BuildInstanceOf CPAN distribution.

Report information
The Basics
Id: 64745
Status: new
Priority: 0/
Queue: MooseX-Role-BuildInstanceOf

People
Owner: Nobody in particular
Requestors: abraxxa [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 0.07
Fixed in: (no value)



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)) {