Yet Another CPAN Grep

OpenData-ShortNumberInfo ( R/RW/RWP/OpenData-ShortNumberInfo-0.230470.tar.gz, RWP, 2023; MetaCPAN )

OpenData-ShortNumberInfo/lib/OpenData/ShortNumberInfo.pm ( view source; MetaCPAN )

al qw( class builtin try );

class OpenData::ShortNumberInfo {
  use HTTP::Tiny;
  use URI;
  use JSON::PP;

  # @format:off
  field $number :
  param //= 103;
  # @format:on

  method number ( ) {

https://api.opendata.az' );
    $uri -> path_segments(
      'v1' ,              # version
      'json' ,            # format
      'nrytn' ,           # organization
      'ShortNumberInfo' , # servi

onse = $http -> get( $uri ); # RV: HR

    # Convert JSON from HTTP response into Perl hash
    my $json = JSON::PP -> new;
    my $content = $json -> decode( $response -> {content} );

    unless ( d