hayajo

package Plack::Middleware::Auth::Basic::Ex;

use strict;
use warnings;

use parent qw/Plack::Middleware::Auth::Basic/;
use Plack::Util::Accessor qw( exclude_path );

sub prepare_app {
    my $self = shift;

hayajo

function PB_RL() {
    setTimeout('PB_RL.readlater();', 1);
};

PB_RL.prototype = {

    readlater : function() {
        //PB_RL.u = encodeURIComponent(document.location.href);
        //PB_RL.t = encodeURIComponent(document.title.replace(/^\s\s*/, '').replace(/\s\s*$/, ''));
        //var url = 'https://pinboard.in/add?later=yes&noui=yes&jump=close&url='+PB_RL.u+'&title='+PB_RL.t;

hayajo

#!/usr/bin/env perl

use strict;
use warnings;
use 5.008_001;

use File::Spec;
use File::Basename;
use lib File::Spec->catdir(dirname(readlink(__FILE__) || __FILE__), qw/extlib lib perl5/);

hayajo

{
  "options.dial.style.title.face": "Helvetica, Helvetica Neue, Arial, Verdana",
  "options.dial.titlePosition": "inside",
  "options.dial.style.colors.bg": "FFFFFF",
  "options.dial.style.colors.titleover": "333333",
  "options.dial.style.shadow": "1",
  "options.dial.columns": "4",
  "options.dial.style.round": "8",
  "options.dial.style.colors.bgover": "FFFFFF",
  "options.dial.style.padding": "4",

hayajo

#!/usr/bin/env perl

use strict;
use warnings;
use 5.008_001;

use Text::CSV;
use Data::Dumper;

use constant COLUMNS => [ qw/NAME EMAIL MEMO/ ];

hayajo

#!/bin/sh

### config ###
MY_DOMAIN="MY-DOMAIN.mydns.jp"
MY_ID="MY-ID"
MY_PASSWD="MY-PASSWD"
#IFCONFIG="/sbin/ifconfig"
#INTERFACE="eth0"
#NSLOOKUP="nslookup"
#TEMP_PATH="/tmp"

hayajo

--- lib/Config/ENV.pm.org       2011-10-24 13:16:33.000000000 +0900
+++ lib/Config/ENV.pm   2011-10-24 13:33:42.000000000 +0900
@@ -64,13 +64,20 @@

 sub current {
        my ($package) = @_;
+    $package->merged;
+}
+
+sub merged {

hayajo

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

use 5.010;
use Test::More;

sub run_tests {
    is(fizzbuzz(1), 1, 'speak number by 1');
    is(fizzbuzz(2), 2, 'speak number by 2');

hayajo

"====================
" perltidy
"====================
call system('which perltidy')
if ! v:shell_error
    "autocmd FileType perl nmap <buffer> = :%!perltidy -q<CR>
    "autocmd FileType perl vmap <buffer> = :!perltidy -q<CR>
    autocmd FileType perl :set equalprg=perltidy\ -pbp
endif

hayajo

use strict;
use warnings;

use Image::Term256Color;
use Term::ReadKey;
use POSIX qw/ceil/;
use Web::Scraper;
use URI;
use Furl;
use File::Temp;