1 package Object::Remote::FromData;
5 use Object::Remote::Logging qw ( :log );
13 log_trace { "import has been invoked by '$target' on " . __PACKAGE__ };
14 return if $Seen{$target};
15 log_debug { "'$target' has not yet loaded " . __PACKAGE__ };
16 $Seen{$target} = $Not_Loaded_Yet{$target} = 1;
20 log_debug { "flushing the loaded classes" };
21 foreach my $key (keys %Not_Loaded_Yet) {
22 log_trace { "flushing '$key'" };
23 my $data_fh = do { no strict 'refs'; *{"${key}::DATA"} };
24 my $data = do { local $/; <$data_fh> };
25 my %modules = reverse(
26 $data =~ m/(^package ([^;]+);\n.*?(?:(?=^package)|\Z))/msg
28 $_ .= "\n1;\n" for values %modules;
29 @Modules{keys %modules} = values %modules;
30 delete $Not_Loaded_Yet{$key};
32 log_trace { "done flushing loaded classes" };
40 return $Modules{$module};