File Coverage

blib/lib/Sieve/Generator/Lines/Block.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	2	50.0
total	30	31	96.7

use v5.36.0;
package Sieve::Generator::Lines::Block 0.001;
# ABSTRACT: a Sieve block (a brace-delimited sequence of statements)

use Moo;
with 'Sieve::Generator::Lines';

#pod =head1 DESCRIPTION
#pod
#pod A block is the brace-delimited body of a Sieve C, C, or C
#pod clause.  It contains an ordered list of things -- commands, nested
#pod conditionals, comments, or plain strings -- each rendered on its own indented
#pod line.
#pod
#pod =attr things
#pod
#pod This attribute holds the list of things that make up the block body.  Each
#pod may be an object doing either L or
#pod L.
#pod
#pod =cut

has _things => (is => 'ro', init_arg => 'things', required => 1);
sub things ($self) { $self->_things->@* }

sub as_sieve ($self, $i = 0) {
  my $class = ref $self;

  my $str = q{};
  my $indent = q{  } x $i;
  for my $thing ($self->things) {
    my $text = ref $thing ? $thing->as_sieve($i+1)
             :              "$indent  $thing";

    $text .= "\n" unless $text =~ /\n\z/;

    $str .= $text;
  }

  return "{\n$str$indent}\n";
}

1;

__END__