hayajo

filter.Add(func(s) {
    return strings.ToLower(s)
}, 10)

ainame

#import <XCTest/XCTest.h>
#import <TKRGuard.h>
#import <OHHTTPStubs.h>

@interface AMEHTTPRequestTestCase : XCTestCase

@property (nonatomic, strong) NSURLRequest *lastRequest;

- (void)stubAllRequestWithResponseFileName:(NSString *)responseFileName statuCode:(NSInteger)statusCode;

mash

OUT = ir-state.png ir-learn.png ir-send.png packer.png wifi-morse-setup.png

all: $(OUT)

.SUFFIXES: .png .gv .msc

.gv.png:
	dot -Tpng $< -o $@

Craftworks

#!/usr/bin/env perl

use strict;
use warnings;

my @GLOBAL_BUFFERS = qw(
    key_buffer_size
    innodb_buffer_pool_size
    innodb_log_buffer_size
    innodb_additional_mem_pool_size

Cside

#!/usr/bin/env perl

=head1 Examples

  $ tail -f access_log    | perl colorize.pl
  $ plackup app.psgi 2>&1 | perl colorize.pl

=cut

use strict;

issm

package Amon2::Plugin::Model;
use strict;
use warnings;
use Module::Find;
use Try::Tiny;

our $VERSION = '0.01';

sub init {
    my ($class, $context_class, $config) = @_;

studio3104

Provisioning Frameworks Casual Talks vol.1

ChefとかPuppetとかの勉強会です
次回があるかはわかりませんが、今回はChef成分多めになっております

インターネット情報

Twitterハッシュタグ #pfcasual
IRCチャンネル #chef-casual@freenode

ntakanashi

#!/usr/bin/env perl
use common::sense;
use Furl::HTTP;
use HTML::TagParser;
 
$ARGV[0] =~ /(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,%#]+)/ or die 'invalid format';
my $url = $1;
 
my $furl = Furl::HTTP->new;
my ($minor_version, $status, $message, $headers, $content) = $furl->request(

kazeburo

diff --git a/webapp/perl/cpanfile b/webapp/perl/cpanfile
index e3d6103..944b12e 100644
--- a/webapp/perl/cpanfile
+++ b/webapp/perl/cpanfile
@@ -2,3 +2,6 @@ requires 'Kossy'       => '0.12';
 requires 'DBIx::Sunny' => '0.17';
 requires 'DBD::mysql'  => '4.022';
 requires 'Starman'     => '0.3003';
+requires 'Starlet';
+requires 'Cache::Memory::Simple';

kawanet

#import <Foundation/Foundation.h>

@interface NSURL (dictionaryFromQueryString)
-(NSDictionary *) dictionaryFromQueryString;
@end