From: Brad Bowman Date: Wed, 28 Sep 2011 01:47:47 +0000 (+1000) Subject: Remove extra ; and $value in Meta::Recipe7 X-Git-Tag: 2.0301~17 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=251c65399c9432e8431e2752f063d1870c502bd8;p=gitmo%2FMoose.git Remove extra ; and $value in Meta::Recipe7 Some lines had ;; at the end of lines. is_slot_initialized had an unused $value parameter. --- diff --git a/lib/Moose/Cookbook/Meta/Recipe7.pod b/lib/Moose/Cookbook/Meta/Recipe7.pod index 1034cd4..b3746e6 100644 --- a/lib/Moose/Cookbook/Meta/Recipe7.pod +++ b/lib/Moose/Cookbook/Meta/Recipe7.pod @@ -59,17 +59,17 @@ __END__ sub deinitialize_slot { my ( $self, $instance, $slot_name ) = @_; - delete *$instance->{$slot_name};; + delete *$instance->{$slot_name}; } sub is_slot_initialized { - my ( $self, $instance, $slot_name, $value ) = @_; - exists *$instance->{$slot_name};; + my ( $self, $instance, $slot_name ) = @_; + exists *$instance->{$slot_name}; } sub weaken_slot_value { my ( $self, $instance, $slot_name ) = @_; - weaken *$instance->{$slot_name};; + weaken *$instance->{$slot_name}; } sub inline_create_instance { @@ -143,7 +143,7 @@ need to change this to expect a glob reference instead. sub get_slot_value { my ( $self, $instance, $slot_name ) = @_; - *$instance->{$slot_name};; + *$instance->{$slot_name}; } This level of indirection probably makes our instance class I