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},
}
sub but_remove {
- $_[0]->but(remove_lines => { %{$_[0]->remove_lines}, $_[1] => 1 });
+ $_[0]->but(remove_lines => [ @{$_[0]->remove_lines}, $_[1] ]);
}
sub expected_effect {