use Safe;
use Symbol qw(delete_package);
use Data::Dumper;
use strict;
my $rc = 0;
my $namespace = "SPACE";

my $CPT = new Safe($namespace);

$CPT->deny_only();

my $file = shift;

print "DEBUG - before rdo-\n";
system ("ps auxww|grep safe|grep -v grep");
print "-"x40,"\n";
<>;

if (-f $file) {
	$CPT->rdo($file);
} else {
	print "File \"$file\" does not exists !\n";
	$rc = 1;
}

print "DEBUG - after rdo-\n";

print $@ if (defined $@);

print "Printing \%SPACE::\n";
print Dumper \%SPACE::;

print "Printing \%SPACE::INC\n";
print Dumper \%SPACE::INC;

print "\nOutput from space_packages\n";
space_packages();

print "\nOutput from packages\n";
packages();

print "\nOutput from symbols2\n";
symbols2("SPACE");

system ("ps auxww|grep safe|grep -v grep");
print "-"x40,"\n";
<>;

delete_package($namespace);

print "DEBUG - after clearing namespace-\n";

print "Printing \%SPACE::\n";
print Dumper \%SPACE::;

print "Printing \%SPACE::INC\n";
print Dumper \%SPACE::INC;

print "\nOutput from space_packages\n";
space_packages();

print "\nOutput from packages\n";
packages();

print "\nOutput from symbols2\n";
symbols2("SPACE");

system ("ps auxww|grep safe|grep -v grep");
print "-"x40,"\n";
<>;

sub space_packages {
  print "Packages: ", join(" ", grep /::$/, keys %SPACE::), "\n";
  print "  INC: ", join(" ", sort keys %SPACE::INC), "\n";
}

sub packages {
  print "Packages: ", join(" ", grep /::$/, keys %::), "\n";
  print "  INC: ", join(" ", sort keys %INC), "\n";
}


sub symbols2 {
  my $pkg = $_[0] || '';
  no strict 'refs';
  print "Symbols in ${pkg}::\n";
  my $hash = *{$pkg.'::'}{HASH};
  for (sort grep {!/::$|^_</} keys %$hash) {
    my $sym = $_;
    my $glob = $hash->{$_};
    $sym =~ s/[[:cntrl:]]/'^' . chr(ord($&) + ord('@'))/ge;
    print "  $sym (", *{$glob}{PACKAGE}, '::', *{$glob}{NAME}, "): ";
    if (defined $$_) {
      print "SCALAR='$$glob' ";
    };
    for my $THING (qw(ARRAY HASH CODE IO)) {
      my $ref = *{$glob}{$THING};
      if (defined $ref) {
        print "$THING=$ref ";
      }
    }
    print "\n";
  }
}