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