Sub

Test::Stochastic is a Perl module to check probabilities of randomized methods. SYNOPSIS use Test::Stochastic qw(stochastic_ok); stochastic_ok sub { ...random sub...}, {a => 0.4, b => 0.6}; stochastic_ok {a => 0.4, b => 0.6}, sub { ...random sub...}; Test::Stochastic::setup(times => 100,...

Async::Group is a Perl class to deal with simultaneous asynchronous calls. SYNOPSIS use Async::Group ; use strict ; sub sub1 { print "Dummy subroutine n"; my $dummy = shift ; my $cb = shift ; &$cb(1); } sub allDone { print "All done, result is ", shift ,"n" ; } my $a =...

Yet Another antiVirus Recipe is a procmail that helps to filter out a lot of the most common e-mail worms. For some of the above (plain iframe, clsid, xml, macro) e-mail is delivered normally but gets a WARNING in subject plus its old subject ($SUB). Some of the warnings are:...


Platforms: *nix

MP3 Report Generator is a customizable program to scan a list of (sub)directories, creating a report from an HTML template. Also calculates various statistics and each songs playing time. Supports ID3 and ID3v2 tags. All options can be configured through the command line, see mp3report.pl...


Platforms: *nix

Constantly searching for misplaced shortcuts on your Desktop, Desktop sub-folders, Start Menu, Internet Favorites menu, etc.? This program helps you find misplaced shortcuts or any other types of files quickly and easily in any combination of Windows most commonly used shell locations such as...


Platforms: Windows

Sendmail::Milter is a Perl interface to sendmails Mail Filter API. SYNOPSIS use Sendmail::Milter; my %my_milter_callbacks = ( connect => &my_connect_callback, helo => &my_helo_callback, envfrom => &my_envfrom_callback, envrcpt => &my_envrcpt_callback, header => &my_header_callback,...


Platforms: *nix

Thread::Pool contains group of threads for performing similar jobs. SYNOPSIS use Thread::Pool; $pool = Thread::Pool->new( { optimize => cpu, # default: memory pre => sub {shift; print "starting worker with @_n", do => sub {shift; print "doing job for @_n"; reverse @_}, post => sub...


Platforms: *nix

Sub::Regex is a Perl module to create synonymous subroutines. SYNOPSIS use Sub::Regex; sub /look(s|ing)?_for/ ($){ foobar blah blah } look_for(Amanda); looks_for(Amanda); looking_for(Amanda); lOoKiNg_fOr(Amanda); Sub::Regex is a small tool for users to create a subroutine with...


Platforms: *nix

Class::Observable is a Perl module that allows other classes and objects to respond to events in yours. SYNOPSIS # Define an observable class package My::Object; use base qw( Class::Observable ); # Tell all classes/objects observing this object that a state-change # has occurred sub...


Platforms: *nix

Benchmark is a Perl module with benchmark running times of Perl code. SYNOPSIS use Benchmark qw(:all) ; timethis ($count, "code"); # Use Perl code in strings... timethese($count, { Name1 => ...code1..., Name2 => ...code2..., }); # ... or use subroutine references. timethese($count,...


Platforms: *nix

File::FilterFuncs is a Perl module that specify filter functions for files. SYNOPSIS use File::FilterFuncs qw(filters); filters(source.txt, sub { $_ = uc $_; 1 }, dest.txt ); INTRODUCTION File::FilterFuncs makes it easy to perform transformations on files. When you use this module,...


Platforms: *nix

FSA::Rules is a Perl module to build simple rules-based state machines in Perl. Synopsis my $fsa = FSA::Rules->new( ping => { do => sub { print "ping!n"; my $state = shift; $state->result(pong); $state->machine->{count}++; }, rules => [ game_over => sub { shift->machine->{count} >=...


Platforms: *nix

Java::Build::GenericBuild is a high level driver to control Java builds. SYNOPSIS There are two (or more) code files needed to effectively use this module. First, create a subclass of this class: package Java::Build::MyBuild; use Carp; # Do the following in a BEGIN block before the use...


Platforms: *nix

Sub::Slice::Manual is a Perl module with user guide for Sub::Slice. USING Sub::Slice Sub::Slice is a way of breaking down a long-running process and maintaining state across a stateless protocol. This allows the client to draw a progress bar or abort the process part-way through. The...


Platforms: *nix

Benchmark::Forking is a Perl module to run benchmarks in separate processes. SYNOPSIS use Benchmark::Forking qw( timethis timethese cmpthese ); timethis ($count, "code"); timethese($count, { Name1 => sub { ...code1... }, Name2 => sub { ...code2... }, }); cmpthese($count, { Name1 =>...


Platforms: *nix

FUSE::Server is a Perl-FUSE server. SYNOPSIS use FUSE::Server; my $s = FUSE::Server->new({ Port=>35008, MaxClients=>5000, Quiet=>1, }); my $status = $s->bind(); print "Server started: $status"; $s->addCallback(BROADCASTALL,&msg_broadcast);...


Platforms: *nix

List::RewriteElements is a Perl module that can create a new list by rewriting elements of a first list. SYNOPSIS use List::RewriteElements; Constructor Simplest case: Input from array, output to STDOUT. $lre = List::RewriteElements->new( { list => @source, body_rule => sub { my...


Platforms: *nix

Gtk2::Ex::MindMapView is a Perl module to display mind map or outline on a Gnome2::Canvas. HEIRARCHY Glib::Object +----Gtk2::Object +----Gtk2::Widget +----Gtk2::Container +----Gtk2::Layout +----Gnome2::Canvas +----Gtk2::Ex::MindMapView SYNOPSIS #!/usr/bin/perl -w use strict; use...


Platforms: *nix

Code::Splice injects the contents of one subroutine at a specified point elsewhere. SYNOPSIS use Code::Splice; Code::Splice::inject( code => sub { print "fredn"; }, package => main, method => foo, precondition => sub { my $op = shift; my $line = shift; $line =~ m/print/ and $line =~...


Platforms: *nix

EXAMPLE # This is a really long synopsis, but hopefully it will give you an idea... package MyPackage; use Class::Driver; use base q(Class::Driver); our %drivers; return 1; sub new { my($class, %args) = @_; die "mime_type is required" unless($args{mime_type}); die "no driver to...


Platforms: *nix