ytnobody

requires 'JSON';
requires 'LWP::UserAgent';
requires 'LWP::Protocol::https';

ytnobody

use strict;
use warnings;
use JSON;
use LWP::UserAgent;
use URI;
use utf8;

my $keyword = 'Serverless';

my $baseurl = "https://connpass.com/api/v1/event/";

ytnobody

use strict;
use warnings;
use utf8;
use JSON::PP;
use Encode;

### タイムゾーン定義 / Azure Functionsでは必須。
BEGIN {
    $ENV{TZ} = "JST-9";
};

ytnobody

use strict;
use warnings;
use utf8;
use Net::Azure::EventHubs;

### EventHubsの接続文字列をここに入れる
my $connection_string = '...'; 

### EventHubs向けにイベントを送るClientを作る
my $client = Net::Azure::EventHubs->new(

ytnobody

<?php

/**
 * LICENSE: The MIT License (the "License")
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 * https://github.com/azure/azure-storage-php/LICENSE
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,

ytnobody

###
### cpanfile for KH Coder
###
#
# usage:
# $ cd kh_coder/
# $ LANG=C cpanm --installdeps -n .
#

requires 'perl' => '5.008';

ytnobody

Why people says "Perl is guilty" ?

ytnobody

---

ytnobody

• born: Hakodate
• live: Ooi-machi

ytnobody

#!/bin/sh

help () {
  cat <<EOF
Usage:

  git-bar [keyword] [Dest Branch]

EOF
  exit;

ytnobody

#!/bin/bash

show_help () {
    cat <<EOF
Run "npm -g install azure-functions-core-tools" first.
EOF
    exit;
}

list_required_extensions () {

ytnobody

iex(5)> sv = MyMock.run()

11:35:22.016 [info]  Added handler for /user
 
11:35:22.016 [info]  Added handler for /user/:id
%Mock.MockServer{
  name: :my_mock,
  pid: #PID<0.765.0>,
  port: 64400,
  route: %{