Lines Matching refs:this_code

421                     my $this_code= defined($mod_code)
425                     next if $seen{$eval_code_munged . "|" . $this_code}++;
426                     $this_code=~s/PACK/$pack_name/g;
429                         [$pack_name, $param_str, $this_code, $mod_code, $eval_code_munged];
431                     if ($this_code!~/use/ and $this_code !~ /some_true_value/) {
449         my ($pack_name, $param_str, $this_code, $mod_code, $eval_code)= @$tuple;
451         write_file("$pack_name.pm", $this_code);
457         my $descr= !$this_code ? "empty file loaded" :
466         if ($this_code=~/use/) {
486         } elsif ($this_code!~/some_true_value/) {
493                 print "# code: $_\n" for split /\n/, $this_code || "NO CODE";
509                 print "# code: $_\n" for split /\n/, $this_code || "NO CODE";