gugod

package MyApp::View::Page;
use strict;
use warnings;
use utf8;
use encoding 'utf8';
use base qw/Jifty::View::Declare::Page/;

use Template::Declare::Tags;
use Jifty::View::Declare::Helpers;

gugod

#!/usr/bin/env perl -w
use strict;
use warnings;
use 5.010;

use Devel::Declare ();

sub check {
    my $op = shift;
    my $offset =  Devel::Declare::get_linestr_offset();

gugod

using System;
using System.Security.Cryptography;
using System.Collections.Generic;
using System.Text;
using System.Web;

namespace OAuth {
	public class OAuthBase {

        /// <summary>

gugod

#!/usr/bin/env perl
use strict;
use warnings;
use UNIVERSAL::require;
use HTTP::Message;

use YAML;
use CGI::PSGI;

BEGIN {

gugod

> ab -n 100 -c 2 http://yra.local/
This is ApacheBench, Version 2.3 <$Revision: 655654 $>
Copyright 1996 Adam Twiss, Zeus Technology Ltd, http://www.zeustech.net/
Licensed to The Apache Software Foundation, http://www.apache.org/

Benchmarking yra.local (be patient).....done


Server Software:        Apache/2.2.11
Server Hostname:        yra.local

gugod

#!/usr/bin/env perl
#
# Usage:
#
#    closure-complier.pl < file1.js file2.js file3.js ... > out.js
#

use strict;
use warnings;

gugod

# Append this to ~/.ssh/config

ControlMaster auto
ControlPath /tmp/ssh_mux_%h_%p_%r

gugod

Fixnum.class_eval("def + (x)\n(to_f + x.to_f + 1).to_i\nend")

puts 2 + 2

gugod

git config branch.master.remote origin
git config branch.master.merge refs/heads/master

# auto setup when doing 'git branch' or 'git checkout'
git config branch.autosetupmerge true

gugod

#!/usr/bin/env perl
use common::sense;
use Continuity;

Continuity->new(port => 5000)->loop;

my $counter = 0;
sub main {
    my ($request) = @_;
    $counter++;