0x1af4 / lzJep Tţ !_ub &=LV[( package DBI::Gofer::Serializer::DataDumper; use strict; use warnings; our $VERSION = "0.009950"; # $Id: DataDumper.pm 9949 2007-09-18 09:38:15Z Tim $ # # Copyright (c) 2007, Tim Bunce, Ireland # # You may distribute under the terms of either the GNU General Public # License or the Artistic License, as specified in the Perl README file. =head1 NAME DBI::Gofer::Serializer::DataDumper - Gofer serialization using DataDumper =head1 SYNOPSIS $serializer = DBI::Gofer::Serializer::DataDumper->new(); $string = $serializer->serialize( $data ); =head1 DESCRIPTION Uses DataDumper to serialize. Deserialization is not supported. The output of this class is only meant for human consumption. See also L. =cut use Data::Dumper; use base qw(DBI::Gofer::Serializer::Base); sub serialize { my $self = shift; local $Data::Dumper::Indent = 1; local $Data::Dumper::Terse = 1; local $Data::Dumper::Useqq = 0; # enabling this disables xs local $Data::Dumper::Sortkeys = 1; local $Data::Dumper::Quotekeys = 0; local $Data::Dumper::Deparse = 0; local $Data::Dumper::Purity = 0; my $frozen = Data::Dumper::Dumper(shift); return $frozen unless wantarray; return ($frozen, $self->{deserializer_class}); } 1; # lz hm@=q\jbѿ d ? d  !!!;!?R!!! !! ! !")### # # ## #$ $ $$ .$ 8$E$ N$X$ ]$$g$&$($2$'%7%(W%#%#%'%#%+&!@&'b&& & & & &&& & &''*'>'R'f'z''''''' (( )( 5( A( N( [( h( u( ( ( ( ( ( ( ( ( ( ( ) ) ) *) 7) D) Q) ]) j) w) ) ) ) ) ) ) ))))) **5*C9*.}*;**++1+D+ Z+f+++++++ ,$,:,R,!q,,!,!,,--1- L- Y- g-u-------.!.3;.o..1..".$/3/M/$f/$/$/"/$/0!:0\0v00%000 1,1J1i1111.12-2K2g2~2 2 2 222 22/323L3U3j333 3 3 3333#3" 42.4a4#44 4444445"05S5g5)5'5556%646)P6z666666 667H7`7}7 77777 7 77 78 88-8 ?8L8[8 w8 8 88 88?8 9#9 +9L9[9m9 99 99999H9#:2: ;:E:K:T:j:y::: : :: :+: ;4&;>[;:;; ; ; < < = (=4=<=!E=g=#n===== = = = = > >.%>T>s[>%>> >? ?&?7?F?V? f?t?