/[A3C]/lib/A3C/PHP.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 /lib/A3C/PHP.pm

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

revision 139 by dpavlin, Fri May 30 20:53:14 2008 UTC revision 140 by dpavlin, Fri May 30 22:02:19 2008 UTC
# Line 4  use strict; Line 4  use strict;
4  use Parse::RecDescent;  use Parse::RecDescent;
5  use Data::Dump qw/dump/;  use Data::Dump qw/dump/;
6  use File::Slurp;  use File::Slurp;
7    use Encode qw/decode/;
8    
9  =head1 NAME  =head1 NAME
10    
# Line 16  parser based on L<PHP::Include::Vars> Line 17  parser based on L<PHP::Include::Vars>
17    
18  It currently ignores C<include> PHP function.  It currently ignores C<include> PHP function.
19    
20    =head1 CONFIG
21    
22      $A3C::PHP::debug = 0;
23      $A3C::PHP::charset = 'iso-8859-2';
24    
25  =head1 METHODS  =head1 METHODS
26    
27  =cut  =cut
28    
29  our $debug = 0;  our $debug = 0;
30    our $charset = 'iso-8859-2';
31    
32  our $perl = '';  our $perl = '';
33  our $data;  our $data;
# Line 126  sub parse { Line 133  sub parse {
133          $perl = '';          $perl = '';
134          if ( $debug ) {          if ( $debug ) {
135                  $::RD_TRACE = 1;                  $::RD_TRACE = 1;
136                  warn "PHP: $php\n";                  warn "PHP [$charset]: $php\n";
137          }          }
138          my $parser = Parse::RecDescent->new( $grammar );          my $parser = Parse::RecDescent->new( $grammar );
139          $parser->php_vars( $php );          $parser->php_vars( decode($charset,$php) );
140          warn "## GENERATED PERL:\n\n", $perl, "\n\n" if $debug;          warn "## GENERATED PERL:\n\n", $perl, "\n\n" if $debug;
141          my $data;          my $data;
142          eval $perl;          eval $perl;
Legend:
Removed from v.139  
changed lines
  Added in v.140
  ViewVC Help
Powered by ViewVC 1.1.26