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, deleting 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-cnes 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 fG
DBIx::Wrap provides the public method C<error> to do simple error
handling. If an argument is given (the error), it is stored, otherwise,
the stored error is returned.
C<error> may be called as a 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.
oryFree( 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 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 $l", "~~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(
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 st 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