File Coverage

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

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	4	4	100.0
pod	0	1	0.0
total	24	27	88.8

use v5.36.0;
package Sieve::Generator::Element::QstrList 0.003;
# ABSTRACT: a Sieve string list (a bracketed list of quoted strings)

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

#pod =head1 DESCRIPTION
#pod
#pod A C renders a list of Perl strings as a Sieve string list -- a
#pod comma-separated sequence of quoted strings enclosed in square brackets, as
#pod defined in RFC 5228 section 2.4.2.
#pod
#pod =attr strs
#pod
#pod This attribute holds the arrayref of strings to be encoded.
#pod
#pod =cut

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

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

  state $JSON = JSON::MaybeXS->new->utf8(0)->allow_nonref;

  my $str = join q{, }, map {;
    defined || Carp::confess("can't encode undef"); # XXX
    $JSON->encode("$_")
  } $self->strs->@*;

  return (q{  } x $i) . "[ $str ]";
}

no Moo;
1;

__END__