Skip to content

Instantly share code, notes, and snippets.

use strict;
use warnings;
use Module::Pluggable search_path => 'Software::License', sub_name => 'licenses';
use Software::License;
use Getopt::Long;
my $list;
my $license = 'Perl_5';
my $holder;
my $year;
use strict;
use warnings;
use File::Fetch;
use File::Spec;
use IO::Zlib;
use CPAN::DistnameInfo;
use ExtUtils::Installed;
use Module::CoreList;
my $location = '.';
use strict;
use warnings;
use Pod::Stripper;
use File::Copy qw(cp);
use File::Find;
my $dir = shift || die;
die unless -d $dir;
find( \&_wanted, $dir, );
use strict;
use warnings;
use threads;
use Thread::Queue;
use POE;
$|=1;
my $queue = Thread::Queue->new;
async { $queue->enqueue( $_ ) while defined( $_ = <STDIN> ); }->detach;
Netsplit detection for POE::Component::IRC::State
=================================================
- In S_quit detect if the user is leaving due to a netsplit
- There is a msg on the QUIT
- It matches "host.domain host2.domain2" or "*.net *.split" etc.
- Stash the state for that user + channel info in {NETSPLIT}
- In S_join detect if the user is joining as the result of netjoin
- Check the nick!user@host mask against what is in {NETSPLIT}
@bingos
bingos / poe-bug.pl
Created September 24, 2009 08:22 — forked from tokuhirom/poe-bug.pl
use warnings;
use strict;
use POE;
use POE::Component::Server::TCP;
use Test::TCP;
use Test::More 0.94;
test_tcp(
client => sub {
my $port = shift;
use strict;
use warnings;
use CPANPLUS::Configure
use CPANPLUS::Backend;
my $conf = CPANPLUS::Configure->new();
$conf->set_conf( no_update => '1' );
$conf->set_conf( prereqs => 0 );
$conf->set_conf( skiptest => 1 );
$conf->set_conf( verbose => 1 );
@bingos
bingos / compare2metacpan.pl
Created December 14, 2011 10:53
Compare dual-life to MetaCPAN
use strict;
use warnings;
use CPAN::DistnameInfo;
use JSON::PP;
use HTTP::Tiny;
use version;
my $metabase= 'http://api.metacpan.org/release/';
$|=1;
@bingos
bingos / yapc-vlc.pl
Created June 13, 2012 22:01 — forked from madsen/yapc-vlc.pl
Watch YAPC::NA with VLC
#! /usr/bin/perl
# USAGE: yapc-vlc ROOM
# where ROOM is L, V, 313, or 325
use strict;
use warnings;
use IPC::Cmd qw[can_run];
use List::Util qw(first);
use HTML::TreeBuilder 5 -weak;
@bingos
bingos / gist:3868805
Created October 10, 2012 22:10
Parsing 02packages.details.txt with a git repository
cp /home/ftp/CPAN/modules/02packages.details.txt .
git diff 02packages.details.txt | $PERL parsediffpackages.pl
git commit -m 'packages' 02packages.details.txt
====parsediffpackages.pl
use strict;
use warnings;
use DBI;
use CPAN::DistnameInfo;