zigorou

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);

use Digest::SHA qw(hmac_sha256);
use JSON;
use MIME::Base64 qw(encode_base64url decode_base64url);

zigorou

{
  "$schema": "http://json-schema.org/draft-04/schema#",
  "title": "Hypermedia Application Languchage schema",
  "definitions": {
    "linkObject": {
      "type": "object",
      "properties": {
        "href": {
          "title": "Resource URI",
          "type": "string",

zigorou

{
  "type": "object",
  "properties": {
    "id": {
      "type": "integer",
      "minimum": 1
    },
    "name": {
      "type": "string",
      "pattern": "^[A-Za-z0-9_]{1,32}$"

zigorou

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw(say);

use Coro;

async {
    my @args = @_;

zigorou

#!/usr/bin/env perl

use strict;
use warnings;

use Coro;
use AnyEvent;
use AnyEvent::Log;

$AnyEvent::Log::FILTER->level("debug");

zigorou

use strict;
use warnings;

use Config::Pit;
use Data::Section::Simple qw(get_data_section);
use HTTP::Request;
use HTTP::Status qw(:constants);
use Log::Minimal;
use LWP::UserAgent;
use Plack::Builder;

zigorou

use strict;
use warnings;

use AE;
use AnyEvent;
use HTTP::Status qw(:constants);
use JSON;
use Plack::Request;
use Plack::Response;
use Time::HiRes qw(tv_interval gettimeofday);

zigorou

{
    "id": "http://schema.example.com/oauth/2.0/authorization_request",
    "title": "OAuth 2.0 Authorization Code Grant Response Object",
    "properties": { 
        "code": {
            "title": "The authorization code", 
            "type": "string", 
            "required": true
        },
        "state": {

zigorou

#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dump qw(dump);

my $t = $ARGV[0];

our %RE;
$RE{ALPHA} = qr/[A-Za-z]/;

zigorou

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>
#include <errno.h>
#include <netinet/in.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <sys/uio.h>
#include <unistd.h>