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.
$original is the name of the original
theme we want to alias.
Philippe 'BooK' Bruhat,
"<book@cpan.org>"
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.