[Israel.pm] freeze / store issue

[Chanan Berler]

Hello All,

I have a problem using storeable, I am trying to storeable object with
ref to functions...
error message:Can't store CODE items at blib/lib/Storable.pm
(autosplit into blib/lib/auto/Storable/_freeze.al) line 339....
Any ideas ? I tried both using Storeable and freeze

Thanks
Chanan


        $Storable::Deparse = 1;
        my $response_file               = '/tmp/response.data';
        my $response_data_file  = '/tmp/resp_data.data';
        store $response, $response_file;
        store $resp_data, $response_data_file;

OR
        my $response_freeze             = mixtv::util::_freeze_($response);
        my $resp_data_freeze    = mixtv::util::_freeze_($resp_data);

where
sub _freeze_
{
                my ($data) = shift;
                my $caller = (caller(1))[3];

                # get logger / performance refrences
                my ($log, $performance) = _get_logger();
                unless (defined $data)
                {
                        $log->error("failed to freeze (Storable::freeze) data, 
missing data
to freeze, caller:$caller");
                        return undef;
                }

                my $result = undef;
                eval{
                        $result = Storable::freeze($data);
            #utf8::upgrade($result) or undef $result;
                };
                if ($@)
                {
                        $log->error("failed to freeze (Storable::freeze) data,
caller:$caller, error message:$@");
                }

                return $result;
}

-- 
===================
----     Chanan Berler    ----
===================
_______________________________________________
Perl mailing list
Perl@perl.org.il
http://mail.perl.org.il/mailman/listinfo/perl