xaicron

#!perl

use strict;
use warnings;
use Getopt::Long qw/GetOptions/;

sub usage;

my $base_dir = 'C:/';
my $dir_name = 'strawberry';

xaicron

use strict;
use warnings;
no warnings 'redefine';

use Furl::HTTP;
use Data::Dumper;

# monkey patch :)
*Furl::HTTP::connect_ssl = sub {
    package Furl::HTTP;

xaicron

#!/usr/bin/env bash

CONFIGURE_OPTIONS=$MYSQL_BUILD_CONFIGURE_OPTS || $(cat "./share/mysql-build/default_configure_options");
echo "[ $CONFIGURE_OPTIONS ]"

CONFIGURE_OPTIONS=$(cat "./share/mysql-build/default_configure_options");
echo "[ $CONFIGURE_OPTIONS ]"

xaicron

#!/usr/bin/env zsh

set -e

MYSQL_VERSION=5.1.69
MYSQL_BASEDIR=$HOME/.mysqlenv/mysqls/${MYSQL_VERSION}
MYSQL_SRCDIR=$HOME/.mysqlenv/mysql-build/build/mysql-${MYSQL_VERSION}
Q4M_VERSION=0.9.9

if [ ! -d ~/tmp ]; then

xaicron

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

BEGIN {
    my @methods = ();
    push @methods, qw{ GET POST PUT DELETE };   # HTTP/1.0
    push @methods, qw{ OPTIONS TRACE CONNECT }; # HTTP/1.1
    push @methods, qw{

xaicron

#!/usr/bin/env perl
use strict;
use warnings;

sub delete {
    warn 'tagomoris';
}

my %foo = (tago => 'moris');

xaicron

{
    autoload                               => 'Module::Install',
    call                                   => 'Module::Install',
    find_extensions                        => 'Module::Install',
    load                                   => 'Module::Install',
    load_extensions                        => 'Module::Install',
    preload                                => 'Module::Install',
    ack                                    => 'Module::Install::AckXXX',
    ack_xxx                                => 'Module::Install::AckXXX',
    copy                                   => 'Module::Install::Admin',

xaicron

$VAR1 = {
          'event_id' => 13882441,
          'message' => {
                         'speaker_id' => 'perl',
                         'icon_url' => 'http://www.gravatar.com/avatar/13549ac1be488ef864f5f923e2564cee.jpg',
                         'nickname' => 'perl bot',
                         'local_id' => undef,
                         'public_session_id' => '15b94a',
                         'room' => 'perl_jp',
                         'timestamp' => '2013-03-15T07:40:07Z',

xaicron

  @INC:
    /home/xaicron/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.3/x86_64-linux
    /home/xaicron/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.3
    /home/xaicron/perl5/perlbrew/perls/perl-5.16.2/lib/5.16.3/x86_64-linux
    /home/xaicron/perl5/perlbrew/perls/perl-5.16.2/lib/5.16.3
    /home/xaicron/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2/x86_64-linux
    /home/xaicron/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl/5.16.2
    /home/xaicron/perl5/perlbrew/perls/perl-5.16.2/lib/site_perl
    .

xaicron

diff --git a/lib/Furl.pm b/lib/Furl.pm
index 85678ab..9b19860 100644
--- a/lib/Furl.pm
+++ b/lib/Furl.pm
@@ -15,17 +15,6 @@ sub new {
     bless \(Furl::HTTP->new(header_format => Furl::HTTP::HEADERS_AS_HASHREF(), @_)), $class;
 }
 
-{
-    no strict 'refs';