File Coverage

blib/lib/File/Find/Rule/ConflictMarker.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	25	27	92.5

package File::Find::Rule::ConflictMarker;
use strict;
use warnings;
use parent qw/File::Find::Rule/;

our $VERSION = '0.02';

my $CONFLICT_MARKER_BASE    = '<' x 7;
my $CONFLICT_MARKER_DEVIDER = '=' x 7;
my $CONFLICT_MARKER_TARGET  = '>' x 7;
my $CONFLICT_MARKER_SOURCE  = '|' x 7;

my $CONFLICT_MARKER_COND = join '|', map { "\Q$_\E" } (
    $CONFLICT_MARKER_BASE,
    $CONFLICT_MARKER_DEVIDER,
    $CONFLICT_MARKER_TARGET,
    $CONFLICT_MARKER_SOURCE,
);

our $CONFLICT_MARKER_REGEX = qr/($CONFLICT_MARKER_COND)/;

sub File::Find::Rule::conflict_marker {
    my ($file_find_rule) = @_;

    my $self = $file_find_rule->_force_object;

    return $self->file->exec(sub{
        my ($file) = @_;

        open my $fh, '<', $file or die "Could not open $file, $!";
        my $content = do { local $/; <$fh>; };
        close $fh;

        return $content =~ m!$CONFLICT_MARKER_REGEX!;
    });
}

1;

__END__