bingos

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;

bingos

use strict;
use warnings;
use File::Fetch;
use File::Spec;
use IO::Zlib;
use CPAN::DistnameInfo;
use ExtUtils::Installed;
use Module::CoreList;

my $location = '.';

bingos

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,  );

bingos

use strict;
use warnings;
use threads;
use Thread::Queue;
use POE;

$|=1;

my $queue = Thread::Queue->new;
async { $queue->enqueue( $_ ) while defined( $_ = <STDIN> ); }->detach;

bingos

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

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;

bingos

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

use strict;
use warnings;
use CPAN::DistnameInfo;
use JSON::PP;
use HTTP::Tiny;
use version;

my $metabase= 'http://api.metacpan.org/release/';

$|=1;

bingos

#! /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

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;