Acme::Magpie::l33t - example child class of Acme::Magpie

Acme-Magpie documentation Contained in the Acme-Magpie distribution.

Index

Code Index:

NAME

Top

Acme::Magpie::l33t - example child class of Acme::Magpie

SYNOPSIS

Top

 use Acme::Magpie::l33t;

 sub f00 { print "we r00lz" };
 f00(); # program breaks

DESCRIPTION

Top

This is an example of subclassing Acme::Magpie, and is so better documented there.

SEE ALSO

Top

Acme::Magpie

AUTHOR

Top

Richard Clamp <richardc@unixbeard.net>, original idea by Tom Hukins

COPYRIGHT

Top

       Copyright (C) 2002 Richard Clamp.
       All Rights Reserved.

       This module is free software; you can redistribute it
       and/or modify it under the same terms as Perl itself.
Acme-Magpie documentation Contained in the Acme-Magpie distribution. 
package Acme::Magpie::l33t;
use strict;
require Acme::Magpie;
use base qw(Acme::Magpie);

sub shiny {
    local ($_) = $_[1] =~ /.*::(.*)/;
    return tr/[0-9]// > tr/[a-z][A-Z]//;;
}
1;
__END__