gslin

$VAR1 = {
          'SCRIPT_NAME' => '/test.pl',
          'SERVER_NAME' => 0,
          'HTTP_REFERER' => 'http://xxx.xx:5000/',
          'HTTP_ACCEPT_ENCODING' => 'gzip,deflate',
          'HTTP_CONNECTION' => 'keep-alive',
          'PATH_INFO' => '',
          'HTTP_ACCEPT' => 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8',
          'REQUEST_METHOD' => 'GET',
          'SERVER_SOFTWARE' => 'CGI-Emulate-PSGI',

gslin

<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<oembed>
	<version>1.0</version>
	<type>photo</type>
	<author_url>http://www.flickr.com/photos/bees/</author_url>
	<cache_age>3600</cache_age>
	<provider_name>Flickr</provider_name>

	<provider_url>http://www.flickr.com/</provider_url>
	<title>ZB8T0193</title>

gslin

{
   "width" : 425,
   "author_name" : "YouTubeHelp",
   "author_url" : "http://www.youtube.com/user/YouTubeHelp",
   "version" : "1.0",
   "provider_url" : "http://www.youtube.com/",
   "provider_name" : "YouTube",
   "thumbnail_width" : 480,
   "thumbnail_url" : "http://i3.ytimg.com/vi/ZA22WSVlCZ4/hqdefault.jpg",
   "height" : 344,

gslin

#
name "Restore Fonts Packages"
outFile "Setup.exe"
setCompressor /solid lzma

installDir "$WINDIR\Fonts"

section
setOutPath $INSTDIR
file "Inconsolata\Inconsolata.otf"

gslin

From [email protected]  Mon Mar  7 16:45:41 2011
Return-Path: <[email protected]>
X-Original-To: [email protected]
Delivered-To: [email protected]
Received: from x1.develooper.com (x1.develooper.com [207.171.7.70])
        by colo-p.gslin.org (Postfix) with SMTP id 812537E819
        for <[email protected]>; Mon,  7 Mar 2011 16:45:40 +0800 (CST)
Received: (qmail 3700 invoked by uid 225); 7 Mar 2011 08:45:38 -0000
Delivered-To: [email protected]
Received: (qmail 3681 invoked by uid 103); 7 Mar 2011 08:45:38 -0000

gslin

if [[ -f $HOME/.perlbrew/init ]]; then
    source $HOME/.perlbrew/init
fi

short_option=""

__perlbrew_reinit () {
    echo '# DO NOT EDIT THIS FILE' > $HOME/.perlbrew/init
    command perlbrew $short_option env $1 >> $HOME/.perlbrew/init
    source $HOME/.perlbrew/init

gslin

package Mojolicious::Plugin::MarkaplRenderer;
use strict;
use warnings;

use Mojo::Base 'Mojolicious::Plugin';

sub register {
    my ($self, $app, $conf) = @_;

    $conf ||= {};

gslin

#!/usr/bin/env perl

use strict;
use warnings;

use 5.010;
use DBI;
use LWP::Simple;
use WWW::Mechanize;
use XML::RSS;

gslin

#!/usr/bin/env perl

use strict;
use warnings;

use 5.010;
use OAuth::Lite::Consumer;

INIT {
    my $c = OAuth::Lite::Consumer->new(

gslin

#!/usr/bin/env perl

use strict;
use warnings;

use 5.010;
use OAuth::Lite::Consumer;
use OAuth::Lite::Token;
use encoding ':locale';