• Your recent searches
Net-OpenID-Common
1 match

 view release on metacpan or  search on metacpan

lib/Net/OpenID/Common.pm  view on Meta::CPAN 

               # stop parsing
               $p->eof;
           }
       },
       "self,tagname,attr"],

   text_h
   => [sub {
           my($p, $text) = @_;
           unless ($p->{first_chunk}) {
               # drop Unicode BOM if found
               if ($p->utf8_mode) {
                   $text =~ s/^\xEF\xBB\xBF//;
               }
               else {
                   $text =~ s/^\x{FEFF}//;
               }
               $p->{first_chunk}++;
           }
           # Normal text outside of an allowed <head> tag
           # means start of body



( run in 0.398 second using v1.01-cache-2.11-cpan-e9daa2b36ef )