File Coverage

blib/lib/Class/MixinFactory/NEXT.pm

Criterion	Covered	Total	%
statement	16	17	94.1
branch	4	4	100.0
condition	3	6	50.0
subroutine	3	3	100.0
pod	0	1	0.0
total	26	31	83.8

package Class::MixinFactory::NEXT;

use strict;

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

sub NEXT {
  my ( $self, $method, @args ) = @_;

  my $package = caller();
  my @classes = ref($self) || $self;

  my $found_current = 0;
  while ( my $class = shift @classes ) {
    if ( $class eq $package ) {
      $found_current = 1
    } elsif ( $found_current and my $sub = $class->can( $method ) ) {
      return &$sub( $self, @args );
    }
    no strict;
    unshift @classes, @{ $class . "::ISA" };
  }
  Carp::croak( "Can't find NEXT method for $method" );
}

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

1;

__END__