Class::OOorNO can give your module classic and OO interfaces.
STATUS
This is a developer's release, and is not intended for use in the public sector. This code is made available for developers who wish to aid in the furthering of the code.
This is not a registered module in the CPAN module list. It is not part of the CPAN yet.
SYNOPSIS
Functional programming interface
package Your::Class;
use Class::OOorNO qw( coerce_array );
Object-Oriented programming interface
package Your::Class;
use Class::OOorNO;
my($obj) = Class::OOorNO->new();
Class Inheritance
package Your::Class;
use vars qw( @ISA );
use Class::OOorNO;
@ISA = qw( Class::OOorNO );
Product's homepage
Requirements:
· Perl