File Coverage

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

Criterion	Covered	Total	%
statement	16	21	76.1
branch	2	2	100.0
condition	1	2	50.0
subroutine	4	5	80.0
pod	0	2	0.0
total	23	32	71.8

use v5.36.0;
package Sieve::Generator::Element::Terms 0.003;
# ABSTRACT: a sequence of Sieve terms joined by spaces

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

#pod =head1 DESCRIPTION
#pod
#pod A C object renders a sequence of terms as a space-joined inline Sieve
#pod expression.  It is the general-purpose building block for Sieve test
#pod expressions and argument sequences.
#pod
#pod =attr terms
#pod
#pod This attribute holds the arrayref of terms.  Each term may be a plain string or
#pod an object doing L; all terms are joined with single
#pod spaces when rendered.
#pod
#pod =cut

has terms => (is => 'ro', required => 1);

sub children ($self) { grep { ref } $self->terms->@* }

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

  my $str = (q{  } x $i)
          . join q{ },
            map {; ref($_) ? $_->as_sieve : $_ }
            $self->terms->@*;

  return $str;
}

no Moo;
1;

__END__