• perlbrew
• Hijk
  • miminalist HTTP client
• LINE::Bot::API
  • SDK for writting LINE Chatbot

• 3 frontend devs

• 4 server-side devs

• frontend: angularjs → vue.js

• server: perl, mysql, nginx, memcached

Flow of work

• GitHub Enterprise
• New branch for tasks
• git push → CI
• Code Review before merging
• Human QA before releasing

• First task of my day
• about 30% office time

• Unconventional

  • prefer tech X for problem Y

• Quirks, magic, shenanigans

  • "Why does it need to be done like this?"

• Mismatching style

  • "This does not looks pretty"

• Random "code waste"

  • Unused, effect-less, NOOPs

Can I understand this new piece code
written by my teammate
by just reading it ?

understandable code →→→ maintainable code

Formatter (re-indent / tweak whitespace)

• perltidy
• $EDITOR

Linter

• perl -c

• Perl::Critic / Perl::Lint

• CPAN::Audit

• eslint https://eslint.org/

• gofix https://golang.org/cmd/fix/

Tester

• CI

• Continuous Testing (Test::Continuous)

• All pair testing

• Mutation Test (Devel::Mutation)

• fuzzing

Refactor-er

• App::Critique (semi-manual)
• Ref::Util::Rewriter

Formatter

• Dress
• "Fashion"
• Shape & Color
• Whitespace management

• $x spaces
• $y tabs
• $z newlines
• Talk this though with some drinks

$EDITOR

Perl::Critic is a static code analysis system for the Perl programming language. Perl::Critic is available as a source-code distribution on CPAN. It comes with a commandline tool, perlcritic, which can check Perl source code files and report on the code quality therein. Perl::Critic has an extensible architecture that allows the programmer to choose from many "policies" which enforce different Perl programming styles and tastes.

http://shop.oreilly.com/product/9780596001735.do

Online Demo

http://perlcritic.com/

Better: just enough amount of work

use List::Util 'first';

if ( first { $_->can_code() } @people ) {
    say "Developers!";
}

my $is_product = $object eq 'sticker' ||
                 $object eq 'theme' ||
                 $object eq 'emoji';

my $is_product = first { $object eq $_ } (
  'sticker', 'theme', 'emoji'
);

use Quantum::Superposition 'any';

my $is_product = $object eq any('sticker', 'theme', 'emoji');

# perl6
my $is_product = $object eq 'sticker'|'theme'| 'emoji';

perlcritic + reviewdog

https://hub.docker.com/r/gugod/perlcritic-reviewdog

Usable in Drone CI.

Devel::Mutator

Mutation Testing

Original

if (a && b) {
    do_this();
}

Mutant

if (a || b) {
    do_this();
}