Remove extra ; and $value in Meta::Recipe7

[gitmo/Moose.git] / lib / Moose / Cookbook / Meta / Recipe7.pod

diff --git a/lib/Moose/Cookbook/Meta/Recipe7.pod b/lib/Moose/Cookbook/Meta/Recipe7.pod
index 1034cd4..b3746e6 100644 (file)
--- 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>