Parse-RPN

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "HTTP::Date" : "0",
            "PadWalker" : "0"
         }
      }
   },
   "release_status" : "stable",
   "version" : "2.87",
   "x_serialization_backend" : "JSON::PP version 4.07"
}

META.yml  view on Meta::CPAN

meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Parse-RPN
no_index:
  directory:
    - t
    - inc
requires:
  HTTP::Date: '0'
  PadWalker: '0'
version: '2.87'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
     NAME      => 'Parse::RPN',
     VERSION_FROM => 'lib/Parse/RPN.pm', # finds $VERSION
     ABSTRACT       => 'Parse::RPN Is a minimalist RPN parser/processor (a little like FORTH)',
             dist => { COMPRESS=>"gzip -f", SUFFIX=>"gz" },
     PREREQ_PM => { HTTP::Date=> 0,
                    PadWalker => 0 },
);

lib/Parse/RPN.pm  view on Meta::CPAN

        
=cut

$dict{PERLVAR} = sub {
    my $work1 = shift;
    my $name  = pop @{ $work1 };
    my $name1 = pop @{ $work1 };
    $name =~ /^\{([^}]*)\}/;
    my $base_name = $1;
    my @ret;
    use PadWalker qw(peek_my);
    my $level = 0 ;
    my $ref_var;
    while ( ! exists  $ref_var->{$base_name} )
    {
        eval { $ref_var= peek_my( $level++ ) };
        if ( $@ )
        { 
            return \@ret, 1, 0;
        }
    }