Lexical Ambiguity

XML::Descent is a Perl module for recursive descent XML parsing. SYNOPSIS use XML::Descent; # Create parser my $p = XML::Descent->new({ Input => $xml }); # Setup handlers $p->on(folder => sub { my ($elem, $attr) = @_; $p->on(url => sub { my ($elem, $attr) = @_; my $link = { name...

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 {...

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

Devel::Hints is a Perl module created to access compile-time hints at runtime. SYNOPSIS use Devel::Hints :all; LABEL: print cop_label(); # LABEL cop_label(0 => FOO); # "goto FOO;" is valid after this point! print cop_file(); # same as __FILE__ print cop_filegv(); # same as $::{_< ....


Platforms: *nix

Filter::Macro is a Perl module to make macro modules that are expanded inline. SYNOPSIS In MyHandyModules.pm: package MyHandyModules; use Filter::Macro; # lines below will be expanded into callers code use strict; use warnings; use Switch; use IO::All; use Quantum::Superpositions;...


Platforms: *nix

Variable::Alias is a Perl module created to alias any variable to any other variable. SYNOPSIS use Variable::Alias alias; my $src; my $a; our $b; my @c; our @d; alias $src => $a; alias $a => $b; alias $b => $c[0]; alias @c => @d; $src=src; # All the other variables now have the...


Platforms: *nix

Devel::FindGlobals is a Perl module to find global variables and their size. SYNOPSIS use Devel::FindGlobals; print print_globals_sizes(); This module just runs around and over the symbol table, finds global variables, gets their sizes with Devel::Size, and then prints them out....


Platforms: *nix

Object::LocalVars is a Perl module with outside-in objects with local aliasing of $self and object variables. SYNOPSIS package My::Object; use strict; use Object::LocalVars; give_methods our $self; # this exact line is required our $field1 : Prop; our $field2 : Prop; sub as_string :...


Platforms: *nix

File::pushd is a Perl module to change directory temporarily for a limited scope. SYNOPSIS use File::pushd; chdir $ENV{HOME}; # change directory again for a limited scope { my $dir = pushd( /tmp ); # working directory changed to /tmp } # working directory has reverted to $ENV{HOME}...


Platforms: *nix

Perl6::Currying is a Perl 6 subroutine currying for Perl 5. SYNOPSIS use Perl6::Currying; sub add ($a,$b) { $a + $b } # Define a sub with named params print add(1,2); # Call it my $incr = &add.prebind(a=>1); # Bind the $a argument to 1 # to create an increment subroutine print...


Platforms: *nix

String::RexxParse is a Perl implementation of REXX parse command. SYNOPSIS use String::RexxParse qw(parse); parse $source, q! $var1 $var2 ( $var3 ) $var4 ($var5) $var6 !; or use String::PexxParse; $parse = String::RexxParse->new(q! $var1 $var2 ( $var3 ) $var4 ($var5) $var6 !);...


Platforms: *nix

SYNOPSIS use Math::FresnelZone; use Math::FresnelZone qw(fresnel fresnelMi fresnelKm); The arguments are: 0 - distance in kilometers or miles (default is 1), 1 - frequency in GHz (defualt 2.4), 2 - set to true to specify that the distance you are inputting is in miles and that the...


Platforms: *nix

Carp::Datum is a Perl module used for debugging and tracing. SYNOPSIS # In modules use Carp::Datum; # Programming by contract sub routine { DFEATURE my $f_, "optional message"; # $f_ is a lexical lvalue here my ($a, $b) = @_; DREQUIRE $a > $b, "a > b"; $a += 1; $b += 1; DASSERT $a >...


Platforms: *nix

Class::InsideOut::Manual::About is a guide to this and other implementations of the inside-out technique. This manual provides an overview of the inside-out technique and its application within Class::InsideOut and other modules. It also provides a list of references for further study....


Platforms: *nix

PyBison is a Python binding to the Bison (yacc) and Flex (lex) parser-generator utilities. It allows parsers to be quickly and easily developed as Python class declarations, and for these parsers to take advantage of the fast and powerful C-based Bison/Flex. Users write a subclass of a basic...


Platforms: *nix

Time::Format is a Perl module for easy-to-use date/time formatting. SYNOPSIS use Time::Format qw(%time %strftime %manip); $time{$format} $time{$format, $unixtime} print "Today is $time{yyyy/mm/dd}n"; print "Yesterday was $time{yyyy/mm/dd, time-24*60*60}n"; print "The time is...


Platforms: *nix

File::Basename is a Perl module to parse file paths into directory, filename and suffix. SYNOPSIS use File::Basename; ($name,$path,$suffix) = fileparse($fullname,@suffixlist); $name = fileparse($fullname,@suffixlist); $basename = basename($fullname,@suffixlist); $dirname =...


Platforms: *nix

PasTmon project measure the transaction response times of your web and application servers. Perform continuous passive monitoring of network traffic. Record historical data of measurements in a backend database and present via a PHP based web front-end. PasTmon is a passive network traffic...


Platforms: *nix

Parse::Nibbler is Perl module to parse huge files using grammars written in pure perl. Create a parser object using the ->new method. This method is provided by the Parse::Nibbler module and should not be overridden. The main functionality of the Parse::Nibbler module is the Register...


Platforms: *nix

Bio::Tools::CodonTable is a bioperl codon table object. SYNOPSIS # This is a read-only class for all known codon tables. The IDs are # the ones used by nucleotide sequence databases. All common IUPAC # ambiguity codes for DNA, RNA and animo acids are recognized. # to use use...


Platforms: *nix