Sub

Mail::Message::Head::FieldGroup is a Perl module with a sub set of fields in a header. INHERITANCE Mail::Message::Head::FieldGroup is a Mail::Reporter Mail::Message::Head::FieldGroup is extended by Mail::Message::Head::ListGroup Mail::Message::Head::ResentGroup...

Test::Exception is a Perl module to test exception based code. SYNOPSIS use Test::More tests => 5; use Test::Exception; # or if you dont need Test::More use Test::Exception tests => 5; # then... # Check that something died dies_ok { $foo->method1 } expecting to die; # Check that...

IPC::PubSub is Perl module for Interprocess Publish/Subscribe channels. SYNOPSIS # A new message bus with the DBM::Deep backend # (Other possible backends include Memcached and PlainHash) my $bus = IPC::PubSub->new(DBM_Deep => /tmp/pubsub.db); # A channel is any arbitrary string my...


Platforms: *nix

Thread::Apartment is an apartment threading wrapper for Perl objects. SYNOPSIS package MyClass; use Thread::Apartment::Server; use base qw(Thread::Apartment::Server); sub new { # # the usual constructor # } # # mark some methods as simplex # sub get_simplex_methods { return {...


Platforms: *nix

Class::Agreement is a Perl module that add contracts to your Perl classes easily. SYNOPSIS package SomeClass; use Class::Agreement; # use base Class::Accessor or Class::MethodMaker, # or roll your own: sub new { ... } invariant { my ($self) = @_; $self->count > 0; }; precondition...


Platforms: *nix

Hash::Merge Perl module merges arbitrarily deep hashes into a single hash. SYNOPSIS use Hash::Merge qw( merge ); my %a = ( foo => 1, bar => [ qw( a b e ) ], querty => { bob => alice }, ); my %b = ( foo => 2, bar => [ qw(c d) ], querty => { ted => margeret }, ); my %c = %{ merge(...


Platforms: *nix

Term::Shell is a simple command-line shell framework. SYNOPSIS package MyShell; use base qw(Term::Shell); sub run_command1 { print "command 1!n"; } sub smry_command1 { "what does command1 do?" } sub help_command1 { <


Platforms: *nix

Games::LMSolve::Base is a base class for puzzle solvers. SYNOPSIS package MyPuzzle::Solver; use Games::LMSolve::Base; @ISA = qw(Games::LMSolve::Base); # Override these methods: sub input_board { ... } sub pack_state { ... } sub unpack_state { ... } sub display_state { ... } sub...


Platforms: *nix

Test::Unit::Procedural Perl module contains a procedural style unit testing interface. SYNOPSIS use Test::Unit::Procedural; # your code to be tested goes here sub foo { return 23 }; sub bar { return 42 }; # define tests sub test_foo { assert(foo() == 23, "Your message here"); } sub...


Platforms: *nix

Religion is a Perl module that can generate tracebacks and create and install die() and warn() handlers. This is a second go at a module to simplify installing die() and warn() handlers, and to make such handlers easier to write and control. For most people, this just means that if use use...


Platforms: *nix

POE::Component::Client::FTP is a Perl module that implements an FTP client POE Component. SYNOPSIS use POE::Component::Client::FTP; POE::Component::Client::FTP->spawn ( Alias => ftp, Username => test, Password => test, RemoteAddr => localhost, Events => [ qw( authenticated put_connected...


Platforms: *nix

Asticones lets you display the icons (or icns files) of the sub-folders of a folder, as if they were albums in iPhoto.You can dynamically change the size to display the icons at, select one and create a file with that icon, or drag and drop files to paste the icon on them all.


Platforms: Mac

Test::Unit::TestCase is a unit testing framework base class. SYNOPSIS package FooBar; use base qw(Test::Unit::TestCase); sub new { my $self = shift()->SUPER::new(@_); # your state for fixture here return $self; } sub set_up { # provide fixture } sub tear_down { # clean up after...


Platforms: *nix

Net::Chat::Daemon is a Perl module to run a daemon that is controlled via instant messaging. ABSTRACT This package is intended to serve as a superclass for objects that want to communicate via IM messages within a distributed network of client nodes and a coordinator, without dealing with the...


Platforms: *nix

Sub::Curry is a Perl module to create curried subroutines. SYNOPSIS use Sub::Curry; use Sub::Curry qw/ :CONST curry /; # Import spice constants # and the &curry function. #my $f1 = Sub::Curry::->new(&foo, 1, 2); # Same as below. my $f1 = curry(&foo, 1, 2); my $f2 = $cb1->new(3, 4); my...


Platforms: *nix

Sub::Quotelike is a Perl module that allows to define quotelike functions. SYNOPSIS use Sub::Quotelike; sub myq () { my $s = shift; # Do something with $s... return $s; } sub myqq (") { my $s = shift; # Do something with $s... return $s; } print myq/abc def/; print myqq{abc...


Platforms: *nix

Sub::DeferredPartial is a deferred evaluation / partial application. SYNOPSIS use Sub::DeferredPartial def; $S = def sub : P1 P2 P3 { %_=@_; join , @_{qw(P1 P2 P3)} }; print $S->( P1 => 1, P2 => 2, P3 => 3 )->(); # 123 $A = $S->( P3 => 1 ); # partial application $B = $S->( P3 => 2 );...


Platforms: *nix

ReleaseAction - call actions upon release. SYNOPSIS use ReleaseAction on_release; { # OO style my $handle = ReleaseAction->new( sub {print "Exiting scopen"} ); print "In scopen"; } { # Functional style my $handle = on_release {print "Exiting scopen"}; print "In scopen"; } { my...


Platforms: *nix

Class::Std is a Perl module to support for creating standard "inside-out" classes. SYNOPSIS package MyClass; use Class::Std; # Create storage for object attributes... my %name : ATTR; my %rank : ATTR; my %snum : ATTR; my %public_data : ATTR; # Handle initialization of objects of...


Platforms: *nix

dtRdr::Logger is a Perl module for global logging. SYNOPSIS use dtRdr::Logger; L->debug($message, ...); L->info($message, ...); L->warn($message, ...); L->error($message, ...); L->fatal($message, ...); For a stacktrace: sub bar { L()->logcluck("foo"); } See Log::Log4perl for more...


Platforms: *nix