Object::Meta::Plugin::Useful::Greedy - a plugin base class which gobbles up reasonable parts of the symbol table at export time.
package Foo; use base 'Object::Meta::Plugin::Useful::Greedy'; sub ppretty { # ... } sub ver_pretty { # ... } sub ugly { # will not be exported because of the pattern # ... } sub _filter { grep {/pretty/} @_; }
This is a base class for a pretty standard, pretty easy plugin. When export is called it goes through the symbol table of the plugin's package, as per ref $self, and so forth through all the @ISAs it finds. The functions it finds along the way are collected, and filtered.
export
ref $self
This takes a list of method names, and munges it into something. The current example will filter things that don't look pretty, that are a bit too general (new, init, croak), and then fishes out duplicates.
You really should define it in your class, if you want more control of the patterns.
Does not work on classless objects and such. The plugin in question must be a real set of classes.
Relies on the non core module Devel::Symdump.
Peh! You must be kididgn!
Copyright 2003 Yuval Kogman. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Yuval Kogman <nothingmuch@woobling.org>
Object::Meta::Plugin, Object::Meta::Plugin::Useful, Object::meta::Plugin::Useful::Generic, Object::Meta::Plugin::Useful::Meta.
To install Object::Meta::Plugin, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Object::Meta::Plugin
CPAN shell
perl -MCPAN -e shell install Object::Meta::Plugin
For more information on module installation, please visit the detailed CPAN module installation guide.