perlpunk

spaces...
tab:	eol

perlpunk

function! gist#Gist(type,desc)

    let description = a:desc
    if description == ""
        let description = input('Enter description for gist: ')
    endif

    " TODO: escape description and file name?
    let cmd = "git hub gist-new " . a:type ." '" . description . "' '" . expand('%:t') . "'"
    if confirm('Exec command: ' . cmd, "&Yes\n&No", 1)==1

perlpunk

use utf8;
package Example;

use strict;
use warnings;

use base 'DBIx::Class::Schema';

__PACKAGE__->load_namespaces();

perlpunk

#!/usr/bin/env perl -w
use strict;
use warnings;
use JSON;
use LWP::UserAgent;
use URI;
use URI::QueryParam;

my $ua = LWP::UserAgent->new;

perlpunk

#!/usr/bin/env bash

set -e

command:event-user() {
  get-args owner:get-user
  title="Events for '$owner':"
  report-list \
    "/users/$owner/events" \
      "id created_at type repo/name payload/ref_type payload/ref payload/master_branch created_at payload/action"

perlpunk

use strict;
use warnings;

use Test::More;
use Plack::Test;
use HTTP::Request::Common;

{
    package App;
    use Dancer2;

perlpunk

#!/bin/bash

# makes breaking and joining panes a bit more comfortable

if [[ "$#" -lt 2 ]]; then
    echo "Usage:"
    echo "    $0 (break|join) (<params>) [options]"
    echo "    $0 break <title> [ break-pane options ]"
    echo "    $0 join (<title>|-) [ join-pane options ]"
    echo ""

perlpunk

2017-09-09 20:51:17 < tinita> flyx, ingy when I added tests with tags, i often used !foo or !a, !b
2017-09-09 20:51:31 < tinita> when loading, frameworks complain about those
2017-09-09 20:51:51 < tinita> so i think i should convert those to !!str, etc. where appropriate
2017-09-09 20:52:02 < tinita> so that we can better test loading
2017-09-09 20:52:22 < flyx> if the framework is not low-level enough, the problem is probably that it tries to resolve the t
ag to a type and finds none that is registered
2017-09-09 20:52:51 < flyx> perhaps we can first evaluate whether the test adapter for the framework uses the apropriate API
?
2017-09-09 20:53:21 < flyx> I would be confused if a framework rejects !a when only an event stream is queried
2017-09-09 20:53:28 < tinita> for example, pyyaml or ruamel can parse it, but the loader complains

perlpunk

#/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use JSON::PP;
use boolean;
use Text::Table;

my @headers = ('', qw/ boolean::true JSON::PP::true boolean::false JSON::PP::false /);
my $tb = Text::Table->new(@headers);

perlpunk

- just a string
- |     # a literal block scalar
  the content will be loade as written here
  
  with all trailing spaces and newlines
- >     # a folded block scalar
  these lines will
  be folded to
  one line