Ace True Value Hardware

Stream::Reader is a stream reader Perl class. SYNOPSIS # Input stream can be reference to TYPEGLOB or SCALAR, output stream # can be the same types or undefined # Constructor $stream = Stream::Reader->new( *IN, { Limit => $limit, BuffSize => $buffsize, Mode => UB } ); # Reading all...

List::MoreUtils is a Perl module that can provide the stuff missing in List::Util. SYNOPSIS use List::MoreUtils qw(any all none notall true false firstidx first_index lastidx last_index insert_after insert_after_string apply after after_incl before before_incl indexes firstval first_value...

Scalar::Properties is a Perl module package that contains run-time properties on scalar variables. SYNOPSIS use Scalar::Properties; my $val = 0->true; if ($val && $val == 0) { print "yup, its true alright...n"; } my @text = ( hello world->greeting(1), forget it, hi...


Platforms: *nix

RFC::RFC822::Address is a Perl module for RFC 822 style address validation. SYNOPSIS use RFC::RFC822::Address qw /valid/; print "Validn" if valid abigail@example.com; This module checks strings to see whether they are have the valid syntax, as defined in RFC 822 [1]. One subroutine,...


Platforms: *nix

Perl::Critic::Config is a Perl module to find and load Perl::Critic user-preferences. Perl::Critic::Config takes care of finding and processing user-preferences for Perl::Critic. The Config object defines which Policy modules will be loaded into the Perl::Critic engine and how they should be...


Platforms: *nix

Crypt::UnixCrypt is a perl-only implementation of the crypt function. SYNOPSIS use Crypt::UnixCrypt; $hashed = crypt($plaintext,$salt); # always use this modules crypt BEGIN { $Crypt::UnixCrpyt::OVERRIDE_BUILTIN = 1 } use Crypt::UnixCrypt; This module is for all those poor souls whose...


Platforms: *nix

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


Platforms: *nix

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


Platforms: *nix

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