Skip to content

Instantly share code, notes, and snippets.

View masaki's full-sized avatar

Masaki Nakagawa masaki

157 followers · 150 following
View GitHub Profile
@masaki
masaki / ios_ranking_to_slack.pl
Created June 29, 2016 07:31
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use LWP::UserAgent;
use JSON;
use Getopt::Long qw(:config posix_default no_ignore_case gnu_compat);
use Pod::Usage qw(pod2usage);
@masaki
masaki / 1min_radar.patch
Created June 28, 2016 09:20
CloudForecast 1min graph and configurable radar interval
diff --git a/lib/CloudForecast/Data.pm b/lib/CloudForecast/Data.pm
index 78c9f73..9c2983a 100644
--- a/lib/CloudForecast/Data.pm
+++ b/lib/CloudForecast/Data.pm
@@ -647,6 +647,8 @@ sub init_rrd {
}
}
+ my $interval = $self->global_config->{interval} || 300;
+
@masaki
masaki / gist:d9f453b04ef07791eca9
Created August 12, 2014 02:02
diff --git a/lib/App/cpanminus/script.pm b/lib/App/cpanminus/script.pm
index 2d0a845..56c1aa3 100644
--- a/lib/App/cpanminus/script.pm
+++ b/lib/App/cpanminus/script.pm
@@ -1747,7 +1747,7 @@ sub resolve_name {
# Git
if ($module =~ /(?:^git(?:\+\w+)?:|\.git(?:@.+)?$)/) {
- return $self->git_uri($module);
+ return $self->git_uri($module, $version);
@masaki
masaki / rspec.txt
Last active August 29, 2015 13:57
desc 1 before all
cont 1 before all
desc 1 before each
cont 1 before each
exam 1 before
exam 1 after
cont 1 after each
desc 1 after each
cont 1-1 before all
desc 1 before each
@masaki
masaki / make_sandbox_from_installed_64bit.patch
Created February 26, 2014 11:53
MySQL::Sandbox make_sandbox_from_installed 64bit patch
diff --git a/bin/make_sandbox_from_installed b/bin/make_sandbox_from_installed
index 7b3b5d8..47976c0 100755
--- a/bin/make_sandbox_from_installed
+++ b/bin/make_sandbox_from_installed
@@ -98,8 +98,13 @@ for my $prefix (@prefixes) {
{
$found_install_db =1;
}
- if ( glob("$prefix/lib/mysql/libmysqlclient*")
- or glob( "$prefix/lib/libmysqlclient*") ) {
@masaki
masaki / Persistent.pm
Created February 9, 2014 17:36
package Test::mysqld::Persistent;
use strict;
use warnings;
use Test::mysqld;
use JSON;
use File::Spec;
sub new {
my ($class, %args) = @_;
@masaki
masaki / setup_perl.sh
Last active January 4, 2016 18:59
setup languages
#!/bin/bash
[ -e "$HOME/.plenv" ] && rm -rf $HOME/.plenv
git clone [email protected]:tokuhirom/plenv.git $HOME/.plenv
echo '[ -d "$HOME/.plenv/bin" ] && [ `echo $PATH | grep "$HOME/.plenv/bin"` ] || export PATH="$HOME/.plenv/bin:$PATH"' >> $HOME/.zshrc
echo 'if which plenv > /dev/null; then eval "$(plenv init -)"; fi' >>$HOME/.zshrc
mkdir -p $HOME/.plenv/plugins
git clone [email protected]:tokuhirom/Perl-Build.git $HOME/.plenv/plugins/perl-build
@masaki
masaki / gist:5395424
Created April 16, 2013 12:05
Can't convert 'Module::CPANfile::Requirement=HASH(0x96855c8)': Invalid version format (non-numeric data)
! Couldn't find module or a distribution Amon2::Lite~Module::CPANfile::Requirement=HASH(0x8f3a910) ()
@masaki
masaki / perlqahack2013.md
Created April 9, 2013 07:15
  • carton install -f /path/to/cpanfile
  • enable to specify "carton bundle" cache path
  • move 02packages from .cpan/ to cache path
  • enable "via" in cpanfile
requires 'carton',
    via => 'git://github.com/masaki/carton.git',
    commitish => 'devel';
@masaki
masaki / 01_simple.pl
Last active December 14, 2015 21:18
use OAuth::Lite::Consumer;
use Furl 2.08;
my $oauth = OAuth::Lite::Consumer->new(
ua => Furl->new(keep_request => 1),
);
my %args = (
method => 'POST',
url => 'http://example.com/oauth',