The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
Blosxom-Plugin-0.01002
River stage zero No dependents
/ Blosxom::Plugin

NAME

Blosxom::Plugin - Base class for Blosxom plugins

SYNOPSIS

  package my_plugin;
  use strict;
  use warnings;
  use parent 'Blosxom::Plugin';

  # generates foo()
  __PACKAGE__->mk_accessors( 'foo' );

  # does 'Blosxom::Plugin::DataSection'
  __PACKAGE__->load_components( 'DataSection' );

  sub start {
      my $self = shift; # => "my_plugin"

      $self->foo( 'bar' );
      my $value = $self->foo; # => "bar"

      my $template = $self->get_data_section( 'my_plugin.html' );
      # <!DOCTYPE html>
      # ...

      # merge __DATA__ into Blosxom default templates
      $self->merge_data_section_into( \%blosxom::template );

      return 1;
  }

  1;

  __DATA__

  @@ my_plugin.html

  <!DOCTYPE html>
  <html>
  <head>
    <meta charset="utf-8">
    <title>My Plugin</title>
  </head>
  <body>
  <h1>Hello, world</h1>
  </body>
  </html>

DESCRIPTION

Base class for Blosxom plugins. Inspired by Blosxom 3 which was abandoned to be released.

BACKGROUND

Blosxom globalizes a lot of variables. This module assigns them to appropriate namespaces like 'Request', 'Response' or 'Config'. In addition, it's intended that Blosxom::Plugin::* namespace will abstract routines from Blosxom plugins.

METHODS

$class->load_components( @comps )
$class->load_components( $comp => \%config, ... )

Loads the given components into the current module. Components can be parameterized by the consumers. If a module begins with a + character, it is taken to be a fully qualified class name, otherwise Blosxom::Plugin is prepended to it.

  package my_plugin;
  use parent 'Blosxom::Plugin';
  __PACKAGE__->load_components( '+MyComponent' => \%config );

This method calls init() method of each component. init() is called as follows:

  MyComponent->init( 'my_plugin', \%config )
$class->add_method( $method => $coderef )

This method takes a method name and a subroutine reference, and adds the method to the class. Available while loading components.

  package MyComponent;

  sub init {
      my ( $class, $context, $config ) = @_;
      $context->add_method( foo => sub { ... } );
  }

If a method is already defined on the class, that method will not be composed in from the component. If multiple components are applied in a single call, then if any of their provided methods clash, an exception is raised unless the class provides the method.

$bool = $class->has_method( $method )

Returns a Boolean value telling whether or not the class defines the named method. It does not include methods inherited from parent classes.

  my $requires = 'bar';

  sub init {
      my ( $class, $context ) = @_;
      unless ( $context->has_method($requires) ) {
          die "Cannot apply '$class' to '$context'";
      }
  }

DEPENDENCIES

Blosxom 2.0.0 or higher.

SEE ALSO

Blosxom::Plugin::Web, Amon2, Moose::Manual::Roles, MooseX::Role::Parameterized::Tutorial

ACKNOWLEDGEMENT

Blosxom was originally written by Rael Dohnfest. The Blosxom Development Team succeeded to the maintenance.

BUGS AND LIMITATIONS

This module is beta state. API may change without notice.

AUTHOR

Ryo Anazawa <anazawa@cpan.org>

LICENSE AND COPYRIGHT

Copyright (c) 2012 Ryo Anzawa. All rights reserved.

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.