#!/usr/bin/perl

use strict;
use warnings;

{ 
    package MyObject::Base;

    sub NEXT {
        my ($self, @args) = @_;
        my ($package, $filename, $subroutine);
        my $i = 1;
        ($package, $filename, undef, $subroutine) = caller($i);
        while ($subroutine eq '(eval)' || $filename eq '(eval)') {
            ($package, $filename, undef, $subroutine) = caller(++$i);
        }
        print "NEXT was called from : $subroutine\n";
    }

    package MyObject;
    our @ISA = ('MyObject::Base');
    sub compile1 { (shift)->NEXT(@_) }
    sub compile2 { 
        eval { 
            (shift)->NEXT(@_) 
        }
    }
    sub compile3 { 
        eval {
            eval { 
                (shift)->NEXT(@_) 
            }
        }
    }    
    sub compile4 { my $self = shift; eval '$self->NEXT(@_)' }    
    sub compile5 { my $self = shift; eval 'eval "$self->NEXT(\@_)"' }  
    sub compile6 { 
        my $self = shift;
        eval {
            eval {
                eval { 
                    eval 'eval { eval "\$self->NEXT(\@_)" }'
                }
            }
        }
    }         
}

MyObject->compile1();
MyObject->compile2();
MyObject->compile3();
MyObject->compile4();
MyObject->compile5();
MyObject->compile6();

__OUTPUT__
NEXT was called from : MyObject::compile1
NEXT was called from : MyObject::compile2
NEXT was called from : MyObject::compile3
NEXT was called from : MyObject::compile4
NEXT was called from : MyObject::compile5
NEXT was called from : MyObject::compile6