nekoya

package Person;
use Data::Util qw/:all/;

{
    my $method = modify_subroutine(
        get_code_ref(__PACKAGE__, 'chk'),
        after => [ sub { eval "use Hoge" } ]
    );
    no warnings 'redefine';
    install_subroutine(__PACKAGE__, 'chk' => $method);

nekoya

diff --git a/lib/DBIx/Skinny/Schema.pm b/lib/DBIx/Skinny/Schema.pm
index e9438a6..d3308fc 100644
--- a/lib/DBIx/Skinny/Schema.pm
+++ b/lib/DBIx/Skinny/Schema.pm
@@ -19,7 +19,7 @@ sub import {
         install_inflate_rule
           inflate deflate call_inflate call_deflate
           callback _do_inflate
-        trigger call_trigger
+        install_common_trigger trigger call_trigger

nekoya

package Person;
use Data::Util qw/:all/;
 
{
    my $method = modify_subroutine(
        get_code_ref(__PACKAGE__, 'chk'),
        around => [ sub { eval "use Hoge" } ]
    );
    no warnings 'redefine';
    install_subroutine(__PACKAGE__, 'chk' => $method);

nekoya

package Person;
use Data::Util qw/:all/;
warn "loading Data::Util $Data::Util::VERSION";

{
    no warnings 'redefine';
    my $before = modify_subroutine(
        get_code_ref(__PACKAGE__, 'before_chk'),
        before => [ sub { eval "use Hoge" } ]
    );

nekoya

SEND-PR: -*- send-pr -*-
SEND-PR: Lines starting with `SEND-PR' will be removed automatically, as
SEND-PR: will all comments (text enclosed in `<' and `>').
SEND-PR:
From: ryo
To: mysql@lists.mysql.com
Subject: [50 character or so descriptive subject here (for reference)]

>Description:
>...<precise description of the problem (multiple lines)>

nekoya

#!/bin/sh

# sudo yum -y install libxml2-devel.x86_64 libjpeg-devel.x86_64 libpng-devel.x86_64 openssl-devel.x86_64 bzip2-devel.x86_64 freetype-devel.x86_64 libmcrypt-devel.x86_64

./configure --disable-all \
--enable-cgi \
--enable-ctype \
--enable-dom \
--enable-fastcgi \
--enable-filter \

nekoya

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

use WWW::Mechanize;

my $wget = 'wget';
my $authors_url = 'http://search.cpan.org/~apeiron/';

my $mech = WWW::Mechanize->new;

nekoya

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

use Encode;
use Net::Twitter;
use Net::Wassr;

my $username = 'nekoya';
my $filename = 'tmp';

nekoya

#include <sys/systm.h>

#include "remap.hpp"
#include "RemapUtil.hpp"
#include "Config.hpp"
#include "keycode.hpp"
#include "util/PointingButtonStatus.hpp"

namespace org_pqrs_KeyRemap4MacBook {
  namespace GeneratedCode {

nekoya

diff --git a/lib/DBIx/Skinny.pm b/lib/DBIx/Skinny.pm
index fe676ab..93316d6 100644
--- a/lib/DBIx/Skinny.pm
+++ b/lib/DBIx/Skinny.pm
@@ -24,6 +24,7 @@ sub import {
 
     my $dbd_type = _dbd_type($args);
     my $_attribute = +{
+        check_schema    => defined $args->{check_schema} ? $args->{check_schema} : 1,
         dsn             => $args->{dsn},