File Coverage

lib/Kwiki/DisableWikiNames.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Kwiki::DisableWikiNames;

use 5.008005;
use strict;
use warnings;

use Kwiki::Plugin -Base;
use mixin 'Kwiki::Installer';

our $VERSION = '0.02';

const class_id => 'disable_wiki_names';
const class_title => "Disable WikiNames auto markup";

sub init {
    super;
}

sub register {
    my $registry = shift;
    $registry->add(preload => 'disable_wiki_names');
    $registry->add(hook => 'page:kwiki_link', pre => 'dwn_uri_hook');
}

sub dwn_uri_hook {   ## Adopted from Kwiki::CoolURI
    my $hook = pop;
    $hook->code(undef);
    my ($label) = @_;
    my $page_uri = $self->uri;
    if(!defined $label) {
      qq($page_uri);
    } else {
      my $class = $self->active? '' : ' class="empty"';
      qq($label);
    }
}

1;
__END__