NAME

Health::SHC - Verify Smart Health Card Signature and Extract data.

SYNOPSIS

    use Health::SHC;
    my $sh = Health::SHC->new();
    my @patients = $sh->get_patients($data);

    foreach (@patients) {
        print "Patient: ", $_->{given}, " ", $_->{middle}, " ", $_->{family}, "\n";
    }

    my @immunizations = $sh->get_immunizations($data);

    print "Vacination Provider", "\t", "Date", "\n";
    foreach (@immunizations) {
        print $_->{provider}, "\t", $_->{date}, "\n";
    }

    my @vaccines = $sh->get_vaccines($data);

    print "Manufacturer\tLot Number\tCode\tCode System\n";
    foreach (@vaccines) {
        print $_->{manufacturer}, "\t\t", $_->{lotNumber}, "\t\t";
        my $codes = $_->{codes};
        foreach my $tmp (@$codes) {
            print   $tmp->{code}, "\t",
                    $tmp->{system}, "\t";
        }
        print "\n";
    }

DESCRIPTION

This perl module can extract a Smart Health Card's data from PDFs or image file. The extracted shc:/ Smart Health Card URI is decoded and the signature checked. The module provide several methods to retrieve the data in a more usable format.

METHODS

new(...)

Constructor; see OPTIONS above.

get_patients($data)

Arguments: $data: string Smart Health Card data without the "shc:/" prefix

Returns: hash containing the Patient information

get_immunizations($data)

Arguments: $data: string Smart Health Card data without the "shc:/" prefix

Returns: hash containing the Immunization data

get_vaccines($data)

Arguments: $data: string Smart Health Card data without the "shc:/" prefix

Returns: hash containing the Vaccine data