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;
}