File Coverage

blib/lib/Class/MixinFactory/HasAFactory.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	2	2	100.0
total	23	25	92.0

package Class::MixinFactory::HasAFactory;

use Class::MixinFactory::NEXT;
@ISA = 'Class::MixinFactory::NEXT';

use strict;

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

use Class::MixinFactory::InsideOutAttr 'mixin_factory_ref';

sub mixin_factory {
  my $self = shift;
  my $base_class = ref($self) || $self;
  $base_class->mixin_factory_ref() or $base_class->mixin_factory_ref(
      Class::MixinFactory::Factory->new( base_class => $base_class )
  )
}

sub class {
  (shift)->mixin_factory()->class( @_ )
}

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

1;

__END__