NAME Class - A Generic Object Class to Inherit From SYNOPSIS use parent qw( Class ); sub init { my $self = shift( @_ ); return( $self->SUPER::init( @_ ) ); } Support for legacy code: package Foo; use Class; print CLASS; # Foo print "My class is $CLASS\n"; # My class is Foo sub bar { 23 } print CLASS->bar; # 23 print $CLASS->bar; # 23 VERSION v1.1.2 DESCRIPTION This package inherits all its features from Module::Generic and provides a generic framework of methods to inherit from and speed up development. It also provide support for legacy code whereby "CLASS" and $CLASS are both synonyms for "__PACKAGE__". Easier to type. $CLASS has the additional benefit of working in strings. "Class" is a constant, not a subroutine call. $CLASS is a plain variable, it is not tied. There is no performance loss for using "Class" over "__PACKAGE__" except the loading of the module. (Thanks Juerd) SEE ALSO Class::Stack, Class::String, Class::Number, Class::Boolean, Class::Assoc, Class::File, Class::DateTime, Class::Exception, Class::Finfo, Class::NullChain AUTHOR From February 2022 onward: Jacques Deguest Michael G Schwern COPYRIGHT & LICENSE Copyright (c) 2021 DEGUEST Pte. Ltd. You can use, copy, modify and redistribute this package and associated files under the same terms as Perl itself.