(How) can I re-create a package after having called Symbol::delete_package on it?

keys %P::;

keys %{ no strict qw( refs ); \%{"P::"} };

keys %{ $::{"P::"} };

use strict;
use warnings;
use Symbol qw( delete_package );

use FindBin qw( $RealBin );
use lib $RealBin;

sub mod_path {
   my ($mod_name) = @_;
   return ( $mod_name =~ s{::}{/}gr ) . ".pm";
}

sub load_module {
   my ($mod_name) = @_;
   my $mod_path = mod_path($mod_name);
   require $mod_path;
}

sub unload_module {
   my ($mod_name) = @_;
   my $mod_path = mod_path($mod_name);
   delete_package($mod_name);
   delete($INC{$mod_path});
}

sub get_package {
   my ($pkg_name) = @_;
   $pkg_name .= '::' if $pkg_name !~ /::\z/;
   my $pkg = \%::;
   $pkg = $pkg->{$_} for split /(?<=::)/, $pkg_name;
   return $pkg;
}

sub dump_info {
   my ($mod_name) = @_;
   my $mod_path = mod_path($mod_name);
   my $pkg = get_package($mod_name);

   my $is_in_inc = grep { $_ eq $mod_path } keys %INC;
   printf("Included: %s\n", $is_in_inc ? "yes" : "no");

   my $num_syms = keys(%$pkg);
   print("Number of symbols: $num_syms\n");

   print("\n");
}

for $mod_name ('P', 'P') {
   load_module($mod_name);    dump_info($mod_name);
   # $mod_name->run();
   unload_module($mod_name);  dump_info($mod_name);
}