NAME

App::Test::DWG::LibreDWG::DwgRead - Base class for test-dwg-libredwg-dwgread script.

SYNOPSIS

use App::Test::DWG::LibreDWG::DwgRead;

my $app = App::Test::DWG::LibreDWG::DwgRead->new;
my $exit_code = $app->run;

METHODS

new

my $app = App::Test::DWG::LibreDWG::DwgRead->new;

Constructor.

Returns instance of object.

run

my $exit_code = $app->run;

Run.

Returns 1 for error, 0 for success.

EXAMPLE

use strict;
use warnings;

use App::Test::DWG::LibreDWG::DwgRead;
use File::Temp qw(tempdir);
use File::Spec::Functions qw(catfile);
use IO::Barf qw(barf);
use MIME::Base64;

# Bad DWG data in base64.
my $bad_dwg_data = <<'END';
QUMxMDAyAAAAAAAAAAAAAAAK
END

# Prepare file in temp dir.
my $temp_dir = tempdir(CLEANUP => 1);

# Save data to file.
my $temp_file = catfile($temp_dir, 'bad.dwg');
barf($temp_file, decode_base64($bad_dwg_data));

# Arguments.
@ARGV = (
        $temp_dir,
);

# Run.
exit App::Test::DWG::LibreDWG::DwgRead->new->run;

# Output like:
# Cannot dwgread '/tmp/__TMP_DIR__/bad.dwg'.
#         Command 'dwgread -v1 /tmp/__TMP_DIR__/1.dwg' exit with 256.

DEPENDENCIES

Capture::Tiny, File::Copy, File::Find::Rule, File::Find::Rule::DWG, File::Path, File::Spec::Functions, File::Temp, Getopt::Std, IO::Barf, Readonly.

REPOSITORY

https://github.com/michal-josef-spacek/App-Test-DWG-LibreDWG-DwgRead

AUTHOR

Michal Josef Špaček mailto:skim@cpan.org

http://skim.cz

LICENSE AND COPYRIGHT

© 2023-2024 Michal Josef Špaček

BSD 2-Clause License

VERSION

0.05