True Value Hardware Store

Sub::PatMat can call a version of subroutine depending on its arguments. SYNOPSIS use Sub::PatMat; # basics: sub fact : when($_[0] <= 1) { 1 } sub fact { my ($n) = @_; $n*fact($n-1) } print fact(6); # referring to things other than @_: sub mysort : when($a < $b) { -1 } sub mysort :...

HTML::FormHighlight Perl module can help you to highlights fields in an HTML form. SYNOPSIS use HTML::FormHighlight; my $h = new HTML::FormHighlight; print $h->highlight( scalarref => $form, fields => [ A, B, C ], ); print $h->highlight( scalarref => $form, fields => [ A, B, C ],...

Net::SMTP::TLS is an SMTP client supporting TLS and AUTH. SYNOPSIS use Net::SMTP::TLS; my $mailer = new Net::SMTP::TLS( your.mail.host, Hello => some.host.name, Port => 25, #redundant User => emailguy, Password=> s3cr3t); $mailer->mail(emailguy@your.mail.host);...


Platforms: *nix

Algorithm::DiffOld is a Perl module to compute `intelligent differences between two files / lists but use the old (<=0.59) interface. NOTE This has been provided as part of the Algorithm::Diff package by Ned Konz. This particular module is ONLY for people who HAVE to have the old interface,...


Platforms: *nix

Template::Manual::Directives is a Perl module that contains template directives. Accessing and Updating Template Variables GET The GET directive retrieves and outputs the value of the named variable. [% GET foo %] The GET keyword is optional. A variable can be specified in a directive...


Platforms: *nix

OpenInteract::UI::Main is the primary user interface assembly conductor. SYNOPSIS my $page = OpenInteract::UI::Main->handler(); send_http_headers(); print $page; # Subclass to define a new method for looking up template names: package OpenInteract::UI::LanguageChoice; use base qw(...


Platforms: *nix

Tk::PerlInheritanceTree is a Perl module that displays a graphical representation of the inheritance tree for a given class-name. SYNOPSIS require Tk::PerlInheritanceTree; ... my $inheritance_tree = $main_window->PerlInheritanceTree()->pack; $inheritance_tree->classname(Tk::MainWindow);...


Platforms: *nix

GD::Image::Thumbnail is a Perl extension for creating thumbnailed images with GD. SYNOPSIS use GD::Image::Thumbnail; my $img = GD::Image->new(100,20); my $thm = $img->thumbnail; # same as { factor => 0.20 } my $thm = $img->thumbnail($n); # same as { side => $n } my $thm =...


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

SYNOPSIS use Array::Compare; my $comp1 = Array::Compare->new; $comp->Sep(|); $comp->Skip({3 => 1, 4 => 1}); $comp->WhiteSpace(0); $comp->Case(1); my $comp2 = Array::Compare->new(Sep => |, WhiteSpace => 0, Case => 1, Skip => {3 => 1, 4 => 1}); my @arr1 = 0 .. 10; my @arr2 = 0 .....


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

Iterator::IO is a Perl module with filesystem and stream iterators. SYNOPSIS use Iterator::IO; # Return the names of files in a directory (except . and ..) $iter = idir_listing ($path); # Return all the files in a directory tree, one at a time. # Like File::Find, in slow motion. $iter...


Platforms: *nix

CAD::Drawing::Manipulate is a Perl module to manipulate CAD::Drawing objects. Move, Copy, Scale, Mirror, and Rotate methods for single entities and groups of entities. Group Methods These methods are called with required values, followed by a hash reference of option values. Note the...


Platforms: *nix

POE::Component::Enc::Mp3 is a mp3 encoder wrapper. SYNOPSIS use POE qw(Component::Enc::Mp3); $mp3 = POE::Component::Enc::Mp3->new($bitrate => 160); $mp3->enc("/tmp/tst.wav"); POE::Kernel->run(); This POE component encodes raw audio files into mp3 format. It is merely a wrapper for the...


Platforms: *nix

List::Util Perl module contains a selection of general-utility list subroutines. SYNOPSIS use List::Util qw(first max maxstr min minstr reduce shuffle sum); List::Util contains a selection of subroutines that people have expressed would be nice to have in the perl core, but the usage would...


Platforms: *nix

File::Wildcard is a Perl module for enhanced glob processing. SYNOPSIS use File::Wildcard; my $foo = File::Wildcard->new(path => "/home/me///core"); while (my $file = $foo->next) { unlink $file; } When looking at how various operating systems do filename wildcard expansion (globbing),...


Platforms: *nix

Rose::DB::Object::Tutorial is a guided tour of the basics of Rose::DB::Object. INTRODUCTION This document provides a step-by-step introduction to the Rose::DB::Object module distribution. It demonstrates all of the important features using a semi-realistic example database. This tutorial does...


Platforms: *nix

SYNOPSIS use Mail::Abuse::Report; my $r = new Mail::Abuse::Report ( -text => $report_text, -reader => $reader, -filters => [ $f1, $f2, ... ], -parsers => [ $i1, $i2, ... ], -processors => [ $p1, $p2, ... ], -debug => 1, -config => $config_file, ); This class encapsulates an abuse...


Platforms: *nix

Test::WWW::Selenium is a Perl module to test applications using Selenium Remote Control. SYNOPSIS Test::WWW::Selenium is a subclass of WWW::Selenium that provides convenient testing functions. use Test::More tests => 5; use Test::WWW::Selenium; # Parameters are passed through to...


Platforms: *nix

GD::Convert is a Perl module with additional output formats for GD. SYNOPSIS use GD; use GD::Convert qw(gif=gif_netpbm newFromGif=newFromGif_imagemagick wbmp); # or: require GD::Convert; import GD::Convert; ... $gd->ppm; $gd->xpm; $gd->gif; $gd->wbmp; ... $gd =...


Platforms: *nix