Class/Refactor/Modify.pm

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

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

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

has selected => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub {},
);

has path => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub {},
);

has line => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub {},
);

has modification => (
        is => 'rw',
        isa => 'ArrayRef[Str]',
        default => sub {},
);

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

        my $dump;
        $dump->{$_} = $self->$_ foreach ( qw/selected path line modification/ );
        my $html = $self->html_dump( $dump );

        my @content;
        my $content_path;

        $html .= qq|<ul>|;

        foreach my $selected ( @{ $self->selected } ) {
                warn "# selected ", $self->dump( $selected );
                my $path = $self->path->[$selected] || die "no $selected path in ", $self->dump( $self->path );
                if ( $path ne $content_path ) {
                        $content_path = $path;
                        @content = $self->read_file( $content_path );
                        warn "# got $#content lines from ", $self->path_size( $content_path );
                }
                my $line = $self->line->[$selected] - 1;
                my $from = $self->from;
                my $to = $self->modification->[$selected];

                $content[ $line ] =~ s{\Q$from\E}{$to}s;
                $self->write_file( $content_path, @content );
        
                $html .= qq|<li>$line $from -&gt; $to <tt>| . $self->html_escape( $content[$line] ) . qq|</tt></li>|;
        }

        $html .= qq|</ul>|;

        $html;
}

1;
1	package Frey::Class::Refactor::Modify;
2	use Moose;
3
4	extends 'Frey';
5	with 'Frey::Web';
6	with 'Frey::File';
7
8	has from => (
9	is => 'rw',
10	isa => 'Str',
11	required => 1,
12	);
13
14	has selected => (
15	is => 'rw',
16	isa => 'ArrayRef[Str]',
17	default => sub {},
18	);
19
20	has path => (
21	is => 'rw',
22	isa => 'ArrayRef[Str]',
23	default => sub {},
24	);
25
26	has line => (
27	is => 'rw',
28	isa => 'ArrayRef[Str]',
29	default => sub {},
30	);
31
32	has modification => (
33	is => 'rw',
34	isa => 'ArrayRef[Str]',
35	default => sub {},
36	);
37
38	sub as_markup {
39	my ($self) = @_;
40
41	my $dump;
42	$dump->{$_} = $self->$_ foreach ( qw/selected path line modification/ );
43	my $html = $self->html_dump( $dump );
44
45	my @content;
46	my $content_path;
47
48	$html .= qq\|<ul>\|;
49
50	foreach my $selected ( @{ $self->selected } ) {
51	warn "# selected ", $self->dump( $selected );
52	my $path = $self->path->[$selected] \|\| die "no $selected path in ", $self->dump( $self->path );
53	if ( $path ne $content_path ) {
54	$content_path = $path;
55	@content = $self->read_file( $content_path );
56	warn "# got $#content lines from ", $self->path_size( $content_path );
57	}
58	my $line = $self->line->[$selected] - 1;
59	my $from = $self->from;
60	my $to = $self->modification->[$selected];
61
62	$content[ $line ] =~ s{\Q$from\E}{$to}s;
63	$self->write_file( $content_path, @content );
64
65	$html .= qq\|<li>$line $from -> $to <tt>\| . $self->html_escape( $content[$line] ) . qq\|</tt></li>\|;
66	}
67
68	$html .= qq\|</ul>\|;
69
70	$html;
71	}
72
73	1;