foo

[gitmo/Class-MOP.git] / lib / Class / MOP / Class / Immutable.pm

diff --git a/lib/Class/MOP/Class/Immutable.pm b/lib/Class/MOP/Class/Immutable.pm
index bbe5429..172b0b4 100644 (file)
--- a/lib/Class/MOP/Class/Immutable.pm
+++ b/lib/Class/MOP/Class/Immutable.pm
@@ -148,6 +148,25 @@ Class::MOP::Class::Immutable - An immutable version of Class::MOP::Class
 
 =head1 SYNOPSIS
 
+  package Point;
+  use metaclass;
+  
+  __PACKAGE__->meta->add_attribute('x' => (accessor => 'x', default => 10));
+  __PACKAGE__->meta->add_attribute('y' => (accessor => 'y'));
+  
+  sub new {
+      my $class = shift;
+      $class->meta->new_object(@_);
+  }
+  
+  sub clear {
+      my $self = shift;
+      $self->x(0);
+      $self->y(0);    
+  }
+  
+  __PACKAGE__->meta->make_immutable();  # close the class
+
 =head1 DESCRIPTION
 
 Class::MOP offers many benefits to object oriented development but it 
@@ -183,6 +202,9 @@ to this class.
 
 =item B<make_metaclass_immutable>
 
+The arguments to C<Class::MOP::Class::make_immutable> are passed 
+to this method, which 
+
 =over 4
 
 =item I<inline_accessors (Bool)>