File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition	1	2	50.0
subroutine	5	5	100.0
pod	1	3	33.3
total	32	35	91.4

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

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

#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, or comments -- each rendered on its own indented 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 L.
#pod
#pod =cut

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

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

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

    $str .= "$text\n";
  }

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

1;

__END__