package App::Test::DWG::LibreDWG::JSON;
use strict;
use warnings;
use CAD::AutoCAD::Detect qw(detect_dwg_file);
use Capture::Tiny qw(capture);
use File::Copy;
use File::Path qw(mkpath);
use File::Sp
le to JSON.
my $json_file_first = catfile($tmp_dir, 'first.json');
my $dwg_to_json_first = "$dwgread $v -o $json_file_first $dwg_file_first";
if ($self->_exec($dwg_to_json_first, 'dwg_to_json')) {
JSON to dwg file.
my $dwg_file_second = catfile($tmp_dir, 'second.dwg');
my $json_to_dwg_first = "$dwgwrite --as $dwgwrite_version $v -o $dwg_file_second $json_file_first";
if ($self->_exec($json_