view release on metacpan or  search on metacpan

misc/pX/Common/Regexp-Test-Perl5Tests/t/op/taint.t  view on Meta::CPAN

{
    # Bug ID 20010730.010

    my $i = 0;

    sub Tie::TIESCALAR {
        my $class =  shift;
        my $arg   =  shift;

        bless \$arg => $class;
    }

    sub Tie::FETCH {
        $i ++;
        ${$_ [0]}
    }

 
    package main;
 

perl5/PIL2JS/lib/PIL/P5Macro.pm  view on Meta::CPAN

package PIL::P5Macro::JS;

use warnings;
use strict;

sub new {
  my ($class, $name, $body) = @_;

  return bless { body => $body, name => $name } => $class;
}

# XXX! TOTAL HACK!!!
# This is needed because perl5 seems to leak memory in the if-case below.
my $CORRECT_BEHAVIOUR = $ENV{PIL2JS_MACROS_CORRECT_BEHAVIOUR};

sub as_js {
  my ($self, @args) = @_;
  local $_;