view release on metacpan or  search on metacpan

TagRecord.pm  view on Meta::CPAN

	my $fieldName;
	foreach $fieldName (@{$schema{ORDER}}) {
		print RECORD ("[$fieldName]: ", 
			defined($self->{$fieldName}) ? 
			$self->{$fieldName} : '', "\n");
	}

	close (RECORD); # This close unlocks the file

	if (defined $self->{_FILEMODE}) {
		chmod ($self->{_FILEMODE}, $self->{_FILENAME})
			or croak "Can't chmod $$self{_FILENAME}";
	}

	delete $self->{_UPDATED};
}

1;