Yet Another CPAN Grep

Authen-NZRealMe ( A/AJ/AJM/Authen-NZRealMe-1.23.tar.gz, AJM, 2021; MetaCPAN )

Authen-NZRealMe/lib/Authen/NZRealMe.pm ( view source; MetaCPAN )

when integrating with RealMe, the FLT will now also be
returned in the response, in either XML or JSON format (another option at
integration time). The iCMS back-channel is thus no longer required wit

Authen-NZRealMe ( A/AJ/AJM/Authen-NZRealMe-1.23.tar.gz, AJM, 2021; MetaCPAN )

Authen-NZRealMe/lib/Authen/NZRealMe/ServiceProvider.pm ( view source; MetaCPAN )

e uri_unescape);
use POSIX        qw(strftime);
use Date::Parse  qw();
use File::Spec   qw();
use JSON::XS     qw();
use MIME::Base64 qw();

use Authen::NZRealMe::CommonURIs qw(URI NS_PAIR);
use Authe

:Identity',
    ivs         => 'urn:nzl:govt:ict:stds:authn:safeb64:attribute:igovt:IVS:Assertion:JSON:Identity',
    avs         => 'urn:nzl:govt:ict:stds:authn:safeb64:attribute:NZPost:AVS:Assertion

my $json = JSON::XS::decode_json($data);

    my $dob  = $json->{dateOfBirth} or warn "dateOfBirth field is not in JSON IVS";
    my $name = $json->{name}        or warn "name field is not in JSON IVS