class::inner(3pm) [debian man page]
Class::Inner(3pm) User Contributed Perl Documentation Class::Inner(3pm) NAME
Class::Inner - A perlish implementation of Java like inner classes SYNOPSIS
use Class::Inner; my $object = Class::Inner->new( parent => 'ParentClass', methods => { method => sub { ... } }, }, constructor => 'new', args => [@constructor_args], ); DESCRIPTION
Yet another implementation of an anonymous class with per object overrideable methods, but with the added attraction of sort of working dispatch to the parent class's method. METHODS new HASH Takes a hash like argument list with the following keys. parent The name of the parent class. Note that you can only get single inheritance with this or SUPER won't work. methods A hash, keys are method names, values are CODEREFs. constructor The name of the constructor method. Defaults to 'new'. args An anonymous array of arguments to pass to the constructor. Defaults to an empty list. Returns an object in an 'anonymous' class which inherits from the parent class. This anonymous class has a couple of 'extra' methods: SUPER If you were to pass something like $obj = Class::Inner->new( parent => 'Parent', methods => { method => sub { ...; $self->SUPER::method(@_) } }, ); then "$self-"gt"SUPER::method" almost certainly wouldn't do what you expect, so we provide the "SUPER" method which dispatches to the parent implementation of the current method. There seems to be no good way of getting the full "SUPER::" functionality, but I'm working on it. DESTROY Because Class::Inner works by creating a whole new class name for your object, it could potentially leak memory if you create a lot of them. So we add a "DESTROY" method that removes the class from the symbol table once it's finished with. If you need to override a parent's DESTROY method, adding a call to "Class::Inner::clean_symbol_table(ref $self)" to it. Do it at the end of the method or your other method calls won't work. clean_symbol_table The helper subroutine that DESTROY uses to remove the class from the symbol table. new_classname Returns a name for the next anonymous class. AUTHOR
Maintained by Arun Prasaad "<arunbear@cpan.org>" Copyright (c) 2001 by Piers Cawley <pdcawley@iterative-software.com>. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as perl itself. Thanks to the Iterative Software people: Leon Brocard, Natalie Ford and Dave Cross. Also, this module was written initially for use in the PerlUnit project, AKA Test::Unit. Kudos to Christian Lemburg and the rest of that team. SEE ALSO
There are a million and one differen Class constructors available on CPAN, none of them does quite what I want, so I wrote this one to add to that population where hopefully it will live and thrive. BUGS
Bound to be some. Actually the "SUPER" method is a workaround for what I consider to be a bug in perl. perl v5.10.1 2009-11-21 Class::Inner(3pm)
Check Out this Related Man Page
Class::Meta::Constructor(3pm) User Contributed Perl Documentation Class::Meta::Constructor(3pm) NAME
Class::Meta::Constructor - Class::Meta class constructor introspection SYNOPSIS
# Assuming MyApp::Thingy was generated by Class::Meta. my $class = MyApp::Thingy->my_class; print " Constructors: "; for my $ctor ($class->constructors) { print " o ", $ctor->name, $/; my $thingy = $ctor->call($class->package); } DESCRIPTION
This class provides an interface to the "Class::Meta" objects that describe class constructors. It supports a simple description of the constructor, a label, and the constructor visibility (private, protected, trusted,or public). Class::Meta::Constructor objects are created by Class::Meta; they are never instantiated directly in client code. To access the constructor objects for a Class::Meta-generated class, simply call its "my_class()" method to retrieve its Class::Meta::Class object, and then call the "constructors()" method on the Class::Meta::Class object. INTERFACE
Constructors new A protected method for constructing a Class::Meta::Constructor object. Do not call this method directly; Call the "add_constructor()" method on a Class::Meta object, instead. Instance Methods name my $name = $ctor->name; Returns the constructor name. package my $package = $ctor->package; Returns the package name of the class that constructor is associated with. desc my $desc = $ctor->desc; Returns the description of the constructor. label my $desc = $ctor->label; Returns label for the constructor. view my $view = $ctor->view; Returns the view of the constructor, reflecting its visibility. The possible values are defined by the following constants: Class::Meta::PUBLIC Class::Meta::PRIVATE Class::Meta::TRUSTED Class::Meta::PROTECTED class my $class = $ctor->class; Returns the Class::Meta::Class object that this constructor is associated with. Note that this object will always represent the class in which the constructor is defined, and not any of its subclasses. call my $obj = $ctor->call($package, @params); Executes the constructor. Pass in the name of the class for which it is being executed (since, thanks to subclassing, it may be different than the class with which the constructor is associated). All other parameters will be passed to the constructor. Note that it uses a "goto" to execute the constructor, so the call to "call()" itself will not appear in a call stack trace. build $ctor->build($class); This is a protected method, designed to be called only by the Class::Meta class or a subclass of Class::Meta. It takes a single argument, the Class::Meta::Class object for the class in which the constructor was defined, and generates constructor method for the Class::Meta::Constructor, either by installing the code reference passed in the "code" parameter or by creating the constructor from scratch. Although you should never call this method directly, subclasses of Class::Meta::Constructor may need to override its behavior. BUGS
Please send bug reports to <bug-class-meta@rt.cpan.org> or report them via the CPAN Request Tracker at http://rt.cpan.org/NoAuth/Bugs.html?Dist=Class-Meta <http://rt.cpan.org/NoAuth/Bugs.html?Dist=Class-Meta>. SUPPORT
This module is stored in an open GitHub repository <http://github.com/theory/class-meta/>. Feel free to fork and contribute! Please file bug reports via GitHub Issues <http://github.com/theory/class-meta/issues/> or by sending mail to bug-Class-Meta.cpan.org <mailto:bug-Class-Meta.cpan.org>. AUTHOR
David E. Wheeler <david@justatheory.com> SEE ALSO
Other classes of interest within the Class::Meta distribution include: Class::Meta Class::Meta::Class Class::Meta::Method Class::Meta::Attribute COPYRIGHT AND LICENSE
Copyright (c) 2002-2011, David E. Wheeler. Some Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.12.4 2011-08-06 Class::Meta::Constructor(3pm)