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 bl", "~~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(
EY, 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 filevel_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 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 $curtest->{percent},
$curtest->{canon}
}
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
or moved eleehwhere. Likewise, unless an alternate tablespace other than
THE TABLESPACE is given (or if the named alternate tablespace does not
exist), then the empty partition segments will avalue Display
(xxx)bxxx-xxxx 2169910551 (216) 991-0551
xxx-xx-xxxx 123456789 123-45-6789
~~xx~xx ABCDEFGHIJ CDFG
=back
=over
=item numerical
The following table list the numericRMATTING>). Subroutine
references may also be included in the dictionary; in their
simple form, given ( subref => \&myfunction ), %subref% in
the template will be evaluated to whatever is returned fr.
Thus if I<where> is B<se> then the lower-right corner of
I<$slave>'s border will appear at the given (x,y) location
in the master.
The anchor position defaults to B<nw>.
=item B<-width> => I<size>
type:
$dbh->func({
data_type => 'USR',
data_source => "1~~2~~3\n4~~5~~6\n",
read_sub => sub { split /~~/,shift },
},'import' );
That would build a table with two rows of thr.
The stripped version will be written to I<new_file>.
If the optional third argument I<ext> is given (e.g. ".bak"),
then I<old_file> will be renamed with the supplied extension, and I<new_file>
willIED; # identifying code
$self->{_hasText} = 1;
}
#
# Syndication::NITF::name.given -- person's given (Western, first) name
#
package Syndication::NITF::namegiven;
use Carp;
@ISA = qw( Syndication::N
or moved eleehwhere. Likewise, unless an alternate tablespace other than
THE TABLESPACE is given (or if the named alternate tablespace does not
exist), then the empty partition segments will a