File Coverage

blib/lib/Text/Livedoor/Wiki/Plugin/Base/Block/List.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	8	8	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	52	52	100.0

package Text::Livedoor::Wiki::Plugin::Base::Block::List;

use warnings;
use strict;
use base qw(Text::Livedoor::Wiki::Plugin::Block);
sub list {
    my $self  = shift;
    my $inline = shift;
    my $items = shift;
    my $tag   = shift;
    my $id = $items->[0]{id};
    my $level = 1;
    my $data = qq|<$tag id="$id" class="list-1">\n|;

    my $fix_data = '';
    my $last = scalar @$items;
    my $cnt=0;
    for my $item ( @$items ) {
        $cnt++;
        my $on_deep= 0;
        while( $level != $item->{level} ) {
            if( $level > $item->{level} ) {
                $level--;
                $data .= "\n\n" ;
            }
            else {
                $level++;
                $data .= qq|<$tag class="list-$item->{level}">\n|;
            }
        }
        if(  $cnt != $last ) {
            my $next_item = $items->[$cnt];
            if( $level < $next_item->{level} ) {
                $on_deep =1;
            }
        }
        $data .= "" . $inline->parse($item->{line});
        $data .= $on_deep ? "\n" : "\n" ;
    }

    while( $level >1 ) {
        $data .= "\n\n" ;
        $level--;
    }
    $data .= "\n";
    return $data;
}
1;

=head1 NAME

Text::Livedoor::Wiki::Plugin::Base::Block::List - Base Class For UL / OL Block Plugin

=head1 DESCRIPTION

base class for L and L

=head1 SYNOPSIS

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

=head1 FUNCTION

=head2 list

create list

=head1 AUTHOR

polocky

=cut