1# Default serializer class, so that we don't have to depend on Data::Serializer. 2# Recommend Data::Serializer for other serializers, rather than reinventing the wheel. 3# 4package CHI::Serializer::Storable; 5$CHI::Serializer::Storable::VERSION = '0.60'; 6use Moo; 7use Storable; 8use strict; 9use warnings; 10 11sub serialize { 12 return Storable::nfreeze( $_[1] ); 13} 14 15sub deserialize { 16 return Storable::thaw( $_[1] ); 17} 18 19sub serializer { 20 return 'Storable'; 21} 22 231; 24