File Coverage

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

Criterion	Covered	Total	%
statement	49	49	100.0
branch	8	8	100.0
condition	13	15	86.6
subroutine	5	5	100.0
pod	2	2	100.0
total	77	79	97.4

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

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

sub check {
    my $class       = shift;
    my $line        = shift;
    my $args        = shift;
    my $id          = $args->{id};
    my $inline      = $args->{inline};
    my $on_next     = $args->{on_next};
    my $scratchpad  = $Text::Livedoor::Wiki::scratchpad;

    my $catalog_keeper = $Text::Livedoor::Wiki::opts->{catalog_keeper};
    my $id_keeper      = $Text::Livedoor::Wiki::opts->{id_keeper};
    my $skip_catalog   = $Text::Livedoor::Wiki::opts->{skip_catalog};

    my $key = 'h5_is_active_' . $id;
    if ( $line =~ /^\*\*\*/ && !$scratchpad->{$key} && !$class->get_child($id) ){
        $scratchpad->{$key} = 1 ;
        $line =~ s/^\*\*\*//;
        my $title =  $inline->parse($line);
        my $header = '';

        #XXX
        $Text::Livedoor::Wiki::scratchpad->{skip_ajust_block_break} = '1';

        if( $skip_catalog ) {
            $header = sprintf( qq|%s\n| ,  $title ) ;
        }
        else {
            $id_keeper->up(3);
            $catalog_keeper->append( {level=>3 , id =>  $id_keeper->id(3) , label => $title } );
            $header = sprintf( qq|%s\n| ,  $id_keeper->id(3) ,  $title ) ;
        }
        return { header => $header , id => $id };
    }
    elsif( $on_next && $class->trigger_check($id,$line)  && $line =~ /^\*/ &&  $scratchpad->{$key} ) {
        $scratchpad->{$key} = 0 ;
        return ;
    }
    elsif( $scratchpad->{$key} ) {
        return { line => $line  };
    }
    return;

}

sub get {
    my $class = shift;
    my $block = shift;
    my $inline = shift;
    my $items = shift;
    my $meta = shift @{$items};
    my $header = $meta->{header} ;
    my $id     = $meta->{id} ;
    my $html = '';
    $html .= $_->{line} . "\n" for @$items;
    $html =~ s/\n$//;
    $html = $block->parse( $html , 1 ) ;
    return qq|\n$header\n$html\n\n|;
}

1;

=head1 NAME

Text::Livedoor::Wiki::Plugin::Block::H5 - H5 Block Plugin

=head1 DESCRIPTION

H5 is third level header

=head1 SYNOPSIS

 ** title3

 content

 ** title3

=head1 FUNCTION

=head2 check

=head2 get

=head1 AUTHOR

polocky

=cut