view release on metacpan or  search on metacpan

t/lib/Kwiki/SimpleHook.pm  view on Meta::CPAN

use Kwiki::Installer '-base';

const class_id => 'simple_hook';

sub register {
    my $registry = shift;
    $registry->add(hook => 'page:store', pre => 'update_content');
    super;
}

sub update_content {
    my $page = $self;
    my $hook = pop;
    $page->content($page->content . "\n\nSimple Hook Hooks Again!\n");
}