view release on metacpan or  search on metacpan

t/02_CallControl.t  view on Meta::CPAN

	my $mixinLoaded = eval { require mixin; return 1; };
	if($mixinLoaded) { mixin->import('Attribute::Method::Typeable'); }
	else { require base; base->import('Attribute::Method::Typeable'); }
}

use base qw{ClassA};

sub new :Constructor{ 
	my $proto = shift; 
	my $class = ref($proto) || $proto; 
	my $self = $class->SUPER::new();
	bless($self, $class); 
}

sub methodA : Public {
	my $self = shift;
	return $self->SUPER::methodA;
}

sub methodB : Public {
	my $self = shift;
	return $self->SUPER::methodB;
}

sub methodC : Public {
	my $self = shift;
	return $self->SUPER::methodC;
}


1;

package ClassC;


BEGIN {
	my $mixinLoaded = eval { require mixin; return 1; };