hirose31

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Validator;

memory_usage();

for (1 .. 200) {

hirose31

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;
BEGIN {
    sub p($) {
        local $Data::Dumper::Indent    = 1;
        local $Data::Dumper::Deepcopy  = 1;

hirose31

redis-traffic-stats

Summary

• Duration:
  • 2014-02-24 16:34:10 - 2014-02-24 16:34:13 (3s)
• Total Traffic:
  • 43311772 bytes (14437257.33 bytes/sec)
• Total Requests:
• 110109 requests (Avg 36703.00 req/sec, Peak 47170.00 req/sec)

hirose31

redis-traffic-stats

• hello
  • world

hirose31

not ok 1 - apply_all_roles (leaks 49 <= 0)
#   Failed test 'apply_all_roles (leaks 49 <= 0)'
#   at 043_leak-memory.t line 15.
#     '49'
#         <=
#     '0'
# leaked REF(0xb83160) from /usr/local/lib/perl/5.10.1/Mouse/Meta/Module.pm line 166.
#  165:sub create {
#  166:    my($self, $package_name, %options) = @_;
#  167:

hirose31

use Sub::Retry;
my $ret = retry 3, 1, sub {
    print "foo\n";
    return 1;
}, sub {
    my $ret = shift;
    defined $ret ? 0: 1;
};

# =>

hirose31

git clone https://github.com/hirose31/Parse-Daemontools-Service.git
cd Parse-Daemontools-Service/
git-strata.rb .
...
+junk/*
+private/*
+TODO.todo
+MEMO
+xt/9*_*
diff --git a/.travis.yml b/.travis.yml

hirose31

  abspath() {
    _CWD=$(pwd)
    if [ -d "$1" ]; then
      \cd $1
      echo $(pwd -P)/
    elif [ -f "$1" ]; then
      case $1 in
        */*) \cd ${1%/*};;
      esac
      echo $(pwd -P)/${1##*/}

hirose31

#!/usr/bin/env perl
# Time-stamp: <2014-04-04 16:58:12 JST, hirose31>

use strict;
use warnings;

use IO::File;
STDOUT->autoflush(1);
STDERR->autoflush(1);
use Data::Dumper;

hirose31

NAME

start-fluent-agent-lite - fluent-agent-lite launcher script

SYNOPSIS

start-fluent-agent-lite --primary-server HOST:PORT [--secondary-server HOST:PORT] -T TAG:FILE [-T TAG:FILE ...] [OTHER OPTIONS]

start-fluent-agent-lite -p SERVER_LIST_FILE [-s SERVER_LIST_FILE] -T TAG:FILE [-T TAG:FILE ...] [OTHER OPTIONS]