yappo

(function(ns) {
	var r = typeof window != 'undefined' ? window : this;
	[].forEach.call(ns.split("."), function(v) { r = r[v] = {} })
})("mattn.hasegawayosuke.tokuhirom")

mattn.hasegawayosuke.tokuhirom.Miyagawa = function() {
	alert('それPla')
}

mattn.hasegawayosuke.tokuhirom.Miyagawa()

yappo

use JSTAPd::Suite;
sub tests { 11 }

sub include {
    (
        # /Users/monjudoh/Sites/callendar-demo/js/config-require.js
        '/js/config-require.js',
        '/js/allplugins-require.js',
    );
}

yappo

#!/usr/bin/perl
use strict;
use File::Basename qw(basename);
use File::Temp 'tempfile';

sub get($);
sub mirror($$);
sub untar;

if (eval { require LWP::Simple }) {

yappo

my $s1 = "\x3d"; # =                                                                           
print $s1 . "\n";
my $text = 'hogehogeho\x3dhogehoge';
$text =~ s/\\x([0-9a-z]{2})/pack 'H2', $1 /ge;
print "$text\n";

yappo

雲一つ無いいい天気！

yappo

mattn: さいたまさいたまー?

いえ、ちがいます

すいません、どうやら人違いでした。

yappo

mattn: さいたまさいたまー?

yappo

(defun perl-insert-package ()
  (interactive)
  (require 'perl-completion)
  (cond
   ((null buffer-file-truename) (error "no buffer-file-truename"))
   (t
    (let* ((s (replace-regexp-in-string
               (rx-to-string `(and bol ,(plcmp--get-lib-path) (? "/")))
               ""
               (expand-file-name buffer-file-truename)))

yappo

package HTTP::Engine::Middleware::Profile::NYTProf;
use Any::Moose;
use Time::HiRes;
with 'HTTP::Engine::Middleware::Profile::Role';

BEGIN {
    # referred to L<Devel::NYTProf::Apache>                                                                                                                              

    if (!$ENV{NYTPROF}) {
        $ENV{NYTPROF} = "file=/tmp/nytprof.$$.out";

yappo

use strict;
use warnings;
use autodie;

use Imager;
use GD;
use Image::Magick;

print "# Imager        $Imager::VERSION\n";
print "# GD            $GD::VERSION\n";