File Coverage

blib/lib/Class/MixinFactory.pm

Criterion	Covered	Total	%
statement	25	27	92.5
branch	7	8	87.5
condition			n/a
subroutine	8	8	100.0
pod	0	3	0.0
total	40	46	86.9

package Class::MixinFactory;

$VERSION = 0.92;

use strict;

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

use Class::MixinFactory::Factory;
sub base_factory_class { 'Class::MixinFactory::Factory' }

use Class::MixinFactory::HasAFactory;
sub hasa_factory_class { 'Class::MixinFactory::HasAFactory' }

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

sub import {
  my ( $facade, $import, @args ) = @_;

  return unless $import;
  my $target_class = ( caller )[0];

  no strict 'refs';

  if ( $import eq '-isafactory' ) {
    push @{"$target_class\::ISA"}, $facade->base_factory_class;

  } elsif ( $import eq '-hasafactory' ) {
    push @{"$target_class\::ISA"}, $facade->hasa_factory_class();

  } elsif ( $import eq '-isasubclass' ) {
    push @{"$target_class\::ISA"}, (shift @args)->class( @args );

  } else {
    require Exporter;
    goto &Exporter::import
  }
}

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

sub new {
  (shift)->base_factory_class->new( @_ )
}

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

1;

__END__