File Coverage

blib/lib/App/elsquid.pm

Criterion	Covered	Total	%
statement	28	40	70.0
branch	19	22	86.3
condition	3	9	33.3
subroutine	4	4	100.0
pod	0	1	0.0
total	54	76	71.0

package App::elsquid;
use strict;
use warnings;
use feature ':5.10';

require Exporter;
our @ISA = qw(Exporter);

our @EXPORT = qw(parse_line);



sub parse_line {  #  See: https://adblockplus.org/en/filters
    $_ = $_[0];

    my $domchars        = qr/[-a-zA-Z0-9.]+/;


    my $result = {};  # {} or { d => ... } or { u => ... } or { e => ... }


    return {} if /^\[/;
    return {} if /^!/;

    return {} if /^\@\@/;
    return {} if /#\@#/;

    return {} if /##/;

    return {} if /\$.*domain=/;


    if (/^\|\|($domchars)\^(\$|$)/) {
        my $domain = $1;
        # Output domain here for debugging purposes.
        return { d => $domain };
    }

    return {} if /\$/;


    return {} if m,^\|http://,;


    if (/^\|\|/) {
        s/^\|\|//;
        s/\^$//;


        # URL (no ^ * |) ?
        if (/^$domchars\// && !/\^/ && !/\*/ && !/\|/ ) {
            return { u => $_ }
        }
    }


    # Must be expression now; eventually with ^ * |  in it:

    my $caret    = "CCCCCC";
    my $asterisk = "AAAAAA";
    my $pipe     = "PPPPPPP";

    s/\^/$caret/g;
    s/\*/$asterisk/g;
    s/\|/$pipe/g;

    $_ = quotemeta;

    s/$caret/[\/?]/;
    s/$asterisk/.*/g;
    s/$pipe$/\$/;
    s/$pipe//;

    return { e => $_ };
}



1;


__END__