More END block cleanups, 7 to go.

This commit is contained in:
Colin Kuskie 2010-06-15 16:49:34 -07:00
parent fecc2bec54
commit 0b2d78ed71
4 changed files with 225 additions and 234 deletions

View file

@ -56,6 +56,12 @@ my $snippet = $folder->addChild({
$versionTag->commit;
WebGUI::Test->addToCleanup(sub {
foreach my $metaDataFieldId (keys %{ $snippet->getMetaDataFields }) {
$snippet->deleteMetaDataField($metaDataFieldId);
}
});
##Note that there is no MetaData field master class. New fields can be added
##from _ANY_ asset, and be available to all assets.
@ -226,8 +232,4 @@ sub buildNameIndex {
return $nameStruct;
}
END {
foreach my $metaDataFieldId (keys %{ $snippet->getMetaDataFields }) {
$snippet->deleteMetaDataField($metaDataFieldId);
}
}
#vim:ft=perl