ysasaki

#!/usr/bin/env perl

use utf8;
use strict;
use warnings;

my $app;
BEGIN { $app = 'stream2libnotify' }

use Config::Pit;

ysasaki

From 8ab9f7d1e72072fa8ec6ccb01fc579d2d4d18026 Mon Sep 17 00:00:00 2001
From: Yoshihiro Sasaki <[email protected]>
Date: Tue, 26 Oct 2010 15:51:41 +0900
Subject: [PATCH] FIXED: find_or_create failed if table has multi-pk

---
 lib/DBIx/Skinny.pm |    6 +++++-
 t/216_multi_pk.t   |   17 +++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletions(-)

ysasaki

package MyApp::Exception;
use strict;
use warnings;
use Scalar::Util qw/blessed/;
use Exception::Class (
    'MyApp::Exception' =>
        { description => 'base class for myapp\'s exceptions' },

    'MyApp::Exception::Params' => {
        isa         => 'MyApp::Exception',

ysasaki

use strict;
use warnings;
use Test::More;
use Test::Exception;
use HTTP::Request::Common;
use Plack::Request;
use Plack::Test;
use HTML::Shakan;

note "FormValidator::Lite $FormValidator::Lite::VERSION";

ysasaki

#import <stdio.h>
#import <Foundation/NSArray.h>

void* make_array(void) {
    NSLog(@"initialize NSMutableArray");
    NSMutableArray *ar = [[NSMutableArray alloc] initWithObjects:@"aaa", @"bbb", @"ccc", nil];
    return ar;
}

int append(NSMutableArray* ar, NSString* str) {

ysasaki

#!/usr/bin/env perl

package Foo;
use strict;
use warnings;
use LWP::UserAgent;

my $agent = LWP::UserAgent->new;
sub request {
    my $class   = shift;

ysasaki

#!/usr/bin/env perl

# Usage:$0 filename
# e.g. ack --perl -f | xargs perl perl_prereqscanner.pl

use strict;
use warnings;
use Perl::PrereqScanner;

if ( @ARGV == 0 ) {

ysasaki

#!/usr/bin/env perl

use strict;
use warnings;
use Config::Pit;

my $config = pit_get( 'im.kayac.com',
    require => { username => 'anon-perl-monger' } );

# find curl command

ysasaki

use strict;                                                      
use warnings;                                                    
use Test::More;                                                  
use Test::MockObject;                                            
use LWP::UserAgent;
use HTTP::Request::Common;

my $mock = Test::MockObject->new;
$mock->fake_module(
    'LWP::UserAgent',

ysasaki

#!perl

# Usage: $0 [last_talk_id] | sort -nrk1

use strict;
use warnings;
use Furl;
use JSON;
use Encode qw(encode_utf8);
use URI::Escape;