Frey/Class/Refactor.pm

package Frey::Class::Refactor;
use Moose;

extends 'Frey';
with 'Frey::Web';

use Moose::Util::TypeConstraints;

use lib 'lib'; # :Write in vim needs it
use Frey::Shell::Grep;

has from => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'Frey::',
);

has to => (
        is => 'rw',
        isa => 'Str',
        required => 1,
        default => 'Frey::HTML::',
);


sub as_markup {
        my ($self) = @_;

        $self->add_css(qq|
                span.modify {
                        display: inline;
                        backgrund: #ffc;
                }
        |);

        my $len = length( $self->to );
        my $to = $self->to;

        my $change_number = 0;

        my $grep = Frey::Shell::Grep->new(
                pattern => $self->from,
        )->as_markup(
                dd => sub {
                        my ( $patt, $path, $line, $text ) = @_;
                        $text =~ s{(\Q$patt\E)}{
                        my $nr = $change_number++;
                        strip(qq|
                                <span class="modify">
                                <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;
                        qq|<dd><a target="editor" href="/editor+$path+$line">$line</a> <code>$text</code>|;
                },
        );

        $self->title( $self->from . ' => ' . $self->to );

        return qq|
                <form class="modify" action="/Frey::Class::Refactor::Modify/as_markup" method="post">
                <input type="hidden" name="from" value="| . $self->from . qq|">
                $grep
                <input type="submit" name="action" value="Modify">
                </form>
        |;
}

__PACKAGE__->meta->make_immutable;
no Moose;
no Moose::Util::TypeConstraints;

1;
1	package Frey::Class::Refactor;
2	use Moose;
3
4	extends 'Frey';
5	with 'Frey::Web';
6
7	use Moose::Util::TypeConstraints;
8
9	use lib 'lib'; # :Write in vim needs it
10	use Frey::Shell::Grep;
11
12	has from => (
13	is => 'rw',
14	isa => 'Str',
15	required => 1,
16	default => 'Frey::',
17	);
18
19	has to => (
20	is => 'rw',
21	isa => 'Str',
22	required => 1,
23	default => 'Frey::HTML::',
24	);
25
26
27	sub as_markup {
28	my ($self) = @_;
29
30	$self->add_css(qq\|
31	span.modify {
32	display: inline;
33	backgrund: #ffc;
34	}
35	\|);
36
37	my $len = length( $self->to );
38	my $to = $self->to;
39
40	my $change_number = 0;
41
42	my $grep = Frey::Shell::Grep->new(
43	pattern => $self->from,
44	)->as_markup(
45	dd => sub {
46	my ( $patt, $path, $line, $text ) = @_;
47	$text =~ s{(\Q$patt\E)}{
48	my $nr = $change_number++;
49	strip(qq\|
50	<span class="modify">
51	<input type="hidden" name="path" value="$path">
52	<input type="hidden" name="line" value="$line">
53	<input type="text" name="modification" value="$to" size=$len>
54	<input type="checkbox" name="selected" value=$nr checked>
55	</span>
56	\|)
57	}egs;
58	qq\|<dd><a target="editor" href="/editor+$path+$line">$line</a> <code>$text</code>\|;
59	},
60	);
61
62	$self->title( $self->from . ' => ' . $self->to );
63
64	return qq\|
65	<form class="modify" action="/Frey::Class::Refactor::Modify/as_markup" method="post">
66	<input type="hidden" name="from" value="\| . $self->from . qq\|">
67	$grep
68	<input type="submit" name="action" value="Modify">
69	</form>
70	\|;
71	}
72
73	__PACKAGE__->meta->make_immutable;
74	no Moose;
75	no Moose::Util::TypeConstraints;
76
77	1;