File Coverage

lib/OODoc/Export/JSON.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch	0	8	0.0
condition	0	3	0.0
subroutine	5	8	62.5
pod	3	3	100.0
total	23	48	47.9

# This code is part of Perl distribution OODoc version 3.05.
# The POD got stripped from this file by OODoc version 3.05.
# For contributors see file ChangeLog.

# This software is copyright (c) 2003-2025 by Mark Overmeer.

# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
# SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later


package OODoc::Export::JSON;{
our $VERSION = '3.05';
}

use parent 'OODoc::Export';

use strict;
use warnings;

use Log::Report  'oodoc';

use JSON   ();

#--------------------

sub new(%) { my $class = shift; $class->SUPER::new(serializer => 'json', @_) }

#--------------------

# Bleh: JSON has real true and false booleans :-(
sub boolean($) { $_[1] ? $JSON::true : $JSON::false }


sub write($$%)
{	my ($self, $output, $data, %args) = @_;

	my $fh;
	if($output eq '-')
	{	$fh = \*STDOUT;
	}
	else
	{	open $fh, '>:encoding(UTF-8)', $output
			or fault __x"cannot write output to {file}", file => $output;
	}

	my $json = JSON->new->pretty($args{pretty_print});
	$fh->print($json->encode($data));

	$output eq '-' || $fh->close
		or fault __x"write errors to {file}", file => $output;
}

1;