File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	24	26	92.3

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

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

#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) {
  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 // 0)) . "[ $str ]";
}

no Moo;
1;

__END__