NAME

CURRENT - Alias of current class

SYNOPSIS

package LONG::LONG::LONG::LONG::Class;

require CURRENT;

sub _my_method {}

$self->CURRENT::_my_method();
# same as
$self->LONG::LONG::LONG::LONG::Class::_my_method();

DESCRIPTION

CURRENT.pm adds class CURRENT. When a method m is called as $self->CURRENT::m, __PACKAGE__::m is called.

Note that CURRENT only supports calling method.

This helps calling a local method in a long name class.

CURRENT.pm supports AUTOLOAD, also.

AUTHOR

Yuji Tamashiro, <yuji@tamashiro.org>

COPYRIGHT AND LICENSE

Copyright (C) 2007 by Yuji Tamashiro

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.