* more work towards perlcritic compliance, fixed the low-hanging fruit

  for level 4

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1234 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 7 insertions, 0 deletions

diff --git a/installer/OpenSLX/OSExport/Engine.pm b/installer/OpenSLX/OSExport/Engine.pm
index 31a71b5a..ad0c0c0a 100644
--- a/installer/OpenSLX/OSExport/Engine.pm
+++ b/installer/OpenSLX/OSExport/Engine.pm
@@ -86,6 +86,7 @@ sub initializeFromExisting
 
 	$self->_initialize($vendorOS->{name}, $vendorOS->{id}, $export->{name},
 		$export->{type});
+	return;
 }
 
 sub initializeForNew
@@ -108,6 +109,7 @@ sub initializeForNew
 
 	$self->_initialize($vendorOS->{name}, $vendorOS->{id}, $exportName,
 		$exportType);
+	return;
 }
 
 sub exportVendorOS
@@ -130,6 +132,7 @@ sub exportVendorOS
 		)
 	);
 	$self->_addExportToConfigDB();
+	return;
 }
 
 sub purgeExport
@@ -146,6 +149,7 @@ sub purgeExport
 		);
 	}
 	$self->_removeExportFromConfigDB();
+	return;
 }
 
 sub generateExportURI
@@ -238,6 +242,7 @@ sub _initialize
 			$exporter->{'export-path'}
 		)
 	);
+	return;
 }
 
 sub _addExportToConfigDB
@@ -285,6 +290,7 @@ sub _addExportToConfigDB
 	}
 
 	$openslxDB->disconnect();
+	return;
 }
 
 sub _removeExportFromConfigDB
@@ -325,6 +331,7 @@ sub _removeExportFromConfigDB
 	}
 
 	$openslxDB->disconnect();
+	return;
 }
 
 1;