From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

GRICHTER / Embperl-3.0.1 / test / html / keepreq.htm 

            

              
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
27
28
29
30

              
[-
$r = shift ;
$p = $r -> param ;
-]
r before 
global: [+ $Embperl::TEST::r +] 
lokal:  [+ $r +]
p before 
global: [+ $Embperl::TEST::p +] 
lokal:  [+ $p +]
[-
$Embperl::TEST::r = $r ;
$Embperl::TEST::p = $p ;
-]
r after 
global: [+ $Embperl::TEST::r +] 
lokal:  [+ $r +]
p after
global: [+ $Embperl::TEST::p +] 
lokal:  [+ $p +]