File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	32	32	100.0

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

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

__PACKAGE__->regex( q{((?:http|https|ftp):\/\/[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+)});
__PACKAGE__->n_args(2);

sub process {
    my ( $class, $inline, $url ) = @_;
    return qq|| if Text::Livedoor::Wiki::Utils::is_image_url( $url );
    my $label = $class->_cut( $url );
    return qq{$label};

}

sub _cut {
    my $class= shift;
    my $url  = shift;
    if ( length $url > 50 ) {
        return substr($url , 0 , 50 ) . '...';
    }
    return $url;
}

1;

=head1 NAME

Text::Livedoor::Wiki::Plugin::Inline::URL - URL Inline Plugin

=head1 DESCRIPTION

make URL linkable.

=head1 SYNOPSIS

 http://wiki.livedoor.com

=head1 FUNCTION

=head2 process

=head1 AUTHOR

polocky

=cut