Achtung Die Kurve

Template::Ast is a Perl module to process ASTs for Perl Template Toolkit. SYNOPSIS use Template::Ast; # Rebuild AST stored in file: $ast = Template::Ast->read(foo.ast) or die Template::Ast->error(); # Writing existing AST to file: $ast = { Marry => [24, F], John => [21, M] };...

Makefile::Parser is a Simple Parser for Makefiles. SYNOPSIS use Makefile::Parser; $parser = Makefile::Parser->new; # Equivalent to ->parse(Makefile); $parser->parse or die Makefile::Parser->error; # Get last value assigned to the specified variable CC: print $parser->var(CC); # Get...

SOAP::Amazon::S3 is a Perl module for interfacing with Amazon S3 through SOAP. SYNOPSIS An object-oriented interface to handle your Amazon S3 storage. (Still experimental, although functional) use SOAP::Amazon::S3; my $s3 = SOAP::Amazon::S3->new( $access_key_id, $secret_access_key, {...


Platforms: *nix

Russian Mafia project is a multiplayer IRC game implementation of Russian Mafia. Russian Mafia is a multiplayer IRC game implementation of the popular game, Russian Mafia, which is based on the Russian card game "MAFIA". The peaceful civilians attempt to kill all the Mafia and maniacs, while...


Platforms: *nix

MP3::Icecast is a Perl module to generate Icecast streams, as well as M3U and PLSv2 playlists. SYNOPSIS use MP3::Icecast; use MP3::Info; use IO::Socket; my $listen_socket = IO::Socket::INET->new( LocalPort => 8000, #standard Icecast port Listen => 20, Proto => tcp, Reuse => 1,...


Platforms: *nix

Config::Framework is a Perl module with handy one-stop shopping for (most) of your configuration file needs. SYNOPSIS #create a new object, load two configuration files and decrypt the passwords. my $Object = new Config::Framework( Files => [ApplicationCfg.xml,UserCfg.xml], GetSecure => 1 )...


Platforms: *nix

SYNOPPSIS use LWP::Simple use XML::Parser; use XML::Parser::YahooRESTGeocode; #connect to yahoo geocode service my $url = http://api.local.yahoo.com/MapsService/V1/geocode; my $get = appid=YahooDemo&street=701+First+Street&city=Sunnyvale&state=CA; #call yahoo geocode service my $xml =...


Platforms: *nix

Sys::Manage::Cmd - Systems management command volley. SYNOPSIS Command line script use Sys::Manage::Cmd; my $s =Sys::Manage::Cmd->new(); # Script associations (see also embedded in source): $s->{-assoc}->{.ftp}=sub{[ftp,-n,-s:loginfile,!elem!,<,$_[1]->[0]]}; # Target collections:...


Platforms: *nix

Closure::Loop is a Perl module with redo, last, next for closure based loops. SYNOPSIS package MyIterator; use Closure::Loop; # mixin sub new { my $class = shift; return bless { }, $class; } sub forAll { my $self = shift; my $cb = pop || die "No callback"; for my $i (@_) { eval {...


Platforms: *nix

Nasal is a language that I wrote for use in a personal project. Ostensibly it was because I was frustrated with the dearth of small-but-complete embeddable scripting languages, but of course I really wrote it because it was fun. It is still young and incomplete in a few places, but is under...


Platforms: *nix

Pod::POM is a POD Object Model. SYNOPSIS use Pod::POM; my $parser = Pod::POM->new(%options); # parse from a text string my $pom = $parser->parse_text($text) || die $parser->error(); # parse from a file specified by name or filehandle my $pom = $parser->parse_text($file) || die...


Platforms: *nix

XML::Schema::Type::Simple is a base class for simple XML Schema datatypes. SYNOPSIS package XML::Schema::Type::whatever; use base qw( XML::Schema::Type::Simple ); use vars qw( @FACETS ); @FACETS = ( minLength => 10, maxLength => 30, otherFacet => { value => $n, fixed => 1,...


Platforms: *nix

Imager::Filters is an entire image filtering operations. SYNOPSIS use Imager; $img = ...; $img->filter(type=>autolevels); $img->filter(type=>autolevels, lsat=>0.2); $img->filter(type=>turbnoise) # and lots of others load_plugin("dynfilt/dyntest.so") or die "unable to load pluginn";...


Platforms: *nix

Hook::Scope is a Perl extension for adding hooks for exiting a scope. SYNOPSIS use Hook::Scope; { Hook::Scope::POST(sub { print "I just left my scope"}); print "you will see this first!"; } use Hook::Scope qw(POST PRE); # only POST can be exported { POST { print "foo" }; POST sub {...


Platforms: *nix

Test::Extreme is a perlish unit testing framework. SYNOPSIS # In ModuleOne.pm combine unit tests with code package ModuleOne; use Test::Extreme; sub foo { return 23 }; sub test_foo { assert_equals foo, 23 } # at the end of the module run_tests ModuleOne if $0 =~ /ModuleOne.pm$/; #...


Platforms: *nix

Module::Signature is a Perl module signature file manipulation. SYNOPSIS As a shell command: % cpansign # verify an existing SIGNATURE, or # make a new one if none exists % cpansign sign # make signature; overwrites existing one % cpansign -s # same thing % cpansign verify # verify a...


Platforms: *nix

HTTPD::Log::Filter is a Perl module to filter entries out of an httpd log. SYNOPSIS my $hlf = HTTPD::Log::Filter->new( exclusions_file => $exclusions_file, agent_re => .*Mozilla.*, format => ELF, ); while( <> ) { my $ret = $hlf->filter( $_ ); die "Error at line $.: invalid log...


Platforms: *nix

Intellidiscs is a Remake of Tron: Deadly Discs for the classic Intellivision console. Its also one of the few, if not the first, Tron freeware games that has nothing to do with light-cycles. Basically, you run around in an arena fighting off bad guys with your disc. There are four different...


Platforms: *nix

Linux::Joystick is an object-oriented, pure Perl API for accessing joystick devices under Linux-based operating systems. Linux::Joystick module is capable of using either blocking or non-blocking I/O, and represents each axis change or button press as a Linux::Joystick::Event object. USAGE If...


Platforms: *nix

XML::Filter::DataIndenter is a SAX2 Indenter for data oriented XML. SYNOPSIS use XML::Filter::DataIndenter; use XML::SAX::Machines qw( Pipeline ); Pipeline( XML::Filter::DataIndenter => *STDOUT ); ALPHA CODE ALERT: This is the first release. Feedback and patches welcome. In data...


Platforms: *nix