From: Yuval Kogman Date: Sat, 12 Apr 2008 14:51:30 +0000 (+0000) Subject: fix typo in initialize_body method X-Git-Tag: 0_55~238 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=415e6f850fac564bf8445357a23a8d770df62e07;p=gitmo%2FMoose.git fix typo in initialize_body method --- diff --git a/lib/Moose/Meta/Method/Constructor.pm b/lib/Moose/Meta/Method/Constructor.pm index 6fa9719..c6a7b37 100644 --- a/lib/Moose/Meta/Method/Constructor.pm +++ b/lib/Moose/Meta/Method/Constructor.pm @@ -36,7 +36,7 @@ sub new { # needed weaken($self->{'$!associated_metaclass'}); - $self->intialize_body; + $self->initialize_body; return $self; } @@ -51,7 +51,7 @@ sub associated_metaclass { (shift)->{'$!associated_metaclass'} } ## method -sub intialize_body { +sub initialize_body { my $self = shift; # TODO: # the %options should also include a both @@ -315,7 +315,7 @@ not particularly useful. =item B -=item B +=item B =item B diff --git a/lib/Moose/Meta/Method/Destructor.pm b/lib/Moose/Meta/Method/Destructor.pm index 2e98191..481a85c 100644 --- a/lib/Moose/Meta/Method/Destructor.pm +++ b/lib/Moose/Meta/Method/Destructor.pm @@ -33,7 +33,7 @@ sub new { # needed weaken($self->{'$!associated_metaclass'}); - $self->intialize_body; + $self->initialize_body; return $self; } @@ -47,7 +47,7 @@ sub associated_metaclass { (shift)->{'$!associated_metaclass'} } sub is_needed { defined $_[0]->{'&!body'} ? 1 : 0 } -sub intialize_body { +sub initialize_body { my $self = shift; # TODO: # the %options should also include a both @@ -108,7 +108,7 @@ not particularly useful. =item B -=item B +=item B =item B