AI::MicroStructure::Alias - Alias one structure to another
package AI::MicroStructure::bonk; use AI::MicroStructure::Alias; our @ISA = qw( AI::MicroStructure::Alias ); __PACKAGE__->init('batman'); 1; =head1 NAME AI::MicroStructure::bonk - The bonk structure =head1 DESCRIPTION This structure is just an alias of the C<batman> theme. =cut # no __DATA__ section required!
AI::MicroStructure::Alias is the base class for any structures that is simply an alias of another structure.
AI::MicroStructure::Alias defines a single method,
init() that make aliases very easy to write (see the full example in SYNOPSIS):
- init( $original )
init()must be called when the subclass is loaded, so as to correctly load and alias the original structure.
$originalis the name of the original structure we want to alias.
Philippe 'BooK' Bruhat,
Copyright 2006 Philippe 'BooK' Bruhat, All Rights Reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.