Subroutine Redefined

ex::override is a Perl pragma to override core functions. SYNOPSIS use ex::override ucfirst => sub { # make sure only the first # letter is uppercased ucfirst( lc( shift ) ); }; ucfirst( MAKE THIS RIGHT ); # Make this right no ex::override ucfirst; ucfirst( MAKE THIS RIGHT ); #... Platforms: *nix

CGI::WeT::Modules::Calendar are Perl extensions to engine to allow calendar management. SYNOPSIS use CGI::WeT::Modules::Calendar (); This module provides rendering constructs to allow navigation through a set of calendars. Support is provided for multiple types of events in multiple... 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

chilli_control is a script that takes a command-line argument telling it what to do with your smoothwall, ie connect, disconnect, or get the status. This version is designed for smoothwall version 2.0 beta. You will need to edit the script to set it up for your smoothwall. If you use the same... 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

Test::Unit::Procedural Perl module contains a procedural style unit testing interface. SYNOPSIS use Test::Unit::Procedural; # your code to be tested goes here sub foo { return 23 }; sub bar { return 42 }; # define tests sub test_foo { assert(foo() == 23, "Your message here"); } sub... Platforms: *nix

Tk::PerlMethodList is a Perl module to query the Symbol-table for methods (subroutines) defined in a class (package) and its parents. SYNOPSIS require Tk::PerlMethodList; my $instance = $main_window->PerlMethodList(); Tk::PerlMethodList is a Tk::Toplevel-derived widget. The window... 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

B::XPath class can search Perl optrees with XPath syntax. SYNOPSIS Perl represents programs internally as a tree of opcodes. To execute a program, it walks this tree, performing each operation as it encounters it. The B family of modules allows you to examine (and in some cases, manipulate)... Platforms: *nix

Lingua::ZH::Currency::UpperCase is a Perl module to convert Currency Numbers to Chinese UpperCase Format. SYNOPSIS use Lingua::ZH::Currency::UpperCase; print chinese_currency_uc( 2504.39 ); The main subroutine get a number and give a chinese string which has been converted as currency... Platforms: *nix

Alarm::Concurrent is a Perl module that allows multiple, concurrent alarms. This module is an attempt to enhance Perls built-in alarm/$SIG{ALRM} functionality. This function, and its associated signal handler, allow you to arrange for your program to receive a SIGALRM signal, which you can... 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

Class::Contract - Design-by-Contract OO in Perl. SYNOPSIS package ClassName use Class::Contract; contract { inherits BaseClass; invar { ... }; attr data1; attr data2 => HASH; class attr shared => SCALAR; ctor new; method methodname; pre { ... }; failmsg Error message; post... Platforms: *nix

Perl6::Export::Attrs - the Perl 6 is export(...) trait as a Perl 5 attribute. SYNOPSIS package Some::Module; use Perl6::Export::Attrs; # Export &foo by default, when explicitly requested, # or when the :ALL export set is requested... sub foo :Export(:DEFAULT) { print "phooo!"; } #... Platforms: *nix

Contextual::Return is a Perl module to create context-senstive return values. SYNOPSIS use Contextual::Return; use Carp; sub foo { return SCALAR { thirty-twelve } BOOL { 1 } NUM { 7*6 } STR { forty-two } LIST { 1,2,3 } HASHREF { {name => foo, value => 99} } ARRAYREF { [3,2,1] }... Platforms: *nix

IO::Interactive is a Perl module with utilities for interactive I/O. SYNOPSIS use IO::Interactive qw(is_interactive interactive busy); if ( is_interactive() ) { print "Running interactivelyn"; } # or... print {interactive} "Running interactivelyn"; $fh = busy {... Platforms: *nix

IO::Busy is a Perl module to intercept terminal input while something else is happening. SYNOPSIS use IO::Busy; my $fh = busy { non_interactive_stuff(); }; This module exports a single subroutine, named busy. That subroutine takes a single argument, which must be a block of code. busy... Platforms: *nix

IO::InSitu is a Perl module to avoid clobbering files opened for both input and output. SYNOPSIS use IO::InSitu; my ($in, $out) = open_rw($infile_name, $outfile_name); for my $line (<$in>) { $line =~ s/foo/bar/g; print {$out} $line; } When users want to do in-situ processing on a... 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

Exception::Class is a Perl module that allows you to declare real exception classes in Perl. SYNOPSIS use Exception::Class ( MyException, AnotherException => { isa => MyException }, YetAnotherException => { isa => AnotherException, description => These exceptions are related to IPC },... Platforms: *nix