1 package Object::Remote::FromData;
12 return if $Seen{$target};
13 $Seen{$target} = $Not_Loaded_Yet{$target} = 1;
17 foreach my $key (keys %Not_Loaded_Yet) {
18 my $data_fh = do { no strict 'refs'; *{"${key}::DATA"} };
19 my $data = do { local $/; <$data_fh> };
20 my %modules = reverse(
21 $data =~ m/(^package ([^;]+);\n.*?(?:(?=^package)|\Z))/msg
23 $_ .= "\n1;\n" for values %modules;
24 @Modules{keys %modules} = values %modules;
25 delete $Not_Loaded_Yet{$key};
34 return $Modules{$module};