File Coverage

blib/lib/Text/Livedoor/Wiki/Plugin/Block/OL.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	36	36	100.0

package Text::Livedoor::Wiki::Plugin::Block::OL;

use warnings;
use strict;
use base qw(Text::Livedoor::Wiki::Plugin::Base::Block::List);

sub check {
    my $self = shift;
    my $line = shift;
    my $args        = shift;
    my $on_next     = $args->{on_next};
    my $id      = $args->{id};

    if( my( $mark ) = $line =~ /^(\+{1,3})[^\+]/ ) {
        my $level = length $mark ;
        unless ( $on_next ) {
            $line =~ s/^\+{$level}//;
        }
        return { id => $id , level => $level , line => $line };
    }
    return;
}

sub get {
    my $self = shift;
    my $block = shift;
    my $inline = shift;
    my $items = shift;
    $self->list( $inline , $items,'ol');
}

1;

=head1 NAME

Text::Livedoor::Wiki::Plugin::Block::OL - OL Block Plugin

=head1 SYNOPSIS

 + hoge
 ++ hogehoge
 +++ hy mom
 + hoge

=head1 DESCRIPTION

create  surrounded list. till 3 level.

=head1 FUNCTION

=head2 check

=head2 get

=head1 AUTHOR

polocky

=cut