KeyMangler example app

[scpubgit/DKit.git] / lib / DX / Lib / FS / Action / RewriteFile.pm

diff --git a/lib/DX/Lib/FS/Action/RewriteFile.pm b/lib/DX/Lib/FS/Action/RewriteFile.pm
index 0e7548f..b1b8a08 100644 (file)
--- a/lib/DX/Lib/FS/Action/RewriteFile.pm
+++ b/lib/DX/Lib/FS/Action/RewriteFile.pm
@@ -4,16 +4,17 @@ use DX::Lib::FS::Fact::FileContent;
 use Moo;
 
 with 'DX::Role::Action';
+with 'DX::Lib::FS::Role::RunOn';
 
-has from => (is => 'ro', required => 1);
+has from => (is => 'ro', required => 1, handles => [ 'path' ]);
 
 has add_lines => (is => 'ro', default => sub { [] });
 
-has remove_lines => (is => 'ro', default => sub { {} });
+has remove_lines => (is => 'ro', default => sub { [] });
 
 has final_content => (is => 'lazy', init_arg => undef, builder => sub {
   my ($self) = @_;
-  my %remove = %{$self->remove_lines};
+  my %remove = map +($_ => 1), @{$self->remove_lines};
   join("\n",
     (grep !$remove{$_}, $self->from->lines->all),
     @{$self->add_lines},
@@ -26,17 +27,21 @@ sub but_add {
 }
 
 sub but_remove {
-  $_[0]->but(remove_lines => [ %{$_[0]->remove_lines}, $_[1] => 1 ]);
+  $_[0]->but(remove_lines => [ @{$_[0]->remove_lines}, $_[1] ]);
 }
 
 sub expected_effect {
   my ($self) = @_;
   +(file_content => DX::Lib::FS::Fact::FileContent->new(
-    path => $self->from->path,
+    path => $self->path,
     data => $self->final_content
   ));
 }
 
-sub _do_run { die }
+sub _do_run {
+  my ($self) = @_;
+  $self->_call_guts(rewrite_file => $self->final_content);
+  return +(file_content => $self->path);
+}
 
 1;