/usr/share/perl5/Prophet/Resolver/AlwaysTarget.pm is in libprophet-perl 0.750-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | package Prophet::Resolver::AlwaysTarget;
use Any::Moose;
use Data::Dumper;
extends 'Prophet::Resolver';
sub run {
my $self = shift;
my $conflicting_change = shift;
my $conflict = shift;
my $resolution = Prophet::Change->new_from_conflict($conflicting_change);
my $file_op_conflict = $conflicting_change->file_op_conflict || '';
if ( $file_op_conflict eq 'update_missing_file' ) {
$resolution->change_type('delete');
return $resolution;
} elsif ( $file_op_conflict eq 'delete_missing_file' ) {
return $resolution;
} elsif ( $file_op_conflict ) {
die "Unknown file_op_conflict $file_op_conflict: " . Dumper($conflict,$conflicting_change);
}
for my $prop_change ( @{ $conflicting_change->prop_conflicts } ) {
$resolution->add_prop_change(
name => $prop_change->name,
old => $prop_change->source_new_value,
new => $prop_change->target_value
);
}
return $resolution;
}
__PACKAGE__->meta->make_immutable;
no Any::Moose;
1;
|