Skip to content

Commit

Permalink
More END block cleanups, 7 to go.
Browse files Browse the repository at this point in the history
  • Loading branch information
perlDreamer committed Jun 15, 2010
1 parent fecc2be commit 0b2d78e
Show file tree
Hide file tree
Showing 4 changed files with 239 additions and 248 deletions.
12 changes: 7 additions & 5 deletions t/Asset/AssetMetaData.t
Expand Up @@ -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.

Expand Down Expand Up @@ -226,8 +232,4 @@ sub buildNameIndex {
return $nameStruct;
}

END {
foreach my $metaDataFieldId (keys %{ $snippet->getMetaDataFields }) {
$snippet->deleteMetaDataField($metaDataFieldId);
}
}
#vim:ft=perl

0 comments on commit 0b2d78e

Please sign in to comment.