File Coverage

blib/lib/PDF/FacturX.pm

Criterion	Covered	Total	%
statement	18	39	46.1
branch	0	12	0.0
condition	0	2	0.0
subroutine	6	7	85.7
pod	1	1	100.0
total	25	61	40.9

package PDF::FacturX;
use strict;
use warnings;
use utf8;
use Exporter 'import';

use PDF::FacturX::XML   qw(build_xml validate_xml);
use PDF::FacturX::Embed qw(embed_xml_pdfa3);

our $VERSION = '0.01';

our @EXPORT_OK = qw(generate);

###############################################################################
# generate(%opts) — façade end-to-end :
#   1. Validate the invoice hash (fast, in-Perl, French error messages)
#   2. Build the Factur-X CrossIndustryInvoice XML for the requested profile
#   3. Validate the XML against the bundled official XSD (unless validate=>0)
#   4. Embed the XML into a PDF/A-3 envelope with proper XMP, AF, OutputIntent
#
# Returns (1, $info) on success or (0, $error) on failure. Never dies on
# expected error paths — die-on-error stays inside the lower-level modules
# only when called directly.
###############################################################################
sub generate {
    my (%opt) = @_;

    my $invoice = $opt{invoice};
    return (0, 'invoice requis') unless ref $invoice eq 'HASH';

    my $profile = $opt{profile} || 'basic';
    my $do_validate = exists $opt{validate} ? $opt{validate} : 1;

    # 1+2. Build XML (validation maison happens inside build_xml)
    my $xml = eval { build_xml($invoice, $profile) };
    if ($@) {
        my $err = $@;
        chomp $err;
        return (0, "build_xml KO : $err");
    }

    # 3. XSD validation (optional)
    if ($do_validate) {
        my ($xsd_ok, $xsd_msg) = validate_xml($xml, $profile);
        return (0, "XSD validation KO : $xsd_msg") unless $xsd_ok;
    }

    # 4. Embed into PDF/A-3
    my ($ok, $msg) = eval {
        embed_xml_pdfa3(
            pdf_in     => $opt{pdf_in},
            pdf_out    => $opt{pdf_out},
            xml        => $xml,
            profile    => $profile,
            title      => $opt{title},
            author     => $opt{author},
            creator    => $opt{creator},
            tmp_dir    => $opt{tmp_dir},
            gs         => $opt{gs},
            icc_path   => $opt{icc_path},
            on_warning => $opt{on_warning},
        );
    };
    if ($@) {
        my $err = $@;
        chomp $err;
        return (0, "embed KO : $err");
    }
    return ($ok, $msg);
}

1;

__END__