Funny Or Die Landlord Pearl

Mac::Errors is a Perl module with constants for Mac error codes. SYNOPSIS use Mac::Errors qw(openErr); if( $value == openErr ) { ... } my $error = $MacErrors{ $symbol }; # -- OR -- my $error = $MacErrors{ $number }; my $symbol = $error->symbol; my $number = $error->number; my $desc =...

Perl6::Builtins is a Perl module that provides erl 5 versions of the new Perl 6 builtins. SYNOPSIS use Perl6::Builtins qw( system ); system $system_cmd or die "Could not $system_cmd: $!"; my $package = caller->{package}; my $file = caller->{file}; my $line = caller->{line}; Several...

File::Stat::ModeString - conversion file stat mode to/from string representation. SYNOPSIS use File::Stat::ModeString; $string = mode_to_string ( $st_mode ); $st_mode = string_to_mode ( $string ); $type = mode_to_typechar( $st_mode ); $record = < IN >; chomp $record; $record =~...


Platforms: *nix

CGI::XMLForm is a Perl extension of CGI.pm which reads/generates formated XML. NB: This is a subclass of CGI.pm, so can be used in its place. SYNOPSIS use CGI::XMLForm; my $cgi = new CGI::XMLForm; if ($cgi->param) { print $cgi->header, $cgi->pre($cgi->escapeHTML($cgi->toXML)); } else {...


Platforms: *nix

EXAMPLE # This is a really long synopsis, but hopefully it will give you an idea... package MyPackage; use Class::Driver; use base q(Class::Driver); our %drivers; return 1; sub new { my($class, %args) = @_; die "mime_type is required" unless($args{mime_type}); die "no driver to...


Platforms: *nix

Hash::Type module contains pseudo-hashes as arrays tied to a "type" (list of fields). SYNOPSIS use Hash::Type; # create a Hash::Type my $personType = new Hash::Type(qw(firstname lastname city)); # create and populate some hashes tied to $personType tie %wolfgang, $personType, "wolfgang...


Platforms: *nix

Data::Type is a Perl module with versatile data and value types. SYNOPSIS use Data::Type qw(:all); use Error qw(:try); try { verify $email , EMAIL; verify $homepage , URI(http); verify $cc , CREDITCARD( MASTERCARD, VISA ); verify $answer_a , YESNO; verify $gender , GENDER; verify...


Platforms: *nix

PerlIO::via::CBC is a Perl IO layer for reading/writing CBC encrypted files. SYNOPSIS use PerlIO::via::CBC; PerlIO::via::CBC->config( key => my secret key, cipher => Blowfish, iv => $KJh#(}q, regenerate_key => 0, # default true padding => space, prepend_iv => 0, pcbc => 1 #default 0...


Platforms: *nix

Net::Lyskom is a Perl module used to talk to LysKOM servers. SYNOPSIS use Net::Lyskom; $a = Net::Lyskom->new(); $conf = 6; $a->login(pers_no => 437, password => "God", invisible => 1) or die "Failed to log in: $a->err_stringn"; $b = $a->send_message(7680, "Oook!"); $b =...


Platforms: *nix

Statistics::OLS is a Perl module to perform ordinary least squares and associated statistics. SYNOPSIS use Statistics::OLS; my $ls = Statistics::OLS->new(); $ls->setData (@xydataset) or die( $ls->error() ); $ls->setData (@xdataset, @ydataset); $ls->regress(); my ($intercept, $slope)...


Platforms: *nix

XML::TiePYX is a Perl module to read or write XML data in PYX format via tied filehandle SYNOPSIS use XML::TiePYX; tie *XML,XML::TiePYX,file.xml open IN,file.xml or die $!; tie *XML,XML::TiePYX,*IN,Condense=>0; my $text=< tag xmlns="http://www.omsdev.com" >text< /tag >; tie...


Platforms: *nix

GD::Graph::colour contains colour manipulation routines for use with GD::Graph. SYNOPSIS use GD::Graph::colour qw(:colours :lists :files :convert); The GD::Graph::colour package provides a few routines to work with colours. The functionality of this package is mainly defined by what is...


Platforms: *nix

POE::Component::Client::FTP is a Perl module that implements an FTP client POE Component. SYNOPSIS use POE::Component::Client::FTP; POE::Component::Client::FTP->spawn ( Alias => ftp, Username => test, Password => test, RemoteAddr => localhost, Events => [ qw( authenticated put_connected...


Platforms: *nix

GD::Image::CopyIFS is a Perl module for fractal-based image copying and resizing. SYNOPSIS # zoom in on an area of an image use GD::Image::CopyIFS; my $width = 64; my $height = 60; my $scale = 4; my $neww = $scale * $width; my $newh = $scale * $height; my $src_file = src.jpeg; my...


Platforms: *nix

Text::vFile::toXML can convert vFiles into equivalent XML. SYNOPSIS This module converts iCalendar (iCal : generically, vFile) files into their (equivalent) XML (xCalendar / xCal) representation, according to Royers IETF Draft (http://tools.ietf.org/html/draft-royer-calsch-xcal-03). #...


Platforms: *nix

Mail::Sendmail is a simple platform independent mailer. SYNOPSIS use Mail::Sendmail; %mail = ( To => you@there.com, From => me@here.com, Message => "This is a very short message" ); sendmail(%mail) or die $Mail::Sendmail::error; print "OK. Log says:n", $Mail::Sendmail::log; Simple...


Platforms: *nix

Tie::FlatFile::Array is a Perl extension which treats a flatfile database as an array of arrays. This module allows the programmer to treat a flatfile database as as array of arrays. For example, lets say you have a datafile that has fixed-length records like so: Field-name Type URL ASCII...


Platforms: *nix

SQL::Amazon::UserGuide is a Perl module with user Guide for DBD/SQL::Amazon. SYNOPSIS # # create the parser, passing in the current Amazon metadata # my $parser = SQL::Amazon::Parser->new(%attrs); # # parse a SQL statement, returning a SQL::Amazon::Statement # my $stmt =...


Platforms: *nix

DBIx::Migration::Directories is a Perl module to install/remove/upgrade/downgrade SQL schemas. SYNOPSIS use DBIx::Migration::Directories; use DBI; my $dbh = DBI->connect(db:something:some=where, user, pass); my $m = DBIx::Migration::Directories->new( base => /path/where/schemas/are,...


Platforms: *nix

DBIx::DWIW is a Perl module for robust and simple DBI wrapper to Do What I Want (DWIW). SYNOPSIS When used directly: use DBIx::DWIW; my $db = DBIx::DWIW->Connect(DB => $database, User => $user, Pass => $password, Host => $host); my @records = $db->Array("select * from foo"); When...


Platforms: *nix