CURRENT - Alias of current class

    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();

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.

Yuji Tamashiro, <yuji@tamashiro.org>

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.