SledgeもNEXTでゴリッ

Perl 



package Proj::Pages::PC::Index;

use base qw(Proj::Pages::PC Proj::PagesPiece::Index);

use NEXT;

sub dispatch_index {

    $self->NEXT::dispatch_index();

}

1;



package Proj::Pages::Mobile::Index;

use base qw(Proj::Pages::Mobile Proj::PagesPiece::Index);

use NEXT;

sub dispatch_index {

    $self->NEXT::dispatch_index();

}

1;



package Proj::PagesPiece::Index

use NEXT;

sub dispatch_index {

    $self->NEXT::dispatch_index();

}

1;

普通にSUPERを使えという説もあり。
ってかNEXTを使うメリットがおもいうかばないわな。