refactored strip command

dagolden · Sep 28, 2012 · 55413c4 · 55413c4
1 parent 676b10a
commit 55413c4
Showing 1 changed file with 9 additions and 14 deletions.
diff --git a/lib/Pantry/App/Command/rename.pm b/lib/Pantry/App/Command/rename.pm
@@ -18,23 +18,18 @@ sub command_type {
   return 'DUAL_TARGET';
 }
 
-sub valid_types {
-  return qw/node role environment/
-}
+my @types = qw/node role environment/;
 
-sub _rename_node {
-  my ($self, $opt, $name, $dest) = @_;
-  return $self->_rename_obj($opt, 'node', $name, $dest);
-}
-
-sub _rename_role {
-  my ($self, $opt, $name, $dest) = @_;
-  return $self->_rename_obj($opt, 'role', $name, $dest);
+sub valid_types {
+  return @types;
 }
 
-sub _rename_environment {
-  my ($self, $opt, $name, $dest) = @_;
-  return $self->_rename_obj($opt, 'environment', $name, $dest);
+for my $t (@types) {
+  no strict 'refs';
+  *{"_rename_$t"} = sub {
+    my ($self, $opt, $name, $dest) = @_;
+    return $self->_rename_obj($opt, $t, $name, $dest);
+  };
 }
 
 sub _rename_obj {