--- trunk/lib/Frey/Class/Rename.pm	2008/12/06 00:26:12	732
+++ trunk/lib/Frey/Class/Refactor.pm	2008/12/09 20:31:30	768
@@ -1,4 +1,4 @@
-package Frey::Class::Rename;
+package Frey::Class::Refactor;
 use Moose;
 
 extends 'Frey';
@@ -10,30 +10,6 @@
 use lib 'lib'; # :Write in vim needs it
 use Frey::Shell::Grep;
 
-sub action_order { qw/find change/ }
-enum 'action_order' => action_order;
-
-has action => (
-	is => 'rw',
-	isa => 'action_order',
-	required => 1,
-	default => 'find', # FIXME first step, should be optional
-);
-
-=head2 as_markup
-
-Simpliest possible dispatch example
-
-=cut
-
-sub as_markup {
-	my ($self) = @_;
-	my $to = $self->action;
-	$self->$to;
-}
-
-# step 1 find
-
 has from => (
 	is => 'rw',
 	isa => 'Str',
@@ -49,7 +25,7 @@
 );
 
 
-sub find {
+sub as_markup {
 	my ($self) = @_;
 
 	$self->add_css(qq|
@@ -81,10 +57,10 @@
 			my $nr = $change_number++;
 			strip(qq|
 				<span class="modify">
-				<input type="hidden" name="change_path" value="$path">
-				<input type="hidden" name="change_line" value="$line">
-				<input type="text" name="change_modification" value="$to" size=$len>
-				<input type="checkbox" name="change_selected" value=$nr checked>
+				<input type="hidden" name="path" value="$path">
+				<input type="hidden" name="line" value="$line">
+				<input type="text" name="modification" value="$to" size=$len>
+				<input type="checkbox" name="selected" value=$nr checked>
 				</span>
 			|)
 			}egs;
@@ -94,53 +70,12 @@
 
 	$self->title( $self->from . ' => ' . $self->to );
 
-	my $preserve;
-
-	$self->step('modify');
-	$preserve .= qq|<input type="hidden" name="$_" value="| . $self->$_ . qq|">| foreach ( qw/step action_on from to/ );
-
 	return qq|
-		<form class="modify" method="post">
-		$preserve
+		<form class="modify" action="/Frey::Class::Refactor::Modify/as_markup" method="post">
 		$grep
-		<input type="submit" name="action"
+		<input type="submit" name="action" value="Modify">
 		</form>
 	|;
 }
 
-# step 2 modify
-
-has change_selected => (
-	is => 'rw',
-	isa => 'ArrayRef[Str]',
-	default => sub {},
-);
-
-has change_path => (
-	is => 'rw',
-	isa => 'ArrayRef[Str]',
-	default => sub {},
-);
-
-has change_line => (
-	is => 'rw',
-	isa => 'ArrayRef[Str]',
-	default => sub {},
-);
-
-has change_modification => (
-	is => 'rw',
-	isa => 'ArrayRef[Str]',
-	default => sub {},
-);
-
-sub modify {
-	my ($self) = @_;
-
-	my $dump;
-	$dump->{$_} = $self->$_ foreach ( qw/change_selected change_path change_line change_modification/ );
-
-	return $self->html_dump( $dump );
-}
-
 1;