view release on metacpan or  search on metacpan

lib/Affix.pm  view on Meta::CPAN

                    $_delay{$sub}[3] eq $_delay{$sub}[6] ? $_delay{$sub}[3] :
                        [ $_delay{$sub}[3], $_delay{$sub}[6] ]
                ),
                $sig, $ret
            );
            Carp::croak 'Undefined subroutine &' . $_delay{$sub}[6] unless $cv;
            delete $_delay{$sub} if defined $_delay{$sub};
            return &$cv;
        }

        #~ elsif ( my $code = $self->can('SUPER::AUTOLOAD') ) {
        #~ return goto &$code;
        #~ }
        elsif ( $sub =~ /DESTROY$/ ) {
            return;
        }
        Carp::croak("Undefined subroutine &$sub called");
    }
    #
    sub MODIFY_CODE_ATTRIBUTES {
        my ( $package, $code, @attributes ) = @_;