File Coverage

blib/lib/Text/Livedoor/Wiki/CatalogKeeper.pm

Criterion	Covered	Total	%
statement	56	56	100.0
branch	19	20	95.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	3	3	100.0
total	87	88	98.8

package Text::Livedoor::Wiki::CatalogKeeper;

use strict;
use warnings;
use Data::Dumper;

my $NO_SETTING = " ";

sub new {
    my $class =shift;
    my $self = bless {} ,$class;
    $self->{data} = [];
    return $self;
}
sub append {
    my $self   = shift;
    my $args   = shift;
    push @{$self->{data}} , $args;
}

sub contents {
    my $self = shift;

# div¤Ç¤³¤Î¤¦¤¨¤ò°Ï¤ï¤Ê¤¤
    my $prev = 0;
    my $contents = qq|\n\n\n|;
    for ( my $i = 0 ; $i < scalar @{ $self->{data} } ; $i++ ) {
        my $flg = 1;
        my $item = $self->{data}[$i];
        my $next = scalar @{$self->{data}} != $i+1 ? $self->{data}[$i+1]{level} : 0;
        while( $flg ) {
            if( $item->{level} > $prev + 1 ) {
                $prev++;
                #my $n = $prev == $item->{level} ? $next : $prev+1;
                my $n = $next ;
                $contents .= sprintf( qq|$NO_SETTING| , $prev );

                if( $prev == $n ) {
                    $contents .= "\n";
                }
                elsif( $prev > $n ) {
                    my $diff= $item->{level} - $n;
                    $contents .= "\n";
                    for(1..$diff) {
                        $contents .= "\n\n";
                    }
                }
                elsif( $prev < $n ) {
                    $contents .= "\n\n";
                }

                next;
            }
            $prev= 1 if $prev== 0;
            $flg = 0;
        }
        $contents .= sprintf( qq|%s| , $item->{level} , $item->{id} , $item->{label} );

        if( $item->{level} == $next ) {
            $contents .= "\n";
        }
        elsif( $next != 0 && $item->{level} > $next ) {
            my $diff= $item->{level} - $next;
            $contents .= "\n";
            for(1..$diff) {
                $contents .= "\n\n";
            }
        }
        elsif( $item->{level} < $next ) {
            $contents .= "\n\n";
        }

        if( $next == 0 ) {
            $contents .= "\n";
            for(1..($item->{level}-1)) {
                $contents .= "\n";
            }
        }

        $prev = $item->{level};
    }

    $contents .= "\n\n\n";

    return $contents;
}

1;

=head1 NAME

Text::Livedoor::Wiki::CatalogKeeper - Catalog Keeper

=head1 DESCRIPTION

keep h3,h4,h5 catalog

=head1 METHOD

=head2 append

=head2 contents

=head2 new

=head1 AUTHOR

polocky

=cut