Skip to content

Instantly share code, notes, and snippets.

bessarabov@lol:~/Dropbox/git/App-Comparator$ time perl -Ilib bin/comparator
Name Releaser ▼ Latest Latest # pass fail na unkn-
Maypole TEEJAY 2008-04-18 2.13 33 350 25 1 128
Gantry TKEEFER 2010-01-13 3.64 23 411 29 1 2
Jifty SARTAK 2011-05-18 1.10518 30 67 72 3 14
CGI::Application MARKSTOS 2011-06-16 4.50 44 3536 2 0 4
CGI::Prototype MERLYN 2011-07-30 0.9054 6 571 0 0 1
OX DOY 2013-08-15 0.13 13 231 0 5 0
CGI::Snapp RSAVAGE 2013-08-29 1.08 9 520 1 2 0
Cot YSHIBATA 2013-09-26 0.11 11 237 0 0 0
#!/usr/bin/perl
=begin comment
Это pre-commit hook. Этот скрипт запускается перед тем как как открывается
$EDITOR для ввода commit message.
Если этот скрипт завершвется с exit status != 0, то комит не происходит.
Можно запустить `git commit --no-verify` и тогда этот хук не будет выполнятся.
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);
use Test::More;
use POSIX;
#!/usr/bin/perl
use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);
use DDP;
use Carp;
@bessarabov
bessarabov / gist:f62fbf4e0ccc1912738b
Last active August 29, 2015 14:01
metacpan likes
#!/usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use feature 'say';
use utf8;
use open qw(:std :utf8);
use Data::Printer;
use ElasticSearch;
{
"query": {
"match_all": {
}
},
"filter": {
"term": {
"distribution": "Test-Whitespaces"
}
{
"timed_out": false,
"hits": {
"hits": [
{
"_source": {
"date": "2013-06-16T14:07:39",
"user": "faLMeoWDRjSethSZIGNB_A",
"id": "gGJV8tp5UIiyCmYS_kGcaWn9jJU",
"author": "BESSARABV",
{
"query": {
"match_all": {
}
},
"filter": {
"term": {
"user": "faLMeoWDRjSethSZIGNB_A"
}
{
"timed_out" : false,
"hits" : {
"hits" : [
{
"_source" : {
"profile" : [
{
"name" : "github",
"id" : "doherty"