File Coverage

lib/MKDoc/Text/Structured/SIG.pm

Criterion	Covered	Total	%
statement	13	19	68.4
branch	1	2	50.0
condition			n/a
subroutine	4	6	66.6
pod	0	3	0.0
total	18	30	60.0

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


sub new
{
    my $class = shift;
    my $line  = shift;
    $line eq '-- ' and return $class->SUPER::new();
    return;
}


sub is_ok { return 1 };


sub process
{
    my $self   = shift;
    my @lines  = @{$self->{lines}};
    my $text   = join "\n", @lines;

    return "$text";
}


1;


__END__