File Coverage

blib/lib/Class/MixinFactory/InsideOutAttr.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	4	6	66.6
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	32	37	86.4

package Class::MixinFactory::InsideOutAttr;

use strict;

########################################################################

sub import {
  my $methodmaker = shift;
  my $target_class = ( caller )[0];
  no strict 'refs';
  foreach my $attr ( @_ ) {
    *{ $target_class . '::' . $attr } = sub { inside_out( $attr, @_ ) }
  }
  defined *{ $target_class . '::' . 'DESTROY' }{CODE}
       or *{ $target_class . '::' . 'DESTROY' } = \&destroy;
}

my %inside_out;

sub inside_out {
  my $callee = shift;
  my $key = shift;
  if ( $key eq 'DESTROY' ) {
    delete $inside_out{ $callee };
  } elsif ( ! scalar @_ ) {
    $inside_out{ $callee }{ $key }
  } else {
    $inside_out{ $callee }{ $key } = shift;
  }
}

sub destroy {
  my $callee = shift;
  delete $inside_out{ $callee };
}

########################################################################

1;

__END__