File Coverage

File:blib/lib/CSS/Parse/Rule/Trace.pm
Coverage:100.0%

linestmtbrancondsubtimecode
1package CSS::Parse::Rule::Trace;
2
3
2
2
2
2
12
4
14
use base 'CSS::Parse::Rule';
4
5sub match {
6
4
4
10
        my $self = shift;
7
8
4
100
126
        print "Starting to match $self->{name}\n" if $self->{trace_in};
9
10
4
30
        my $ret = $self->SUPER::match(@_);
11
12
4
100
100
129
        print "Ending match on $self->{name} (".(defined $ret ? 'MATCHED' : 'no match').")\n" if $self->{trace_out};
13
14
4
11
        return $ret;
15}
16
171;
18