Cor — A minimal OO proposal for the Perl core
This is version 0.10 of this document.
git log --author="Linus Torvalds" --date=iso | perl -nalE 'if (/^Date:\s+[\d-]{10}\s(\d{2})/) { say $1+0 }' | sort | uniq -c|perl -MList::Util=max -nalE '$h{$F[1]} = $F[0]; }{ $m = max values %h; foreach (0..23) { $h{$_} = 0 if not exists $h{$_} } foreach (sort {$a <=> $b } keys %h) { say sprintf "%02d - %4d %s", $_, $h{$_}, "*"x ($h{$_} / $m * 50); }' | |
When the directory structure of your Node.js application (not library!) has some depth, you end up with a lot of annoying relative paths in your require calls like:
const Article = require('../../../../app/models/article');
Those suck for maintenance and they're ugly.
package MyApp::DB; | |
use 5.016; | |
use warnings; | |
use utf8; | |
use Time::Piece::Plus; | |
use Class::Method::Modifiers; | |
use Teng::Schema::Loader; | |
use MyApp::DB::ResultSet; | |
use MyApp::Exception; |