e structure of the directory tree (including symbolic
links to directories) you might traverse a given (physical) directory
more than once (only if C<follow_fast> is in effect).
Furthermore, deletingnes to list (a windowful).
$incr = $window - 1;
# Set the start to the argument given (if there was one).
$start = $1 if $1;
# Back up by the context amount.
$ accents for nroff and troff
.if n \{\
. ds ' \&
. ds ` \&
. ds ^ \&
. ds , \&
. ds ~ ~
. ds /
.\}
.if t \{\
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
. ds ` \\k:\h'-(\\ndicates a bug in Pod::Man.
=item Invalid quote specification "%s"
(F) The quote specification given (the quotes option to the constructor) was
invalid. A quote specification must be one, two, or f 1 { ok(0) } else { ok(1) }
when 2 { ok(0) } else { ok(1) }
when 3 { ok(1) } else { ok(0) }
}
given (3) {
eval { when __ <= 1 || __ > 2 { ok(0) } } || ok(1);
when __ <= 2 { ok(0) };
when __ <
# POSSIBLE ARGS: NUMERIC, STRING, ARRAY, HASH, REGEX, CODE
# 1. NUMERIC SWITCH
for (1..3)
{
given ($_) {
# SELF
when ($_) { ok(1) } else { ok(0) }
# NUMERIC
when 1 { ok ($_==1) } else { { ok (1) } else { ok (0) } # ; -> SUB, NOT HASH
}
}
# 2. STRING SWITCH
for ('a'..'c','1')
{
given ($_) {
# SELF
when ($_) { ok(1) } else { ok(0) }
# NUMERIC
when (1) { ok ($_ !~ /[a-c given could not be opened.
=item Invalid quote specification "%s"
(F) The quote specification given (the quotes option to the constructor) was
invalid. A quote specification must be one, two, or foryFree( void *ptr );
/* ~~ */
extern GFLEXTERN const char * GFLAPI gflGetVersion( void );
extern GFLEXTERN const char * GFLAPI gflGetVersionOfLibformat( void );
/* ~~ */
extern GFLEXTERN GFL_ void GFLAPI gflLibraryExit( void );
extern GFLEXTERN void GFLAPI gflEnableLZW( GFL_BOOL );
/* ~~ */
extern GFLEXTERN GFL_INT32 GFLAPI gflGetNumberOfFormat( void );
extern GFLEXTERN GFL_INT32 GERROR GFLAPI gflGetFormatInformationByIndex( GFL_INT32 index, GFL_FORMAT_INFORMATION *info );
/* ~~ */
extern GFLEXTERN const char * GFLAPI gflGetErrorString( GFL_ERROR error );
extern GFLEXTERN heir replacements are:
~~a~~ $c->{'a'}
~~b~~ $c->{'b'}
~~a->b~~ $c->{'a'}->{'b'}
~~a->e~~ $c->{'a'}->{'e'}
~~a->1~~ $c->{'a'}->[1]
~~a->1->b~~ $c->{'a'}->[1]->{'bidea is obvious. Real world examples might be:
my $config_file = "~~etc_dir~~/configuration";
my $VERSION = "~~version~~";
Preprocessor variables need not be scalar values: If a variable contern being
replaced, for example, if C<$ppp->{'config'}->{'bar'}> has the value
C<\&foo>, then C<~~bar~~> will be replaced with the result of
foo($ppp, "bar");
Arguments are not yet supported.
me, $value) = @_;
die "Rule->given() takes 2 arguments" if(scalar(@_) != 3);
die "Rule->given() argument 1 (NAME) is undefined" if(!defined($name));
die "Rule->given() argument 2 (VALUE) is undefi )
Returns the name of the rule.
=item state( )
Returns the current state of the rule.
=item given( NAME, VALUE )
The NAME / VALUE attribute pair is checked against the rule's conditions to see ilied.
=item Rule->given() takes 2 arguments
When the method is called it requires two arguments. This message is given if more or less arguments were supplied.
=item Rule->given() argument 1 (NAME)new_template( $file, ... )
creates a new template wrapper of the appropriate type for the $file given
(if C<template_directory> is set, it is treated as the root directory).
passes all other argument
uses a colon (":").
=item *
C<$error = MakeDir($dir);>
This function recursively creates the given (absolute)
path (note that the path is normalized using the
"Normalize()" function above before bEY, ELEMENT) pair to the end of the list.
=item insert_at (POSITION, KEY, ELEMENT)
Inserts the given (KEY, ELEMENT) pair at the given position in list. POSITION
is usually returned by a previous fi>>>>>>>: ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$errorprefix, $errortext
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
ormat TRACE =
|@|||||||||@^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracerulename, '|', $tracemsg
| ~~ |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
$tracemsg
.
select TRACE;
$| = 1;
open (TRAC |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tracerulename, '|', $tracecontext
| ~~ | |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$tracecontextlevel_args(1);
if ((!@their_args) or ref $their_args[0] ne "CODE") {
croak "no block given (LocalJumpError)";
}
my @stuff = (@_||$_);
$their_args[0]->(@stuff)
unless $e 0 - 59 will be ignored
and a warning (carp) will be written to the terminal.
If no 'times' are given (no parameters), then the internally
stored list of 'times' will be cleared.
Returns the newly stl", "~~nodbd_driver~~/t/lib.pl") {
if (-f $file) {
do $file;
last;
}
}
if (!$mdriver || ($mdriver ne "mSQL" && $mdriver ne "mSQL1")) {
print "1..0\n"; exit 0;
}
$| = 1;
eval "use ~~nodbd_driver~~";
my $db = ~~nodbd_driver~~->connect("~~test_host~~", "~~test_db~~");
if ($db->getserverinfo lt 2) {
print "1..0\n";
exit;
}
print "1..37\n";
print "ok 1\n";
{
my($q,$what,@t,$i,$j);
my $db = ~~nodbd_driver~~->connect("~~test_host~~","~~test_db~~");
$t[0] = create(
$db,
"TABLE00",
"( id char(4) not null, longish text(30) )");
$t[1] = create(
sent to STDOUT.
Using "2", even more verbose information is
given (all queries printed before execution);
Level "3" will also show details about s sent to STDOUT.
Using "2", even more verbose information is
given (all queries printed before execution);
Level "3" will also show details about sly code is given, the search
is restricted to devices of that family type. If a serial number is given
(which must be a 12 character string), then the bus is searched for that one
particular device (f of the same type as the original"
unless ref $dest eq ref $src;
given(ref $dest) {
when('SCALAR') {
tie($$dest, 'Variable::Alias::Scalar', it is useful
# to combine both the form and the script in one place. If no parameters
# are given (i.e., ReadParse returns FALSE), then a form could be output.
# If a reference to a hash is gi