CPAN::Groonga

alizable by \$secret->to_serializable";
}

# for JSON modules
sub TO_JSON { shift->to_string }

# for CBOR
sub TO_CBOR { shift->to_string }

# for JSON, CBOR, Sereal, ...
sub FREEZE { shift->to_string

m logger

=head1 SYNOPSIS

    use String::Secret;
    use String::Compare::ConstantTime;
    use JSON::PP ();

    my $secret = String::Secret->new('mysecret');

    # safe secret for logging
    MyL

ecret: ********"

    # and safe secret for serialization
    # MyLogger->warn("invalid secret: ".JSON::PP->new->allow_tags->encode({ secret => $secret })); # oops! but the secret is hidden: invalid s

 $raw); # force cloging to set REAL secret
}

# for JSON modules
sub TO_JSON { shift->unwrap }

# for CBOR
sub TO_CBOR { shift->unwrap }

# for JSON, CBOR, Sereal, ...
sub FREEZE {
    my ($self, $ser