File Coverage

lib/MKDoc/Text/Structured/BQ.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	4	4	100.0
condition	1	2	50.0
subroutine	6	6	100.0
pod	0	3	0.0
total	41	45	91.1

package MKDoc::Text::Structured::BQ;
use base qw /MKDoc::Text::Structured::Base/;
use warnings;
use strict;

sub new
{
    my $class  = shift;
    my $line   = shift;

    my ($marker, $space) = $line =~ /^(\>)(\s*)/;
    return unless ($marker);

    my $self = $class->SUPER::new();
    $self->{space} = $space || '';
    return $self;
}


sub is_ok
{
    my $self = shift;
    my $line = shift;
    $line =~ /^\s*$/ and return 1;
    return $line =~ /^\>/;
}


sub process
{
    my $self  = shift;
    my @lines = @{$self->{lines}};
    my $space = $self->{space};
    my $text  = join "\n", map {
        s/^\>//;
        s/^$space//;
        $_;
    } @lines;

    $text = MKDoc::Text::Structured::process ($text);
    return "$text";
}




1;


__END__