j1n3l0

use Test2::V0;
use Object::Pad 0.808;

class Power {
    field $_power :inheritable = 0;
    method of ($number) { $number ** $_power };
};

class Square {
    inherit Power '$_power';

j1n3l0

#!/bin/bash

set -euxo pipefail

#
# Install the dev utilities I need

# emacs (blead)
if ! [ -x "$(command -v emacs)" ]; then
    # I needed these dependencies (you might not)

j1n3l0

use Test2::V0;

subtest 'Using stubs in Test2' => sub {
    my $user     = mock { company => 'dev' };
    my $userdata = mock { day     => '2022-02-02' };
    my $stats    = mock { user    => $user, userdata => $userdata };

    is( $stats->user->company, 'dev',
        'should return the right value for $stats->user->company',
    );

j1n3l0

#!/bin/bash

set -euxo pipefail

git init

npm init -y
npm install -D depcheck eslint eslint-config-prettier eslint-plugin-jsdoc eslint-plugin-json eslint-plugin-prettier husky lint-staged prettier
npm pkg set scripts.depcheck='depcheck'
npm pkg set scripts.lint-staged='lint-staged --allow-empty'

j1n3l0

{
  "$schema": "https://json-schema.org/draft/2019-09/schema",
  "additionalProperties": false,
  "properties": {
    "client_id": {
      "type": "string"
    },
    "source_id": {
      "type": "string"
    }

j1n3l0

BEGIN {

    package MyTypes;

    use Type::Library -extends => ['Types::Standard'], -declare => qw< Transaction >;
    use Type::Utils -all;
    use JSON::Schema::AsType;

    my $schema_uri
        = 'https://gist.githubusercontent.com/j1n3l0/43676471d8121bfbce2835119201b3ed/'

j1n3l0

BEGIN {

    package MyTypes;

    use Type::Library -extends => ['Types::Standard'], -declare => qw< Error >;
    use Type::Utils -all;

    declare Error, as Dict [ error => Str ];

    __PACKAGE__->meta->make_immutable();

j1n3l0

const chai = require('chai');
const chaiHttp = require('chai-http');
const nock = require('nock');
const axios = require('axios');

chai.use(chaiHttp);

const { expect, request } = chai;

class Client {

j1n3l0

package Client;

use Moo;
use Type::Utils qw< class_type >;
use Types::Standard -types;
use URI;

use experimental qw< signatures >;

has service_uri => (

j1n3l0

use Test2::V0;

package Api::Client 1.0 {
  use Moose;
  use Moose::Util::TypeConstraints;
  use Readonly;

  Readonly my $DEFAULT_HOSTNAME => 'api.example.com';

  subtype 'EmptyStr', as 'Str', where { /^$/ };