From: Brad Bowman <bsb@strategicdata.com.au>
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<slower>