use Scalar::Util 'weaken', 'blessed';
-our $VERSION = '0.03';
+our $VERSION = '0.04';
our $AUTHORITY = 'cpan:STEVAN';
sub meta {
bless $instance, $metaclass->name;
}
-sub get_all_slot_values {
- my ($self, $instance) = @_;
- my $class = $self->associated_metaclass;
- my %map;
-
- for my $attr ($class->compute_all_applicable_attributes) {
- my $name = $attr->name;
- $map{$name} = $self->get_slot_value($instance, $name)
- if $self->is_slot_initialized($instance, $name);
- }
-
- return \%map;
-}
-
# inlinable operation snippets
sub is_inlinable { 1 }
=item B<set_slot_value ($instance_structure, $slot_name, $value)>
-=item B<get_all_slot_values ($instance_structure)>
-
=item B<initialize_slot ($instance_structure, $slot_name)>
=item B<deinitialize_slot ($instance_structure, $slot_name)>