File Coverage

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

Criterion	Covered	Total	%
statement	28	32	87.5
branch	5	6	83.3
condition	1	2	50.0
subroutine	5	6	83.3
pod	1	3	33.3
total	40	49	81.6

use v5.36.0;
package Sieve::Generator::Element::Junction 0.003;
# ABSTRACT: a Sieve allof/anyof/noneof test

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

#pod =head1 DESCRIPTION
#pod
#pod A junction renders a Sieve multi-test expression: C,
#pod C, or C (for C).  Each contained test is
#pod rendered on its own indented line.
#pod
#pod =attr type
#pod
#pod This attribute holds the junction type.  It must be one of C,
#pod C, or C.
#pod
#pod =cut

#pod =attr things
#pod
#pod This attribute holds the list of tests in the junction.  Each may be a plain
#pod string or an object doing L.
#pod
#pod =cut

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

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 $indent = q{  } x $i;

  my $type  = $self->type;
  my $func  = $type eq 'anyof'  ? 'anyof'
            : $type eq 'allof'  ? 'allof'
            : $type eq 'noneof' ? 'not anyof'
            : die "unknown junction type";

  my $str = "${indent}$func(\n";

  my @strs;
  for my $thing ($self->things) {
    my $substr = $thing->as_sieve($i+1);
    push @strs, $substr;
  }

  $str .= join qq{,\n}, @strs;
  $str .= "\n${indent})";

  return $str;
}

no Moo;
1;

__END__