1 package System::Introspector::Report::Publish::StdOut;
5 has report => (is => 'ro');
7 my $_json = JSON::PP->new->utf8->pretty;
10 my ($self, $reports) = @_;
11 my $match = $self->report;
12 return unless defined $match;
13 $match = $self->_prepare_matcher_from($match);
14 for my $idx (0 .. $#$reports) {
15 my $report = $reports->[$idx];
16 next unless $self->_match_id($report, $match);
17 print $_json->encode($report), "\n";
25 System::Introspector::Report::Publish::API