1 package System::Introspector::Report::Source;
5 use Module::Runtime qw( use_module );
6 use Log::Contextual qw( :log );
8 my $_json = JSON::PP->new->utf8->relaxed->allow_nonref;
10 has root => (is => 'ro', required => 1);
13 my ($class, $root, @args) = @_;
14 if ($root =~ m{^(.+):(.+)$}) {
15 my ($remote, $remote_root) = ($1, $2);
16 require Object::Remote;
17 return $class->new::on($remote, @args, root => $remote_root);
20 return $class->new(@args, root => $root);
25 my ($self, @types) = @_;
26 my @generators = map { $self->_make_generator($_) } @types;
27 my $required = +{ map { ($_ => 1) } map $_->required_data, @generators };
28 my @dirs = $self->_find_source_dirs;
29 for my $dir_spec (@dirs) {
30 my ($id, $path) = @$dir_spec;
31 my $data = $self->_load_dataset($path, $required)
33 log_trace { "loading node '$id' from '$path'" };
34 $_->collect_from($id, $data)
37 return map { ($_->render_reports) } @generators;
41 my ($self, $path, $required) = @_;
42 my $root = $self->root;
45 ($_->[0], $_json->decode(scalar $_->[1]->slurp) || {});
50 $key =~ s!^\Q$root\E/*(?:[^/]+/+){2}!!;
54 not(m{^\.}) and m{\.json$};
55 } $path->deep->all_files
59 sub _find_source_dirs {
61 my $root = $self->root;
63 (my $id = $_) =~ s{^\Q$root\E/*}{};
65 } io($root)->all_dirs;
69 my ($self, $spec) = @_;
70 my ($type, $args) = @$spec;
71 return use_module("System::Introspector::Report::Builder::$type")