Re: Simple question about Inside-Out objects

[Herkum]

In a inside-out implementation, you need to a way to identify the object that you are working with. The only difference between different objects of the same class are their addresses. by using refaddr we can uniquely identify our objects and hidden the variables in each object from each other.

A very short example

package Foo::Bar;

use Scalar::Util qw(refaddr);

my %var;

sub get_var {
  my $self = shift;

  return $var{ refaddr( $self ) };
}

sub set_var {
  my $self  = shift;
  my $value = shift;

  $var{ refaddr( $self ) } = $value;
  return 1;
}

# Not completely sure that this is correct.
sub new {
  my $class = shift;

  return bless \my($anon_scalar), $class;
}

Take a look at Class::Std or Damian Conway's Best Practices on the concept.

[xdg]

Take a look at Class::Std

No, please don't. Look at Object::InsideOut or Class::InsideOut instead. For a full review of the technique, see my YAPC::NA 2006 presentation, Eversion 101.

[Herkum]

I have looked at both of them and the reason that I don't use them is the same reason that I don't use a lot of other 'good' modules, poor documentation.

While I understand that Class::Std is not the perfect for solving all the problems for InsideOut objects. The concepts well explained and the documentation is easier to understand. That is why I recommended it to blazar

[xdg]

the reason that I don't use them is the same reason that I don't use a lot of other 'good' modules, poor documentation

I'd welcome any constructive feedback on the documentation of Class::InsideOut. I've tried hard to make that documentation simple for those who just want it to work and keep separate the theoretical underpinnings and complexities. I'm sorry that you didn't find it to be helpful and would like to hear your thoughts on what would make it more useful to you.

I can be reached via dagolden at cpan dot org.