Free 0.02 software for linux

Text::PromptBalanced aid in creating CLI prompts that keep track of balanced text.

SYNOPSIS

use Text::PromptBalanced qw(balance_factory);
($state,$balance) = balance_factory(
string => { type => toggle, open => " },
paren => {
type => balanced, open => (, close => ), ignore_in => string },
comment => { type => eol, open => ;, ignore_in => string },
escape => { type => escape, open => }
);
while(< STDIN >) {
my $cur_balance = $balance->($_);
if($state->{string}==1) { print q["> ] }
elsif($state->{paren} > 0) { print qq[($cur_balance> ] }
elsif($cur_balance < 0)
{ warn "Unbalanced paren at character $cur_balance" }
else { print q[0> ] }
}

Template::Plugin::HtmlToText is a plugin interface to HTML::FormatText.

SYNOPSIS

Quick summary of what the module does.

Perhaps a little code snippet.

[% USE HtmlToText %]

# use html2text FILTER to var myhtml or myhtmltext
[% myhtml FILTER html2text(leftmargin => 0, rightmargin => 50) %]
[% myhtmltext | html2text %]

# not to a var, but to html code
[% FILTER html2text %]
heavy
[% END %]
[%# output is "heavy", no %]

This plugin provides an interface to the HTML::FormatText module which format HTML as plaintext.

XML::DOM::XML_Base Perl module can apply xml:base to attribute values.

SYNOPSIS

use XML::DOM::XML_Base;
my $parser = XML::DOM::Parser->new();

my $xml = qq(





);

# build the DOM
my $dom = $parser->parse( $xml );

# get some elements
my $endo = $dom->getElementsByTagName( endo )->item( 0 );
my $meso = $dom->getElementsByTagName( meso )->item( 0 );
my $ecto = $dom->getElementsByTagName( ecto )->item( 0 );

print $endo->getBase()."n"; # a/b/c/
print $meso->getBase()."n"; # a/b/
print $ecto->getBase()."n"; # a/

print $endo->getAttributeWithBase( x )."n"; # a/b/c/3
print $meso->getAttributeWithBase( x )."n"; # a/b/2
print $ecto->getAttributeWithBase( x )."n"; # a/1

PDL::Opt::NonLinear is a Perl module with non linear optimization routines.

SYNOPSIS

use PDL::Opt::NonLinear;

$x = random(5);
$gx = rosen_grad($x);
$fx = rosen($x);

$xtol = pdl(1e-16);
$gtol = pdl(0.9);
$eps = pdl(1e-10);
$print = ones(2);
$maxit = pdl(long, 200);
$info = pdl(long,0);
sub fg_func{
my ($f, $g, $x) = @_;
$f .= rosen($x);
$g .= rosen_grad($x);
}
cgfam($fx, $gx, $x, $maxit, $eps, $xtol, $gtol,$print,$info,1,&fg_func);

B::Tree is a simplified version of B::Graph for demonstration.

SYNOPSIS

perl -MO=Tree program | dot -Tps > tree.ps

This is a very cut-down version of B::Graph; it generates minimalist tree graphs of the op tree of a Perl program, merely connecting the op nodes and labelling each node with the type of op.

It was written as an example of how to write compiler modules for "Professional Perl", but Ive found it extremely useful for creating simple op tree graphs for use in presentations on Perl internals.

It requires the CPAN GraphViz module and the GraphViz package from http://www.research.att.com/sw/tools/graphviz/. It takes no options.

B::OptreeShortestPath is a Perl module that adds the methods ->shortest_path( $op ) and ->all_paths() to all B::OP objects in an optree.

SYNOPSIS

use B qw( main_root main_start );
use B::OptreeShortestPath;

for ( main_start()->shortest_path( main_root() ) ) {
print "$_n";
}

METHODS

$op->shortest_path( $other_op )

Returns a list of the shortest paths from $op to $other_op. Each path is a string approximating a bunch of chained method calls.

"->next->sibling->next",
"->sibling->sibling->next"
$op->all_paths()

Returns a list of paths from this node to all other nodes.

PerlActor is a simple automated executable acceptance test framework for Perl.

PerlActor is a simple automated executable acceptance test framework for Perl. It can be used by Extreme Programming (XP) teams to rapidly develop executable acceptance tests for their Perl code.

XP mandates that the Customer writes acceptance tests for the application under development. The acceptance tests, also known as customer tests, demonstrate that application features are complete and that they work as expected. Ideally, the tests should be directly executable and automated so that they can be run continuously, without manual effort.

PerlActor enables an XP Customer to write *executable* acceptance tests as plain text files, using a very simple syntax. Each test consists of a number of parameterized commands (one per line), which PerlActor uses to exercise the application. PerlActor parses the test, invokes the commands with any parameters, and reports the result. The developers provide glue code to implement the commands required by the tests.

PerlActor allows tests to be grouped into suites so that related tests can be run as a group. The Customer can also just place test scripts in a directory structure and have PerlActor find and execute them all.

The PerlActor approach to acceptance testing has a number of advantages:

1) As the application grows the team will gradually develop a comprehensive set of Commands for testing the application.
2) The Customer, independent of the development team, can write and execute new tests for the application at any time, using any of the existing Commands.
3) Existing tests may be changed by the Customer at any time, again without developer help.

EXAMPLE SCRIPT

The following sample test script is adapted from one of the example scripts contained in the examples/calculator directory of this distribution. It tests a toy calculator "application":

# Script to check addition
# 10 + 32 = 42

# Create a new calculator application
NewCalculator

# Ensure that the display reads 0, initially
CheckDisplayReads 0

# Press key 1, then key 0
PressKeys 1 0
CheckDisplayReads 10

PressKeys +
CheckDisplayReads 10

PressKeys 3 2
CheckDisplayReads 32

PressKeys =
CheckDisplayReads 42

The following is sample output from the included test runner:

Running Acceptance Tests at Sun Apr 10 17:59:11 GMT 2005
==========================================================
.....
0.545077 wallclock secs ( 0.42 usr + 0.11 sys = 0.53 CPU)
Run: 5, Passed: 5, Failed: 0, Aborted: 0.
and with test failure:
Running Acceptance Tests at Sun Apr 10 18:04:36 GMT 2005
==========================================================
.F...
1.24811 wallclock secs ( 0.47 usr + 0.07 sys = 0.54 CPU)
Run: 5, Passed: 4, Failed: 1, Aborted: 0.

!!!FAILED!!!

1) FAILED: Display is wrong: expected 41, got 42 in scripts/test_addition.pact
at CheckDisplayReads 41, line 37