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 "<pre>$text</pre>";
}
1;
__END__