File: codedumper

package info (click to toggle)
libje-perl 0.066-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,008 kB
  • sloc: perl: 31,288; makefile: 2
file content (26 lines) | stat: -rw-r--r-- 406 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 


++$ENV{YES_I_WANT_JE_TO_OPTIMISE};
use lib 'lib';
use DDS;
use JE;

$c = new JE->parse(join '', <>) or die;
$c->set_global(undef);
new DDS->Ignore("JE",1)->Data($c)->Out;
Dump eval "sub{$c->{psrc}}"||$@












__END__

YES_I_WANT_JE_TO_OPTIMISE=1 perl -MJE -Ilib -MDDS -le '$c = new JE->parse(q| switch(0){ case 1: case 2: var t } |); $c->set_global(undef); Dump $c; Dump eval "sub{$c->{psrc}}"||$@'