instance-refactored

[gitmo/Class-MOP.git] / examples / LazyClass.pod

diff --git a/examples/LazyClass.pod b/examples/LazyClass.pod
index 38482ec..566aacf 100644 (file)
--- a/examples/LazyClass.pod
+++ b/examples/LazyClass.pod
@@ -20,28 +20,29 @@ sub initialize_instance_slot {
 
        if ( exists $params->{$init_arg} ) {
                my $val = $params->{$init_arg};
-               my $meta_instance = $self->associated_class->get_meta_instance;
-               $meta_instance->set_slot_value_with_init( $instance, $self->slot_name, $val);
+               $self->associated_class
+                    ->get_meta_instance
+                    ->set_slot_value($instance, $self->name, $val);
        }
 }
 
 sub generate_accessor_method {
     my $attr = shift;
 
-       my $slot_name = $attr->slot_name;
+       my $attr_name = $attr->name;
        my $meta_instance = $attr->associated_class->get_meta_instance;
 
     sub {
         if (scalar(@_) == 2) {
-                       $meta_instance->set_slot_value_with_init( $_[0], $slot_name, $_[1] );
+                       $meta_instance->set_slot_value($_[0], $attr_name, $_[1]);
         }
         else {
-                       unless ( $meta_instance->slot_initialized( $_[0], $slot_name ) ) {
+                       unless ( $meta_instance->is_slot_initialized($_[0], $attr_name) ) {
                                my $value = $attr->has_default ? $attr->default($_[0]) : undef;
-                               $meta_instance->set_slot_value_with_init( $_[0], $slot_name, $value );
+                               $meta_instance->set_slot_value($_[0], $attr_name, $value);
             }
 
-            $meta_instance->get_slot_value( $_[0], $slot_name );
+            $meta_instance->get_slot_value($_[0], $attr_name);
         }
     };
 }
@@ -49,18 +50,18 @@ sub generate_accessor_method {
 sub generate_reader_method {
        my $attr = shift;
 
-       my $slot_name = $attr->slot_name;
+       my $attr_name = $attr->name;
        my $meta_instance = $attr->associated_class->get_meta_instance;
 
     sub {
         confess "Cannot assign a value to a read-only accessor" if @_ > 1;        
 
-               unless ( $meta_instance->slot_initialized( $_[0], $slot_name ) ) {
+               unless ( $meta_instance->is_slot_initialized($_[0], $attr_name) ) {
                        my $value = $attr->has_default ? $attr->default($_[0]) : undef;
-                       $meta_instance->set_slot_value_with_init( $_[0], $slot_name, $value );
+                       $meta_instance->set_slot_value($_[0], $attr_name, $value);
                }
 
-               $meta_instance->get_slot_value( $_[0], $slot_name );
+               $meta_instance->get_slot_value($_[0], $attr_name);
     };   
 }