This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use feature 'say'; | |
use Mojo::IOLoop::ReadWriteFork; | |
sub myfork { | |
my $fork = Mojo::IOLoop::ReadWriteFork->new( ioloop => Mojo::IOLoop->singleton); | |
my $cat_result = ''; | |
$fork->on(error => sub { | |
my($fork, $error) = @_; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
---- Mojo::UserAgent::NTLMAuth | |
package Mojo::UserAgent::NTLMAuth; | |
use Mojo::Base 'Exporter'; | |
use Mojo::UserAgent; | |
use Authen::NTLM; | |
use XXX -with => 'Data::Dumper'; | |
use constant DEBUG => $ENV{MOJO_USERAGENT_NTLM_AUTH_DEBUG} || 0; | |
our $VERSION = '0.01'; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<!DOCTYPE html> | |
<meta charset="utf-8"> | |
<style> | |
.node rect { | |
cursor: pointer; | |
fill: #fff; | |
fill-opacity: .5; | |
stroke: #3182bd; | |
stroke-width: 1.5px; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
@echo off | |
rem ******************************************** | |
rem * Name: perldochtml.bat | |
rem * Desc: View perldoc in browser | |
rem ******************************************** | |
perldoc -o html -w index %* > %TEMP%\perldoc_teml.html && start %TEMP%\perldoc_teml.html |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use Mojolicious::Lite; | |
# Documentation browser under "/perldoc" | |
my $user_scalar = ''; | |
get '/' => sub { | |
my $self = shift; | |
response(); | |
}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#-*- coding: utf-8 -*- | |
import sys | |
from PyQt4 import QtGui, QtCore | |
from PyQt4.QtGui import QApplication, QMainWindow, QGraphicsScene, QGraphicsView, QGraphicsWidget | |
from PyQt4.QtGui import QGraphicsProxyWidget, QBrush, QPalette, QColor, QWidget, QVBoxLayout | |
from PyQt4.QtCore import QState, QPointF, QStateMachine, Qt, QObject, SIGNAL, SLOT, QThread | |
from mainWindow import Ui_MainWindow | |
from matplotlib.backends.backend_qt4agg import FigureCanvasQTAgg as FigureCanvas | |
from matplotlib.backends.backend_qt4agg import NavigationToolbar2QTAgg as NavigationToolbar |