view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

        $self->{admin}->init;
        @_ = ($class, _self => $self);
        goto &{"$self->{name}::import"};
    }

    *{caller(0) . "::AUTOLOAD"} = $self->autoload;

    # Unregister loader and worker packages so subdirs can use them again
    delete $INC{"$self->{file}"};
    delete $INC{"$self->{path}.pm"};
}

 view release on metacpan or  search on metacpan

Log.pm  view on Meta::CPAN

        my($self) = @_;

	## CGI::Log->_find_self(\$self);		## we have "found outselves" (what object
							## reference we are, by the time we get here.)

        my @call = caller(1);
        my $line = $call[2];
        my $cnt = 2;

        my @stack;

        while (defined($call[0]))
        {
                my $caller = $call[0];
                @call = caller($cnt);
                $call[3] = $caller if (!defined($call[3]));
                unshift(@stack, $call[3] . ":" . $line);
                $line = $call[2];
                $cnt++;
        }

 view release on metacpan or  search on metacpan

MxScreen/Tie/Stdout.pm  view on Meta::CPAN

	#

	my ($pkg, $filename, $line);
	my $i = 0;
	do {
		($pkg, $filename, $line) = caller($i++)
	} while ($pkg eq __PACKAGE__ || $pkg eq 'Tie::Handle');

	#
	# Strip all trailing "\n" before logging.
	#

 view release on metacpan or  search on metacpan

lib/CGI/Out.pm  view on Meta::CPAN

	# idiom.com specific feature:
	$pwd = "$Chroot::has_chrooted$pwd"
		if defined $Chroot::has_chrooted;

	$usedby = join(':',(caller(2))[1,2]);

	&error("Cannot combine CGI::Out ($usedby) and CGI::Wrap ($CGI::Wrap::usedby)")
		if defined @CGI::Wrap::EXPORT;
}