Class::MixinFactory::NEXT - Superclass method redispatch for mixins


Class-MixinFactory documentation Contained in the Class-MixinFactory distribution.

Index


Code Index:

NAME

Top

Class::MixinFactory::NEXT - Superclass method redispatch for mixins

SYNOPSIS

Top

  use Class::MixinFactory::NEXT;

  package My::BaseClass;  
  sub foo { return "Foo Bar" }

  package My::Logging;
  sub foo { warn "Calling foo"; (shift)->NEXT('foo', @_) }

  package My::MixedClass;
  @ISA = ( 'My::Logging', 'My::BaseClass', 'Class::MixinFactory::NEXT'; );

  package main;
  print My::MixedClass->foo();




DESCRIPTION

Top

Enhanced superclass method dispatch for use inside mixin class methods. Allows mixin classes to redispatch to other classes in the inheritance tree without themselves inheriting from anything.

Public Methods

This package defines one method, named NEXT.

  $callee->NEXT( $method, @args );

Searches the inheritance tree of the callee until it finds the package from which NEXT is being called, and then continues searching until the next class which can perform the named method.

Unlike SUPER, this method will backtrack down the inheritance tree to find implementations later in the search path even if they are on a separate branch.

SEE ALSO

Top

This class is automatically included by Class::MixinFactory.

This is similar to the functionality provided by NEXT::ACTUAL, but without using AUTOLOAD; for a more generalized approach to this issue see NEXT.

For distribution, installation, support, copyright and license information, see Class::MixinFactory::ReadMe.


Class-MixinFactory documentation Contained in the Class-MixinFactory distribution.

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__