Changeset 2000

Show
Ignore:
Timestamp:
10/03/06 23:59:08
Author:
miyagawa
Message:

added some croak() code

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • HTML-Selector-XPath/trunk/lib/HTML/Selector/XPath.pm

    r1999 r2000  
    77our @EXPORT_OK = qw(selector_to_xpath); 
    88*import = \&Exporter::import; 
     9 
     10use Carp; 
    911 
    1012sub selector_to_xpath { 
     
    8688                push @parts, "[\@$1='$3']"; 
    8789            } 
    88         } else { 
    89             if ($rule =~ s/$reg->{attr1}//) { 
    90                 push @parts, "[\@$1]"; 
    91             } 
     90        } elsif ($rule =~ s/$reg->{attr1}//) { 
     91            push @parts, "[\@$1]"; 
    9292        } 
    9393 
     
    105105            } elsif ($sub_rule =~ s/$reg->{attr1}//) { 
    106106                push @parts, "[not(\@$1)]"; 
     107            } else { 
     108                Carp::croak "Can't translate '$sub_rule' inside :not()"; 
    107109            } 
    108110        } 
     
    114116            } elsif ($1 =~ /^lang\(([\w\-]+)\)$/) { 
    115117                push @parts, "[\@xml:lang='$1' or starts-with(\@xml:lang, '$1-')]"; 
     118            } else { 
     119                Carp::croak "Can't translate '$1' pseudo-class"; 
    116120            } 
    117121        } 
  • HTML-Selector-XPath/trunk/t/02_html.t

    r1999 r2000  
    119119<div>foo</div> 
    120120 
     121=== 
     122--- SKIP 
     123--- input 
     124<p>foo</p> 
     125<div class="foo">baz</div> 
     126--- selector 
     127*:not(p) 
     128--- expected 
     129<div class="foo">baz</div> 
     130