Yet Another CPAN Grep

WebService-HIBP ( D/DD/DDICK/WebService-HIBP-0.15.tar.gz, DDICK, 2019; MetaCPAN )

WebService-HIBP/lib/WebService/HIBP.pm ( view source; MetaCPAN )

package WebService::HIBP;

use strict;
use warnings;
use JSON();
use URI::Escape();
use LWP::UserAgent();
use Digest::SHA();
use Encode();
use HTTP::Status();
use Unicode::Normalize();
use WebService:

 ( $response->is_success() ) {
        my $json = JSON::decode_json( $response->decoded_content() );
        my @classes;
        foreach my $class ( @{$json} ) {
            push @classes, $class;

if ( $response->is_success() ) {
        my $json = JSON::decode_json( $response->decoded_content() );
        return WebService::HIBP::Breach->new( %{$json} );
    }
    elsif ( $response->code() ==