in reply to Re: General Class Creation Using Persistent Object, Method Privacy Enforcement and Exceptions
in thread General Class Creation Using Persistent Object, Method Privacy Enforcement and Exceptions
Thanks, I missed the fact that I had hard coded the store file name but had passed the reference to the file name. The sub store_object {} should read as follows:
sub store_object { my ( $self, $sref_file ) = @_; # Caller Check my $return = $self->_caller_check(); if ( $return ) { print STDERR $$return . "\n"; return $return; } Storable::store ( \%{ $self }, $$sref_file ); return undef; }
Peace Out,
DeadPoet
In Section
Meditations