File Coverage

blib/lib/Text/Livedoor/Wiki/Plugin/Inline/WikiPage.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	1	1	100.0
total	34	35	97.1

package Text::Livedoor::Wiki::Plugin::Inline::WikiPage;

use warnings;
use strict;
use base qw(Text::Livedoor::Wiki::Plugin::Inline);
use Text::Livedoor::Wiki::Utils;

__PACKAGE__->regex(q{\[\[((?:[^>\]]+>{1,3})?)([^\]]+)\]\]});
__PACKAGE__->n_args(2);

sub process {
    my ( $class , $inline , $label , $pagename  ) = @_;
    if( $label ) {
        $label =~ s/>$//;
    }
    else {
        $label = $pagename;
    }
    $label = Text::Livedoor::Wiki::Utils::escape( $label );
    if ( $pagename =~ /^(http|https|ftp):\/\// ) {
        my $url = Text::Livedoor::Wiki::Utils::escape($pagename);
        return qq|$label|;
    }
    else {
        $pagename = Text::Livedoor::Wiki::Utils::sanitize_uri($pagename);
        my $base_url = $class->opts->{inline_wikipage_base_url} || '/';
        return qq|$label|;
    }
}

1;

=head1 NAME

Text::Livedoor::Wiki::Plugin::Inline::WikiPage - wikipage link Inline Plugin

=head1 DESCRIPTION

wikipage link. do start with http:// ;-p

=head1 SYNOPSIS

 [[PageName]]
 [[Page Name Label>PageName]]
 [[livedoor wiki>http://wiki.livedoor.com]]

=head1 opts

=head2 inline_wikipage_base_url

you can set base URL

=head1 FUNCTION

=head2 process

=head1 AUTHOR

polocky

=cut