File Coverage

blib/lib/App/sdview/Output.pm

Criterion	Covered	Total	%
statement	25	31	80.6
branch	3	4	75.0
condition			n/a
subroutine	9	19	47.3
pod	0	16	0.0
total	37	70	52.8

#  You may distribute under the terms of either the GNU General Public License
#  or the Artistic License (the same terms as Perl itself)
#
#  (C) Paul Evans, 2021-2022 -- [e-mail]

use v5.26;
use warnings;

use Object::Pad 0.800;

package App::sdview::Output 0.12;
role App::sdview::Output;

field $_content;

method say ( @s ) { $_content .= join "", @s, "\n"; }

method maybe_blank { $_content .= "\n" if length $_content; }

method generate ( @paragraphs )
{
   $_content = "";

   while ( @paragraphs ) {
      my $para = shift @paragraphs;

      if( my $code = $self->can( "output_" . ( $para->type =~ s/-/_/gr ) ) ) {
         $self->$code( $para );
      }
      else {
         die "Unhandled paragraph type " . $para->type;
      }
   }

   return $_content;
}

method output ( @paragraphs )
{
   say $self->generate( @paragraphs );
}

0x55AA;