The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Class::Pluggable - Simple pluggable class.

SYNOPSIS

  use Class::Pluggable;
  use base qw(Class::Pluggable);

  # Some::Plugin::Module has sub routin called newAction
  addPlugin("Some::Plugin::Module"); 

  newAction();  # Plugged action.

DESCRIPTION

This class makes your class (sub class of Class::Pluggable) pluggable. In this documentatin, the word "pluggable" has two meanings.

One is just simply adding new method to your pluggable classs from other plugin modules. So, after you plugged some modules to your class, you can use there method exactly same as your own object method.

You can see this kind of plugin mechanism in CGI::Application and CGI::Application::Plugin::Session.

There are one thing that Plugin developer have to know. The plugin module MUST have @EXPORT_AS_PLUGIN to use this pluggable mechanism. This works almost same as @EXPORT. But the methods in the @EXPORT_AS_PLUGIN wouldn't be exported to your package. But it would be exported to the subclass of Class::Pluggable (only when you call addPlugin()).

And the another meaning of "pluggable" is so called hook-mechanism. For example, if you want to allow to other modules to do something before and/or after some action. You can do like this:

  $self->executePluginMethod($_, "before_action")
    foreach $self->getPlugins();

  ## do some your own action here.

  $self->executePluginMethod($_, "after_action")
    foreach $self->getPlugins();

METHODS

Here are all methods of Class::Pluggable.

addPlugin
  YourClass->addPlugin($pluginName)

This will add new plugin to your class. What you added to here would be returned by getPlugins() method.

getPlugins
  @plugins = YourClass->getPlugins();

It will return all of plugin names that are already added to YouClass.

executePluginMethod
  $result = YourClass->executePluginMethod("SomePlugin", "someMethod");

This will execute the method someMethod of SomePlugin.

executeAllPluginMethod
  YourClass->executeAllPluginMethod("someMethod");

This will execute the method someMethod of all plugin we have. This is almost same as following code.

  $self->executePluginMethod($_, "someMethod")
    foreach $self->getPlugins();

The difference is executeAllPluginMethod can't return any values. But executePluginMethod can.

addHook
  YourClass->addHook("pre-init", "pre_init");

This will add new hook to your class. Whenever runHook("pre-init") has called, the method pre_init of all plugins which we have will be executed.

runHook
  YourClass->runHook("pre-init");

This will execute the hook-method of all plugins which we have.

deleteHook
  YourClass->deleteHook("pre-init");

This will delete the hook from YourClass. After calling this method, you cannot call runHook("pre-init"). If you do, it will die immediately.

SEE ALSO

...

AUTHOR

Ken Takeshige, <ken.takeshige@gmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2006 by Ken Takeshige

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 200:

You forgot a '=back' before '=head1'