collections
=cut
package Collection::CrcColl;
use strict;
use warnings;
use String::CRC32;
use JSON::XS;
use Collection::AutoSQL;
our @ISA = qw(Collection::AutoSQL);
our $VERSION = '0.11';
sub raw
( raw2hex) BINARY
refhash => { var1=>'1', var2=>0} string ('var1=0 , var=2')
json => string json serialized
=cut
sub _create {
my ( $self, %arg ) = @_;
my $table_name = $self-
d=0'
$val ={ map { split/=/,$_ } split /,/, $val };
}
if ($type eq 'json' ) {
unless ($val) {
$val = {}
} else {
#