ChangeLogTag: Tue Jun 17 17:16:07 UTC 2008 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 5 insertions, 8 deletions

diff --git a/modules/WorkspaceHelper.pm b/modules/WorkspaceHelper.pm
index 17c694d0..8c50e07c 100644
--- a/modules/WorkspaceHelper.pm
+++ b/modules/WorkspaceHelper.pm
@@ -16,14 +16,14 @@ use strict;
 # Data Section
 # ************************************************************
 
-my(%required) = ();
+my %required;
 
 # ************************************************************
 # Subroutine Section
 # ************************************************************
 
 sub get {
-  my($type) = shift;
+  my $type = shift;
 
   ## Create the helper name
   $type =~ s/Creator/Helper/;
@@ -52,16 +52,13 @@ sub get {
 
 
 sub new {
-  my($class) = shift;
-  return bless {
-               }, $class;
+  my $class = shift;
+  return bless {}, $class;
 }
 
 
 sub modify_value {
-  my($self)  = shift;
-  my($name)  = shift;
-  my($value) = shift;
+  my($self, $name, $value) = @_;
   return $value;
 }