38 |
my $len = length( $self->to ); |
my $len = length( $self->to ); |
39 |
my $to = $self->to; |
my $to = $self->to; |
40 |
|
|
41 |
my $change_number = 1; |
my $change_number = 0; |
42 |
|
|
43 |
sub strip { |
sub strip { |
44 |
my $t = shift; |
my $t = shift; |
72 |
|
|
73 |
return qq| |
return qq| |
74 |
<form class="modify" action="/Frey::Class::Refactor::Modify/as_markup" method="post"> |
<form class="modify" action="/Frey::Class::Refactor::Modify/as_markup" method="post"> |
75 |
|
<input type="hidden" name="from" value="| . $self->from . qq|"> |
76 |
$grep |
$grep |
77 |
<input type="submit" name="action" value="Modify"> |
<input type="submit" name="action" value="Modify"> |
78 |
</form> |
</form> |