/[webpac2]/trunk/lib/WebPAC/Parser.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Parser.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1204 by dpavlin, Fri May 29 19:38:09 2009 UTC revision 1265 by dpavlin, Sun Aug 9 20:10:21 2009 UTC
# Line 312  sub _parse_source { Line 312  sub _parse_source {
312    
313          my $Document = PPI::Document->new( \$source ) || $log->logdie("can't parse source:\n", $self->{source});          my $Document = PPI::Document->new( \$source ) || $log->logdie("can't parse source:\n", $self->{source});
314    
315          #$Document->prune('PPI::Token::Whitespace');          $Document->prune('PPI::Token::Whitespace');
316          $Document->prune('PPI::Token::Comment');          $Document->prune('PPI::Token::Comment');
317          #$Document->prune('PPI::Token::Operator');          #$Document->prune('PPI::Token::Operator');
318    
# Line 337  sub _parse_source { Line 337  sub _parse_source {
337                                  # repair demage done by prune of whitespace                                  # repair demage done by prune of whitespace
338                                  $Element->insert_after( PPI::Token::Whitespace->new(' ') );                                  $Element->insert_after( PPI::Token::Whitespace->new(' ') );
339                                  return '';                                  return '';
340                            } elsif ( $Element->content eq 'my' ) {
341                                    $Element->insert_before( PPI::Token::Whitespace->new(' ') );
342                          }                          }
343    
344                          $Element->content eq 'lookup' or return '';                          $Element->content eq 'lookup' or return '';
Legend:
Removed from v.1204  
changed lines
  Added in v.1265
  ViewVC Help
Powered by ViewVC 1.1.26