miyagawa

package Module::Install::Repository;

use strict;
use 5.008_001;
our $VERSION = '0.01';

use base qw(Module::Install::Base);

sub auto_set_repository {
    my $self = shift;

miyagawa

From eaaaa91b8775ff972f91f6e89049159fb55fcd9d Mon Sep 17 00:00:00 2001
From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Thu, 19 Mar 2009 19:01:53 -0700
Subject: [PATCH] Need to use it

---
 lib/once.pm |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/lib/once.pm b/lib/once.pm

miyagawa

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
  <key>Label</key>
  <string>github-growler</string>
  <key>ProgramArguments</key>
  <array>
    <string>/bin/tcsh</string>
    <string>-c</string>

miyagawa

Index: lib/Net/OAuth/Simple.pm
===================================================================
--- lib/Net/OAuth/Simple.pm	(revision 5465)
+++ lib/Net/OAuth/Simple.pm	(working copy)
@@ -144,6 +144,39 @@
 
 =back
 
+Google's OAuth API requires the non-standard I<scope> parameter to be set in I<request_token_url>, and you also explicitly need to pass I<oauth_callback> to I<get_authorization_url()> method, so that you can direct the user to your site if you're authenticating users in Web Application mode. Otherwise Google will let user to grant acesss as a desktop app mode and doesn't redirect users back.
+

miyagawa

#!/usr/bin/perl
# $f is UTF-8 (on Mac OS X)
for my $f (<*.mp3>) {
    (my $title = $f) =~ s/\.mp3//;
    $title =~ s/^\d+\. *//;
    # -e 2 tells mp3info2 to decode @ARGV using LANG
    system 'mp3info2', '-e', '2', '-t', $title, $f;
}

miyagawa

Remedie - pluggable and open source media center

Remedie (http://remediecode.org/) is a media center application that runs on your desktop as a web server, so you can browse and subscribe to as many video sharing sites as you want, and play and watch videos instantly in your browser using Flash embeds and your favorite players like QuickTime or VLC. Remedie is written in Perl, jQuery and CSS to enable desktop-like user interface and support for individual sites like YouTube, Nico Nico Douga and Hulu are pluggable so you can extend to add support for your favorite video sites. Remedie is open source and available aon Github at http://github.com/miyagawa/remedie .

In this talk, I'll give you an overview of what Remedie can do, how it's build and how you can help to make it even better.

miyagawa

We couldn’t find that file to show.

miyagawa

Index: dbdimp.c
===================================================================
--- dbdimp.c	(revision 6024)
+++ dbdimp.c	(working copy)
@@ -405,7 +405,11 @@
             }
             else {
                 STRLEN len;
-                char * data = SvPV(value, len);
+                char *data;

miyagawa

#!/usr/bin/perl
use strict;

my $script = shift or die "script required";
MyWebServer::CGI->new->run;

package MyWebServer::CGI;
use base qw( HTTP::Server::Simple::CGI );

sub handle_request {

miyagawa

#!/usr/bin/perl
use strict;
use warnings;
use Net::Google::Code;
use Net::GitHub;
use LWP::UserAgent;
use Text::CSV_XS;

my($gc_proj, $gh_proj) = @ARGV;