| CGI-Wiki documentation | Contained in the CGI-Wiki distribution. |
CGI::Wiki::Plugin - A base class for CGI::Wiki plugins.
Provides methods for accessing the backend store, search and formatter objects of the CGI::Wiki object that a plugin instance is registered with.
package CGI::Wiki::Plugin::Foo; use base qw( CGI::Wiki::Plugin); # And then in your script: my $wiki = CGI::Wiki->new( ... ); my $plugin = CGI::Wiki::Plugin::Foo->new; $wiki->register_plugin( plugin => $plugin ); my $node = $plugin->datastore->retrieve_node( "Home" );
sub new {
my $class = shift;
my $self = bless {}, $class;
$self->_init if $self->can("_init");
return $self;
}
Generic contructor, just returns a blessed object.
Returns the backend store object, or undef if the register_plugin
method hasn't been called on a CGI::Wiki object yet.
Returns the backend search object, or undef if the
register_plugin method hasn't been called on a CGI::Wiki object
yet, or if the wiki object had no search object defined.
Returns the backend formatter object, or undef if the register_plugin
method hasn't been called on a CGI::Wiki object yet.
Kake Pugh (kake@earth.li).
Copyright (C) 2003-4 Kake Pugh. All Rights Reserved.
This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| CGI-Wiki documentation | Contained in the CGI-Wiki distribution. |
package CGI::Wiki::Plugin; use strict; use vars qw( $VERSION ); $VERSION = '0.03';
sub new { my $class = shift; my $self = bless {}, $class; $self->_init if $self->can("_init"); return $self; }
sub datastore { my $self = shift; $self->{_datastore} = $_[0] if $_[0]; return $self->{_datastore}; }
sub indexer { my $self = shift; $self->{_indexer} = $_[0] if $_[0]; return $self->{_indexer}; }
sub formatter { my $self = shift; $self->{_formatter} = $_[0] if $_[0]; return $self->{_formatter}; }
1;