view release on metacpan or  search on metacpan

bin/opnpost  view on Meta::CPAN

    $content,
);

my $res = $ua->request($req);
if ($res->is_success) {

    if ($options{v}) {
        print $req->as_string, $/, $res->as_string, $/;
    }
    else {
        print $res->decoded_content, $/;
    }
}
else {
    die $req->as_string, $/, $res->as_string, $/;
}

sub _soap_envelope {
    my ($xml) = @_;

lib/Bundle/WATERKIP/CLI/Azure/Password.pm  view on Meta::CPAN

  if (!$self->_cli_args->{use_at}) {
      say $token;
      return;
  }

  my $ua = LWP::UserAgent->new();
  $ua->default_header("Authorization", "Bearer $token");

  my $res = $ua->get($self->_cli_args->{use_at});
  if($res->is_success) {
      say $res->decoded_content;
      return;
  }
  say $token;
  die $res->status_line;

}


__PACKAGE__->meta->make_immutable;

lib/Bundle/WATERKIP/CLI/JWT/Validate.pm  view on Meta::CPAN

      }

      $self->_croak("You must supply a provider or URI") unless defined $uri;

      my $ua = LWP::UserAgent->new();
      $ua->default_header('Accept' => 'application/json');
      $ua->default_header('Accept' => 'application/foo');
      my $res = $ua->get($uri);
      die("Unable to get $uri: " . $res->status_line . $/) unless $res->is_success;

      $keys = JSON::XS::decode_json($res->decoded_content);
  }

  my $data = decode_jwt(
      token => $token,
      $self->_cli_args->{ignore_signature} ? ( ignore_signature => 1 ) : (
          kid_keys => $keys,
      ),
      verify_exp => 0,
  );