view release on metacpan or  search on metacpan

lib/App/Greple/xlate/Filter.pm  view on Meta::CPAN

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