File Coverage

lib/CSS/Watcher/Parser.pm

Criterion	Covered	Total	%
statement	42	44	95.4
branch	14	18	77.7
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	64	72	88.8

package CSS::Watcher::Parser;

use strict;
use warnings;

use Carp;
use Log::Log4perl qw(:easy);
use CSS::Selector::Parser qw/parse_selector/;

my $nested;                     # regexp for "{ }"
$nested = qr/
                \{
                (
                    [^{}]
                |
                    (??{ $nested })
                )*
                \}
            /x;

sub new {
    my $class = shift;
    return bless ({}, $class);
}

sub parse_css {
    my $self = shift;
    my $source = shift;

    my %classes;
    my %ids;

    $self->_parse_css($source, \%classes, \%ids);

    return (\%classes, \%ids);
}

sub _parse_css {
    my $self = shift;
    my ($source, $classes, $ids) = @_;

    $source =~s|/\*.*?\*/||gs;      # remove comments

    while ($source =~ m/(.*?)($nested)/gs) {
        my ($selector, $selector_body) = ($1, $2);

        if ($selector =~/\s*\@media/s) {
            if ($selector_body =~m /\{(.+)\}/s) {
                $self->_parse_css($1, $classes, $ids);
            }
            next;
        } elsif ($selector =~/\s*\@/s) {
            # ignore @keyframes, etc @..
            next;
        }
        eval {
            foreach (parse_selector($selector)) {
                next unless (ref $_ eq 'ARRAY');
                foreach my $rule (@{$_}) {
                    if (exists $rule->{class}) {
                        # Bug, selector for .foo.bar return class foo.bar
                        # so split this selector by "."
                        foreach my $classname (split /\./, $rule->{class}) {
                            $classes->{
                                exists ($rule->{element}) ? $rule->{element} : "global"
                            }{ $classname }++;
                        }
                    }
                    if (exists $rule->{id}) {
                        $ids->{
                            exists ($rule->{element}) ? $rule->{element} : "global"
                        }{ $rule->{id} }++;
                    }
                }
            }
        };
        if ($@) {
            # log selector parse failure
            ERROR "Can't parse selector: \"$selector\"";
        }
    }
}


1;

__END__