Lines Matching full:safe

11 unless (eval { require Safe; 1 }) {
12     plan skip_all => 'Safe.pm is required for this test';
32 my $c = Safe->new or die;
43 my $text2 = $template1->fill_in(SAFE => $c);
46 my $text3 = $template2->fill_in(SAFE => $c);
49 # (4) Safe and non-safe fills of different template objects with the
53 # uses package main, while the safe fill uses the secret safe package.
54 # We could alias the secret safe package to be identical to main,
55 # but that wouldn't be safe.  If you want the aliasing, you have to
58 # (5) Safe and non-safe fills of the same template object
81 $text2 = $template1->fill_in(SAFE => $c);
84 $text3 = $template2->fill_in(SAFE => $c);
90 # (11) text1 and text4 should be the same (using safe in between
114 $text2 = $template1->fill_in(SAFE => Safe->new);
116 # (15) Do effects persist in safe compartments?
119 # (16) Try the BROKEN routine in safe compartments
132     SAFE       => Safe->new);