File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition	2	2	100.0
subroutine	4	4	100.0
pod	0	1	0.0
total	22	24	91.6

use v5.36.0;
package Sieve::Generator::Text::Qstr 0.001;
# ABSTRACT: a Sieve quoted string

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

#pod =head1 DESCRIPTION
#pod
#pod A C renders a single Perl string as a Sieve quoted string.
#pod
#pod =attr str
#pod
#pod This attribute holds the string to be quoted.
#pod
#pod =cut

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

sub as_sieve ($self, $i = undef) {
  # Sieve strings and string lists are compatible with JSON
  # https://tools.ietf.org/html/rfc5228#section-2.4.2
  #
  # Keep everything as a unicode string
  state $JSON = JSON::MaybeXS->new->utf8(0)->allow_nonref;
  Carp::confess("can't encode undef") unless defined $self->str; # XXX

  return (q{  } x ($i // 0)) . $JSON->encode("" . $self->str);
}

no Moo;
1;

__END__