Subroutine Redefined

Mops is a full featured, stand-alone development environment for programming the Macintosh. Inspired by Smalltalk and the commercial language Neon, Mops is based on Forth with extended object-oriented features such as multiple inheritance, early and late binding, persistent objects, and garbage...

Chart::Scientific is a Perl module that can generate simple 2-D scientific plots with logging, errbars, etc. SYNOPSIS Procedural interface use Chart::Scientific qw/make_plot/; make_plot ( x_data => @x_values, y_data => @yvalues ); The subroutine make_plot creates a Chart::Scientific...

SYNOPSIS use Math::MatrixReal; use Math::MatrixReal::Aug; These are certain extra methods for Math::MatrixReal, in the tradition of Math::MatrixReal::Ext1; $matrix1->augmentright($matrix2); Creates a new matrix of the form [$matrix1 $matrix2]. $matrix1 and $matrix2 must have the same...


Platforms: *nix

B::Lint module contains Perl lint. SYNOPSIS perl -MO=Lint[,OPTIONS] foo.pl The B::Lint module is equivalent to an extended version of the -w option of perl. It is named after the program lint which carries out a similar process for C programs. OPTIONS AND LINT CHECKS Option words are...


Platforms: *nix

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


Platforms: *nix

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


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

CGI::WeT::Modules::News are Perl extensions to engine to allow article management. SYNOPSIS use CGI::WeT::Modules::News (); This module provides rendering constructs to allow navigation through a set of articles. Support is provided for multiple types of articles in multiple groupings (or...


Platforms: *nix

AppleII::Disk is a Perl module for block-level access to Apple II disk image files. SYNOPSIS use AppleII::Disk; my $disk = AppleII::Disk->new(image.dsk); my $data = $disk->read_block(1); # Read block 1 $disk->write_block(1, $data); # And write it back :-) AppleII::Disk provides...


Platforms: *nix

Devel::RingBuffer is a Perl module with shared memory ring buffers for Perl scripts diagnosis/debug. SYNOPSIS # # create ringbuffer # use Devel::RingBuffer; use Devel::RingBuffer::TieInt; my $ringbuf = Devel::RingBuffer->new( File => somefile.trace, Rings => 20, Slots => 20,...


Platforms: *nix

Text::WagnerFischer is an implementation of the Wagner-Fischer edit distance. SYNOPSIS use Text::WagnerFischer qw(distance); print distance("foo","four");# prints "2" print distance([0,1,2],"foo","four");# prints "3" my @words=("four","foo","bar"); my...


Platforms: *nix

File::PM2File - obsolete. User File::Where SYNOPSIS file_in_include() # obsolete. Replace with File::Where::where() pm2file() # obsolete. Replace with File::Where::where_pm() pm2require() # obsolete. Replace with File::Where::pm2require() $File::PM2File::warn_obsolete = 1; # turns on...


Platforms: *nix

File::Maker is a Perl module that mimics a make by loading a database and calling targets methods. SYNOPSIS ##### # Subroutine interface # use File::Maker qw(load_db); %data = load_db($pm); ###### # Object interface # require File::Maker; $maker = $maker->load_db($pm);...


Platforms: *nix

File::DirCompare is a Perl module to compare two directories using callbacks. SYNOPSIS use File::DirCompare; # Simple diff -r --brief replacement use File::Basename; File::DirCompare->compare($dir1, $dir2, sub { my ($a, $b) = @_; if (! $b) { printf "Only in %s: %sn", dirname($a),...


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

Text::Reform is a Perl module for manual text wrapping and reformatting. SYNOPSIS use Text::Reform; print form $template, $data, $to, $fill, $it, $with; use Text::Reform qw( tag ); print tag B, $enboldened_text; The form sub The form() subroutine may be exported from the module....


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

Ace::Browser::AceSubs Perl module contains subroutines for AceBrowser. SYNOPSIS use Ace; use Ace::Browser::AceSubs; use CGI qw(:standard); use CGI::Cookie; my $obj = GetAceObject() || AceNotFound(); PrintTop($obj); print $obj->asHTML; PrintBottom(); Ace::Browser::AceSubs exports a...


Platforms: *nix

Text::Scrub is a Perl module used to wild card out text used for comparison. SYNOPSIS ######### # Subroutine Interface # use Text::Scrub qw(scrub_date scrub_date_ticket scrub_date_version scrub_file_line scrub_probe scrub_test_file); $scrubbed_text = scrub_architect($script_text)...


Platforms: *nix

Javascript::Menu is a NumberedTree that generates HTML and Javascript code for a menu. SYNOPSIS use Javascript::Menu; # Give it something to do (example changes the menus caption): my $action = sub { my $self = shift; my ($level, $unique) = @_; my $value = $self->getValue; return...


Platforms: *nix