NAME

Devel::Callsite - Get current callsite

SYNOPSIS

use Devel::Callsite;
sub $site { return callsite() };
print $site->(), "\n"; # prints one number
print $site->(), "\n"; # prints a different number

DESCRIPTION

This function returns the callsite (a number) one level up from where it was called. See the tests for an example. It's useful for functions that need to uniquely know where they were called, such as Every::every() (see CPAN for that module).

HISTORY

Written by Ben Morrow on perl5-porters. CPAN-ified by Ted Zlatanov.

AUTHOR

Ben Morrow <ben@morrow.me.uk> Ted Zlatanov <tzz@lifelogs.com>