Remove extra ; and $value in Meta::Recipe7
Brad Bowman [Wed, 28 Sep 2011 01:47:47 +0000 (11:47 +1000)]
Some lines had ;; at the end of lines.
is_slot_initialized had an unused $value parameter.

lib/Moose/Cookbook/Meta/Recipe7.pod

index 1034cd4..b3746e6 100644 (file)
@@ -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>