Lines Matching full:safe

10 unless (eval { require Safe; 1 }) {
11     plan skip_all => 'Safe.pm is required for this test';
19 my $c = Safe->new or die;
22 $c->reval('$P = "safe root"');
40 # (3) When no package is specified in safe mode, we should use the
41 # default safe root.
42 $text = $t->fill_in(SAFE => $c);
43 is $text, 'package is safe root';
45 # (4) When a package is specified in safe mode, we should use the
46 # default safe root, after aliasing to the specified package
49     $text = $t->fill_in(SAFE => $c, PACKAGE => 'Q');
53 # Now let's see if hash vars are installed properly into safe templates
69 # (7) Now in the default root of the safe compartment
72     $text = $t->fill_in(HASH => { H => 'good7' }, SAFE => $c);
81     $text = $t->fill_in(HASH => { H => 'good8' }, SAFE => $c, PACKAGE => 'Q2');