File Coverage

blib/lib/String/Secret/Serializable.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch	2	2	100.0
condition			n/a
subroutine	6	10	60.0
pod	0	7	0.0
total	23	40	57.5

package String::Secret::Serializable;
use strict;
use warnings;

use parent qw/String::Secret/;

sub to_serializable { shift }

# for Storable
sub STORABLE_freeze {
    my ($self, $cloning) = @_;
    return $self->SUPER::STORABLE_freeze($cloning) if $cloning;
    return $self->unwrap;
}
sub STORABLE_thaw {
    my ($self, $cloning, $raw) = @_;
    return $self->SUPER::STORABLE_thaw(1, $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, $serialiser) = @_;
    return $self->unwrap;
}
sub THAW {
    my ($class, $serialiser, $raw) = @_;
    return $class->new($raw);
}

1;
__END__