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	dpavlin	746	package Frey::Class::Refactor::Modify;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6	dpavlin	750	with 'Frey::File';
7	dpavlin	746
8	dpavlin	750	has from => (
9			is => 'rw',
10			isa => 'Str',
11			required => 1,
12			);
13
14	dpavlin	746	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	dpavlin	750	my $html = $self->html_dump( $dump );
44	dpavlin	746
45	dpavlin	750	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	dpavlin	746	}
72
73			1;