File Coverage

blib/lib/App/Greple/xlate/Filter.pm

Criterion	Covered	Total	%
statement	11	25	44.0
branch			n/a
condition			n/a
subroutine	4	8	50.0
pod	0	2	0.0
total	15	35	42.8

package App::Greple::xlate::Filter;

use v5.26;
use warnings;
use Data::Dumper;

use Exporter 'import';
our @EXPORT = qw(lineify_colon lineify_cm);

my %RE = (
    LANG  => qr/ORIGINAL|\w\w(-\w\w)?/,
);

##
## Convert to line-by-line output if only part of a line is being translated
##
## * At this time, if a line contains more than one target area,
##   it results in being split across multiple lines.
##

sub lineify_colon {
    local $_ = do { local $/; <> };
    _colon();
    print;
}
sub _colon {
    s{
	(^|\G)
	(? (?.+)?)  (? :{7,}) \s+ (? ($RE{LANG})) \n
	(?  .+)         \g{mark}            \n
	\g{mark} \s+        (? ($RE{LANG})) \n
	(?  .+)         \g{mark}            \n
	(? (?() ((?!:{7}).)* | ((?!:{7}).)+ )) \n?
    }{
	<<~EOF;
	$+{mark} $+{l1}
	$+{pre}$+{t1}$+{post}
	$+{mark}
	$+{mark} $+{l2}
	$+{pre}$+{t2}$+{post}
	$+{mark}
	EOF
    }xnmge;
}

sub lineify_cm {
    local $_ = do { local $/; <> };
    _cm();
    print;
}
sub _cm {
    s{
	(^|\G)
	(? (?.+)?) (? <<<<<<<) \s+ (? ($RE{LANG}))  \n
	(?  .+)        (? =======)                          \n
	(?  .+)        (? >>>>>>>) \s+ (? ($RE{LANG}))  \n
	(? (?() ((?!<<<<<<<).)* | ((?!<<<<<<<).)+ )) \n?
    }{
	<<~EOF;
	$+{m1} $+{l1}
	$+{pre}$+{t1}$+{post}
	$+{m2}
	$+{pre}$+{t2}$+{post}
	$+{m3} $+{l2}
	EOF
    }xnmge;
}

1;