(
[ 'json|j' => 'stream output as JSON' ] ,
);
}
sub _execute {
my( $self, $opt, $args ) = @_;
if ( $self->opt->json ) {
try_load_class( 'JSON::MaybeXS' )
or die "json serializi
ng requires the module 'JSON::MaybeXS' to be installed\n";
my @data = map { {%$_} } $self->active_repos;
say JSON::MaybeXS->new(pretty => 1)->encode( \@data );
return;
}
for my $re