File Coverage

blib/lib/Function/ID.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	40	40	100.0

=for gpg
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

=head1 NAME

Function::ID - Variables to let functions know their names.

=head1 VERSION

This documentation describes version 0.02 of Function::ID, March 29, 2003.

=cut

use strict;
package Function::ID;
use Carp;
use vars '$VERSION';
$VERSION = 0.02;

use vars '$this_fn', '$this_function';

sub TIESCALAR
{
    my $class = shift;
    my $name = shift;
    return bless \$name, $class;
}

sub STORE
{
    my $self = shift;
    croak "Attempt to assign to \$$$self";
}

sub FETCH
{
    my $self = shift;
    my $callfunc = (caller 1)[3];
    $callfunc =~ s/.*::// if $$self eq 'this_fn';
    return $callfunc;
}



tie $this_fn,       __PACKAGE__, 'this_fn';
tie $this_function, __PACKAGE__, 'this_function';

sub import
{
    my $caller_pkg = caller;

    no strict 'refs';
    *{$caller_pkg."::this_fn"}       = \$this_fn;
    *{$caller_pkg."::this_function"} = \$this_function;
}

1;    # Modules must return true, for silly historical reasons.
__END__