hokaccha

// ==UserScript==
// @name           detect_ga_tracking
// @namespace      http://webtech-walker.com/
// @description    Auto detect for Google Analytics _setCustomVar traking.
// @include        http://*
// @include        https://*
// ==/UserScript==

(function() {

inao

#!/usr/bin/env perl

use strict;
use warnings;
use Pod::Usage;

use Text::Markdown 'markdown';
use HTML::TreeBuilder;
use List::Util 'max';

miyagawa

#!/usr/bin/perl -w
use strict;
use lib $ENV{MT_HOME} ? "$ENV{MT_HOME}/lib" : 'lib';
use MT::Bootstrap ();
use MT::App::CMS;
use CGI::PSGI;
use Plack::Builder;
use Plack::App::URLMap;
use Plack::App::File;

imakado

;; for typester
(defun cperl-calculate-indent (&optional parse-data) ; was parse-start
  "Return appropriate indentation for current line as Perl code.
In usual case returns an integer: the column to indent to.
Returns nil if line starts inside a string, t if in a comment.

Will not correct the indentation for labels, but will correct it for braces
and closing parentheses and brackets."
  ;; This code is still a broken architecture: in some cases we need to
  ;; compensate for some modifications which `cperl-indent-line' will add later