鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申�™申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃術�鐃渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�­鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�¹鐃緒申臓�Ê鐃緒申鐃�¼鐃緒申��鐃緒申鐃緒申鐃�¼鐃緒申辧鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃�¹\鐃緒申鐃�­鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申臓鐃�livedoor blog鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申\µ\鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申鐃暑™申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申¹鐃緒申鐃�«鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃渋�鐃渚™申½鐃緒申鐃緒申鐃緒申 Text::Livedoor::Wiki鐃緒申鐃緒申鐃緒申

Text::Livedoor::Wikiµ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃�»鐃緒申鐃緒申鐃署¨�鐃緒申м鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃�\µ\鐃緒申鐃緒申¼\鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申­鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃獣�鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申\鐃緒申\鐃緒申鐃�\鐃緒申\鐃緒申鐃�\鐃緒申��鐃暑î�鐃緒申鐃緒申鐃緒申鐃緒申Ð鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃殉�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋￥申

Text::Livedoor::Wiki::PluginX::Block::Hatena

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾�鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃渋�鐃緒申鐃�³鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申­鐃緒申鐃緒申鐃縦�鐃緒申鐃緒申鐃緒申鐃渋�鐃緒申\鐃緒申鐃緒申鐃緒申¼\鐃緒申鐃�\鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�鐃曙Ǚ申鐃縮�鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申國鐃緒申鐃緒申¹鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申��鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋�鐃緒申µ鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申鐃緒申鐃緒申鐃渋�鐃緒申

package Text::Livedoor::Wiki::PluginX::Block::Hatena;

use strict;
use warnings;
use base qw(Text::Livedoor::Wiki::Plugin::Block);
use Text::Hatena;
our $VERSION = '0.01';

__PACKAGE__->trigger({ 
     start=> '^__HATENA__$' , 
     end  => '^__HATENA__$' , 
     escape => 1 });

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

    # header
    if (( ( $row, $option_str ) = $line =~ /^__HATENA__$/) 
     && !$processing  && !$on_next ){
        my $res = { id => $id };
        $scratchpad->{block}{$id}{processing} = 1;
        return $res;
    }
    # end box
    elsif( $line =~ /^__HATENA__$/ && $processing 
     && !$on_next ) {
        $scratchpad->{block}{$id}{processing} = 0;
        return { line => '' } ;
    }
    # finalize
    elsif( $on_next && !$processing ) {
        return ;
    }
    # processing
    elsif( $processing ) {
        return { line => $line  };
    }
    # not much
    return;
}
sub get {
    my $class = shift;
    my $block = shift;
    my $inline = shift;
    my $items = shift;
    my $meta = shift @{$items};
    my $id         = $meta->{id};
    my $data = '';
    $data .= $_->{line} . "\n" for @$items;
    $data =~ s/\n$//;
    return Text::Hatena->parse( $data );
}

»鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

''鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�''
__HATENA__
*鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
>||
鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申��鐃緒申¹鐃緒申鐃�¼鐃緒申鐃緒申鐃出�鐃緒申¼鐃緒申鐃淳�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
||<
__HATENA__

½Ð鐃緒申��鐃緒申

鐃緒申鐃�³鐃緒申鐃緒申鐃術�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申弌鐃�¹鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申

<div class="user-area">
<b>鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�</b><div class="section">
<h3>鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�</h3>
<pre>
鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申��鐃緒申¹鐃緒申鐃�¼鐃緒申鐃緒申鐃出�鐃緒申¼鐃緒申鐃淳�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
</pre>
</div>
</div>

test

use Test::Base qw/no_plan/;
use Text::Livedoor::Wiki;
my $parser = Text::Livedoor::Wiki->new({ 
    block_plugins =>
     [qw/Text::Livedoor::Wiki::PluginX::Block::Hatena/] });

run {
    my $block = shift;
    my $html = $parser->parse( $block->wiki );
    is( $html, $block->html , $block->name );
}

__DATA__

=== basic
--- wiki
''鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�''
__HATENA__
*鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
>||
鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申��鐃緒申¹鐃緒申鐃�¼鐃緒申鐃緒申鐃出�鐃緒申¼鐃緒申鐃淳�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
||<
__HATENA__
--- html
<div class="user-area">
<b>鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�</b><div class="section">
<h3>鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�</h3>
<pre>
鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申µ­鐃緒申鐃緒申鐃渋�鐃緒申鐃緒申��鐃緒申¹鐃緒申鐃�¼鐃緒申鐃緒申鐃出�鐃緒申¼鐃緒申鐃淳�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�
</pre>
</div>
</div>

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申��鐃曙´鐃緒申鐃緒申鐃緒申鐃殉�鐃緒申鐃緒申鐃緒申鐃緒申·鐃緒申鐃緒申鐃緒申鐃緒申��鐃緒申 鐃緒申鐃�µ鐃緒申鐃緒申鐃緒申 Let's cpan insatll Text::Livedoor::Wiki !!