[ Index ] |
PHP Cross Reference of Unnamed Project |
[Summary view] [Print] [Text view]
1 # NOTE: Derived from ../../lib/Storable.pm. 2 # Changes made here will be lost when autosplit is run again. 3 # See AutoSplit.pm. 4 package Storable; 5 6 #line 330 "../../lib/Storable.pm (autosplit into ../../lib/auto/Storable/_freeze.al)" 7 # Internal freeze routine 8 sub _freeze { 9 my $xsptr = shift; 10 my $self = shift; 11 logcroak "not a reference" unless ref($self); 12 logcroak "too many arguments" unless @_ == 0; # No @foo in arglist 13 my $da = $@; # Don't mess if called from exception handler 14 my $ret; 15 # Call C routine mstore or net_mstore, depending on network order 16 eval { $ret = &$xsptr($self) }; 17 logcroak $@ if $@ =~ s/\.?\n$/,/; 18 $@ = $da; 19 return $ret ? $ret : undef; 20 } 21 22 # end of Storable::_freeze 23 1;
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |