Free params software for linux

Params-Util is a simple, compact and correct param-checking functions.

SYNOPSIS

# Import some functions
use Params::Util qw{_SCALAR _HASH _INSTANCE};

# If you are lazy, or need a lot of them...
use Params::Util :ALL;

sub foo {
my $object = _INSTANCE(shift, Foo) or return undef;
my $image = _SCALAR(shift) or return undef;
my $options = _HASH(shift) or return undef;
# etc...
}

"Params::Util" provides a basic set of importable functions that makes checking parameters a hell of a lot easier

While they can be (and are) used in other contexts, the main point behind this module is that the functions both Do What You Mean, and Do The Right Thing, so they are most useful when you are getting params passed into your code from someone and/or somewhere else and you cant really trust the quality.

Thus, "Params::Util" is of most use at the edges of your API, where params and data are coming in from outside your code.

The functions provided by "Params::Util" check in the most strictly correct manner known, are documented as thoroughly as possible so their exact behaviour is clear, and heavily tested so make sure they are not fooled by weird data and Really Bad Things.

To use, simply load the module providing the functions you want to use as arguments (as shown in the SYNOPSIS).

To aid in maintainability, "Params::Util" will never export by default.

You must explicitly name the functions you want to export, or use the ":ALL" param to just have it export everything (although this is not recommended if you have any _FOO functions yourself with which future additions to "Params::Util" may clash)

Params::Validate is a Perl module to validate method/function parameters.

SYNOPSIS

use Params::Validate qw(:all);

# takes named params (hash or hashref)
sub foo
{
validate( @_, { foo => 1, # mandatory
bar => 0, # optional
}
);
}

# takes positional params
sub bar
{
# first two are mandatory, third is optional
validate_pos( @_, 1, 1, 0 );
}


sub foo2
{
validate( @_,
{ foo =>
# specify a type
{ type => ARRAYREF },

bar =>
# specify an interface
{ can => [ print, flush, frobnicate ] },

baz =>
{ type => SCALAR, # a scalar ...
# ... that is a plain integer ...
regex => qr/^d+$/,
callbacks =>
{ # ... and smaller than 90
less than 90 => sub { shift() < 90 },
},
}
}
);
}

sub with_defaults
{
my %p = validate( @_, { foo => 1, # required
# $p{bar} will be 99 if bar is not
# given. bar is now optional.
bar => { default => 99 } } );
}

sub pos_with_defaults
{
my @p = validate_pos( @_, 1, { default => 99 } );
}

sub sets_options_on_call
{
my %p = validate_with
( params => @_,
spec => { foo => { type SCALAR, default => 2 } },
normalize_keys => sub { $_[0] =~ s/^-//; lc $_[0] },
);
}

The Params::Validate module allows you to validate method or function call parameters to an arbitrary level of specificity. At the simplest level, it is capable of validating the required parameters were given and that no unspecified additional parameters were passed in.

It is also capable of determining that a parameter is of a specific type, that it is an object of a certain class hierarchy, that it possesses certain methods, or applying validation callbacks to arguments.

Palabre is an open source (and free as in free beer) XML Socket Python Server.
It is meant to be used in replacement (for example) of the Macromedia Flash Communication Server. (which is lets admit it really expensive)
Of course, its much more limited, but has all the basic functionnalities for connecting Flash based Clients through Xml Sockets (sending and receiving messages).
So you can use it to create, multiuser applications like a Chat, (almost) Real Time Flash Games, Online support, ...
It does not include Video streaming functions ( FLV via RTMP ) instead of Flash Communication Server.
Main features:
- Have multiple Rooms
- Each Room can have any parameter you want ( A title, a lock, operators, any flag, ...)
- The creator of the room can change this parameters
- The room can have Sub rooms (or child rooms)
- For Example, you can host 10 games and chats on a server, and each game has a lobby room for chatting, and as many subrooms as wanted. Players can chat, start a new game, wait for people to join, and then start the game. (Then the child room of the game can be "locked" so that no one else joins it.
- Have multiple clients
- They are identified by a nickname (like on IRC)
- One client can be in multiple rooms / subrooms
- Clients can send messages to a room
- Clients can send messages to other clients (private messages)
- Clients can send a broadcast message (or reserve this to root)
- Clients can ping the server
- Clients can ask for a "room message" to be sent back to them. (to test latency, ...)
Enhancements:
- Database identification support (< connect nickname="X" password="Y" / >)
- Clients params (< clientparam name="X" value="Y" / >)
- SubXML nodes : (< msg toroom="X" >< position >< x >12< /x >< /position >< /msg >)
- Customizable nodes (< mynode toroom="X" anyparam="Y" >< AnyContent >< /mynode >)
- Joined/Left information (< client name="Nickname" joined="Lobby" / >)

ModPerl::ParamBuilder is a Perl module that makes building custom Apache directives easy.

SYNOPSIS

package MyApp::Parameters;

use ModPerl::ParamBuilder;

use base qw( ModPerl::ParamBuilder );

my $builder = ModPerl::ParamBuilder->new( __PACKAGE__ );

# Build simple one argument parameter
$builder->param( Template );
$builder->param( PageTitle );
$builder->param( ItemsPerPage );

# Build an On/Off parameter
$builder->on_off( Caching );

# Build a Yes/No parameter
$builder->yes_no( AutoCommit );

# Build a no argument/flag parameter
$builder->no_arg( Active );

# Build a one argument parameter with a custom error message
# and special configuration hash key
$builder->param( {
name => SMTPServer,
err => SMTPServer xx.xx.xx.xx,
key => smtp_server,
});

# Load the configuration into Apache
$builder->load;

################################################
# And elsewhere in your application
################################################
package MyApp::Main;

# Retrieve the configuration like so
my $params = MyApp::Parameters->new;
my $conf_ref = $params->get_config( $r );

# Or if you have PerlOptions +GlobalRequest on then you can just
# call
my $conf_ref = $params->get_config;

One of the neatest features of mod_perl 2.0 is the ability to easily create your own custom Apache directives. Not only are they more efficient to use compared to PerlSetEnv, PerlPassEnv, PerlAddVar, and PerlSetVar, but they give your application a more polished and professional look and feel..

Not to mention theyre just plain cool. This module aims to make the already easy, even easier.
Note that you MUST load your parameter module with PerlLoadModule in your httpd.conf and not PerlModule. This is necessary because Apache needs to load your module earlier than usual in the startup to be able to read its own configuration now.

LIMITATIONS

The biggest limitation is that this module ONLY works with mod_perl 2.0 and above. There are no plans to support mod_perl 1.x for this module, trust me you want to upgrade to mod_perl 2 as soon as you can.

This modules intent is not to replace the underlying mod_perl APIs nor is it intended to be used for complicated cases where special processing is needed. It is intended to make the simple things simple.

Some things to keep in mind when using ModPerl::ParamBuilder

This module does not restrict where the directives can be used in Apaches httpd.conf. To restrict directives to particular area ( only in main server conf, a VirtualHost, or a Location, etc ) you will need to use the mod_perl APIs to build your directives.

This also does not do, by default, any error checking or validation on the arguments passed to directives. If you create a directive NumberOfItemsPerPage and then put:

NumberOfItemsPerPage rhubarb

Apache will not see this as an error and your configuration hash for the key NumberOfItemsPerPage will contain the string rhubarb. You can validate this data in three different ways:

1) Validate the configuration data in your application prior to
using it.

2) Instruct ModPerl::ParamBuilder to use a special function for
processing the arguments by passing the func option.

3) Revert to using the mod_perl API where you have more control.

See the appropriate mod_perl 2.0 API modules for how to accomplish more in depth processing of directives and their data.

Data::CGIForm is a Perl module with form data interface.

Data::CGIForm is yet another way to parse and handle CGI form data. The main motivation behind this module was a simple specification based validator that could handle multiple values.
You probably dont want to use this module. CGI::Validate is a much more feature complete take on getting this sort of work done. You may then ask why this is on the CPAN, I ask that of myself from time to time....

SYNOPSIS

my %spec = (
username => qr/^([a-z0-9]+)$/,
password => {
regexp => qr/^([a-z0-9+])$/,
filter => [qw(strip_leading_ws, strip_trailing_ws)],
},
email => {
regexp => qr/^([a-z0-9@.]+)$/,
filter => &qualify_domain,
optional => 1,
errors => {
empty => You didnt enter an email address.,
invalid => Bad [% key %]: "[% value %]",
},
extra_test => &check_email_addr,
},
email2 => {
equal_to => email,
errors => {
unequal => Both email addresses must be the same.,
},
},
);

my $r = $ENV{MOD_PERL} ? Apache::Request->instance : CGI->new;

my $form = Data::CGIForm->new(datasource => $r, spec => %spec);


my @params = $form->params;
foreach $param (@params) {
next unless my $error_string = $form->error($param);

print STDERR $error_string;
}

if ($form->error(username)) {
handle_error($form->username, $form->error(username));
}

my $email = $form->param(email);
my $password = $form->password;

App::Modular::Module::Events is a Perl module with event handling for App::Modular compatible applications.

SYNOPSIS
####################################################################
package App::Modular::Module::Me;

use base qw(App::Modular::Module);

sub depends { return Events; }

sub start_listen {
my $self = shift;

$self->{modularizer}->module(Events)->
register(Listener, TelephoneRings);
};

sub event_handler {
my $self = shift;
my $event = shift;
print Yeah! Somebody thought about me!
if ($event eq TelephoneRings);
};

####################################################################
package App::Modular::Module::You;

use base qw(App::Modular::Module);

sub depends { return Events; }

sub call_me {
$self->{modularizer}->module(Events)->
trigger(TelephoneRings);
};

####################################################################
package main;

use App::Modular;

my $modul = instance App::Modular;

$modul->module(Me)->start_listen();
$modul->module(You)->callme();

exit;

App::Modular aims to provide a framework which should it make very easy to programmes to create any kind of modular program.

This module provides basic event handling as a contribution to that toolkit. Modules may register themselves as listeners for events, if an event is triggered, all the modules are notified by calling $module-event_handler(event, @params) >.

The events are speciefied as simple strings.

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 before delimiter beginning from current position.
# Delimiter is SCALAR or reference to array with many SCALARs.
# Returns true value on succesfull matching or if end of stream
# expected at first time
$bool = $stream->readto( $delimiter,
{ Out => *OUT, Limit => $limit, Mode => AIE } );

# Reading fixed number of chars beginning from current position.
# Returns true value if was readed number of chars more then zero or
# end of stream was not expected yet
$bool = $stream->readsome( $limit, { Out => *OUT, Mode => A } );

# Mode is string, what can contains:
# U - modificator for constructor. disable utf-8 checking
# B - modificator for constructor. enable second buffer for speed up
# case insensitive search
# A - modificator for readto() and readsome(). appending data to
# output stream, if stream is SCALAR
# I - modificator for readto(). enable case insensitive search
# E - modificator for readto(). at end of input stream alltimes
# returns false value

$number = $stream->{Total}; # total number of readed chars
$number = $stream->{Readed}; # number of readed chars at last
# operation (without matched string
# length at readto() method)
$number = $stream->{Stored}; # number of succesfully stored chars
# at last operation
$string = $stream->{Match}; # matched string at last operation
# (actually for readto() only)
$bool = $stream->{Error}; # error status. true on error

METHODS

OBJ = Stream::Reader->new( INPUT, { ... Params ... } )

The constructor method instantiates a new Stream::Reader object.

INPUT - is a reference to file stream, opened for reading, or reference to defined string. This is an obligatory parameter.

Params (all optionaly):

Limit - limit size of input stream data in characters. If this parameter is absent, not defined or less then zero, then all data from input stream will be available for reading.

BuffSize - size of buffer in characters. If this parameter is absent, not defined or less then zero, then will be used default buffer size 32768 characters.

Mode - is string with letters-modificators:

B - use second buffer. Can really speed up search in case insensitive mode.
U - disable UTF-8 data check in UTF-8 mode. Use this flag if you are absolutely sure, that your UTF-8 data is valid.

RESULT = OBJ->readto( DELIMITER, { ... Params ... } )

This method reads all data from input stream before first found delimiter, beginning from current position.

RESULT - boolean value. True value if successfuly found delimeter or and of input stream has expected at first time. False value otherwise, or in case of reading error.

DELIMETER - is a string-delimeter or reference to array with many delimeters. This is an obligatory parameter and must be defined.

Remember! In case of many delimiters, left delimiter alltimes have more priority then right!

Params (all optionaly):

Out - is a reference to file stream, opened for writing, or reference to string. If this parameter is absent then data will not stored.
Limit - size in characters. Defines, the maximum number of characters that must be stored in Out. If this paramter is absent, not defined or less then zero, then this method will be trying to store all readed data.
Mode - is string with letters-modificators:
A - appendig data to Out if Out is a reference to string.
I - search in case insensitive mode.
E - at the end of input stream returns only false value. Without this modificator, if end of stream expected at first time, then will be returned true value.

RESULT = OBJ->readsome( LIMIT, { ... Params ... } )
This method reads fixed number of characters from input stream beginning from current position.

RESULT - boolean value. True value, if any characters were read or end of input stream is not expected yet. False value otherwise, or in case of reading error.

LIMIT - limit size in characters, how many it is necessary to read. If this parameter is absent, not defined or less then zero, then will be read all available data from input stream.

Params (all optionaly):

Out - the same as in readto() method.
Mode - is string with letters-modificators:
A - the same as in readto() method.

Statistics:

OBJ->{Total} - total number of readed characters. Warning! This module using block reading and real position in stream is different.
OBJ->{Readed} - number of readed characters at last operation (without matched string length at readto() method).
OBJ->{Stored} - number of succesfully stored chars at last operation
OBJ->{Match} - matched string at last operation (actually for readto() only)
OBJ->{Error} - boolen error status. At any reading erorrs all operations will be stopes and this flag turned to true value.

KinoSearch::Util::Class is a Perl class building utility.
PRIVATE CLASS
This is a private class and the interface may change radically and without warning. Do not use it on its own.
SYNOPSIS
package KinoSearch::SomePackage::SomeClass;
use base qw( KinoSearch::Util::Class );
BEGIN {
__PACKAGE__->init_instance_vars(
# constructor params / members
foo => undef,
bar => {},
# members
baz => {},
);
}
KinoSearch::Util::Class is a class-building utility a la Class::Accessor, Class::Meta, etc. It provides four main services:
- A mechanism for inheriting instance variable declarations.
- A constructor with basic argument checking.
- Manufacturing of get_xxxx and set_xxxx methods.
- Convenience methods which help in defining abstract classes.