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; |
|
|
|
|
sub strip { |
|
|
my $t = shift; |
|
|
$t =~ s{^\s+}{}gs; |
|
|
$t =~ s{>\s+<}{><}gs; |
|
|
$t =~ s{\s+$}{}gs; |
|
|
return $t; |
|
|
} |
|
42 |
|
|
43 |
my $grep = Frey::Shell::Grep->new( |
my $grep = Frey::Shell::Grep->new( |
44 |
pattern => $self->from, |
pattern => $self->from, |
64 |
|
|
65 |
return qq| |
return qq| |
66 |
<form class="modify" action="/Frey::Class::Refactor::Modify/as_markup" method="post"> |
<form class="modify" action="/Frey::Class::Refactor::Modify/as_markup" method="post"> |
67 |
|
<input type="hidden" name="from" value="| . $self->from . qq|"> |
68 |
$grep |
$grep |
69 |
<input type="submit" name="action" value="Modify"> |
<input type="submit" name="action" value="Modify"> |
70 |
</form> |
</form> |