File Coverage

blib/lib/USCIS/Case.pm

Criterion	Covered	Total	%
statement	18	36	50.0
branch	0	4	0.0
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	25	48	52.0

package USCIS::Case;

use strict;
use warnings;

our @EXPORT_OK = qw(check_case_status);
our %EXPORT_TAGS = ( all => \@EXPORT_OK );
use base qw(Exporter);

our $VERSION = '0.02';

use LWP::Protocol::https;
use LWP::UserAgent;
use XML::LibXML;


sub check_case_status {
    my $case_number = shift @_;
    my $case_status_ref = {
        'validity' => 'no',
        'case_number' => $case_number,
        'case_status' => undef,
        'case_detail' => undef,
        'uscis_web_rc' => '',
    };

    # USCSI case status query vars
    my $uscis_case_status_endpoint = 'https://egov.uscis.gov/casestatus/mycasestatus.do';
    my $query_form = [
        'appReceiptNum' => $case_number,
        'initCaseSearch' => 'CHECK STATUS',
        'changeLocale' => '',
    ];

    # construct UA to call USCIS case status endpoint
    my $call = LWP::UserAgent->new();
    my $res = $call->post($uscis_case_status_endpoint, Content => $query_form);

    # update USCIS web access response code / messages
    $case_status_ref->{uscis_web_rc} = $res->status_line;

    if ($res->is_success) {
        my $case_status_html = $res->content;

        my $dom = XML::LibXML->load_html(
            string => $case_status_html,
            recover => 1,
            suppress_errors => 1,
        );

        # XPath search
        my $case_status = ($dom->findnodes('//div[@class=\'rows text-center\']/h1')->to_literal_list)[0];
        my $case_detail = ($dom->findnodes('//div[@class=\'rows text-center\']/p')->to_literal_list)[0];

        if (defined($case_status)) {
            $case_status_ref->{validity} = 'yes';
            $case_status_ref->{case_status} = $case_status;
            $case_status_ref->{case_detail} = $case_detail;
        } else {
            $case_status_ref->{validity} = 'no';
        }
    }

    return $case_status_ref;
}

1;

__END__