Acme::MetaSyntactic::Alias - Alias one theme to another
package Acme::MetaSyntactic::bonk; use Acme::MetaSyntactic::Alias; our @ISA = qw( Acme::MetaSyntactic::Alias ); __PACKAGE__->init('batman'); 1; =head1 NAME Acme::MetaSyntactic::bonk - The bonk theme =head1 DESCRIPTION This theme is just an alias of the C<batman> theme. =cut # no __DATA__ section required!
Acme::MetaSyntactic::Alias is the base class for any themes that is simply an alias of another theme.
Acme::MetaSyntactic::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 theme.
$originalis the name of the original theme 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.