eginning with $word
local $CWD = "/home";
return [grep {-d && $_ ~~ /^\Q$word/} <*>];
},
},
force => {schema=>[bool => {default=>0}]},
grep {-d && $_ ~~ /^\Q$word/} <*>];
# exclude users already mentioned by user
my $ary = $args{args}{usernames};
$res = [grep {!($_ ~~ @$ary)}] @$res
= get_logger();
my $statement = $DB->{query};
eval {
confess "no ref to hash argument param given ({query=>''})" if ref($DB) ne "HASH";
confess "no ref to array argument data (for returning dat
eyfields} and ref($DB->{keyfields}) eq "ARRAY";
eval {
confess "no ref to hash argument param given ({query=>'',keyfields=>[]})" if ref($DB) ne "HASH";
confess "no ref to hash argument data (for
Dumper($coldefs)) if $logger->is_trace;
my %IDName;
if ($addID) {
confess "no valid addID given (needs to be ref to hash, key=fieldname, value=ID)!" if ref($addID) ne 'HASH';
$IDName{$_} = 1
pDataIntoDB/EAI::DB::storeInDB as an indicator for keys for debugging information if primkey not given (errors are shown with this key information). Format is the same as for primkey
deleteBeforeIns
en)
format_defaultsep => "", # default separator when format_sep not given (usually in site.config), if no separator is given (not needed for EAI::File::readExcel/EAI::File::readXML), "\t" is used f
the process
countPercent => 0, # percentage for counting File text reading and DB storing, if given (greater 0) then on each reaching of the percentage in countPercent a progress is shown (e.g. eve
ARRAY') {
@columnnames = @{$File->{columns}};
} else {
$logger->error("no field information given (columns should be ref to array or ref to hash, you have to initialize it as that)".longmess());
RRAY') {
@columnnames = @{$File->{columns}};
} else {
$logger->error("no field information given (columns should be ref to array or ref to hash, you have to initialize it as that)".longmess());
pDataIntoDB/EAI::DB::storeInDB as an indicator for keys for debugging information if primkey not given (errors are shown with this key information). Format is the same as for primkey
=item deleteBefo
given)
=item format_defaultsep
default separator when format_sep not given (usually in site.config), if no separator is given (not needed for EAI::File::readExcel/EAI::File::readXML), "\t" is used f
of the process
=item countPercent
percentage for counting File text reading and DB storing, if given (greater 0) then on each reaching of the percentage in countPercent a progress is shown (e.g. eve
L(A)->dims[0], $PDL(A)->dims[1]) : 1)); int [o,phys]signum())
=for ref
LU decomposition of the given (real or complex) matrix.
=for bad
LU_decomp ignores the bad-value flag of the input ndarrays.
next;
}
# !~ and ~~ methods
if ($method eq '~~' or $method eq '!~') {
$code =
xis pointing "northwest".
The default value is 0 (no rotation).
=item 'full' => color_spec
If given (no default), draw the full ellipse (not just the arc)
in this color, with a dot at its center.
b _reauthenticate {
my $self = shift;
# Mattermost authentication tokens expire after a given (and unknown) amount
# of time. By default, the client will reconnect every hour in order to
\|\|= | \|\| | \|\.= | \|\. | \|= | \| | # "\x7C" [|] VERTICAL LINE (U+007C)
~~ | ~\. | ~= | ~ # "\x7E" [~] TILDE (U+007E)
) /xmsgc
(expr)
# unless (expr)
# while (expr)
# until (expr)
# given (expr)
# when (expr)
# CORE::catch (expr)
# catch (expr)
elsif (/
n ISO8601
return $dow; # return Mon=1 as in ISO8601
}
# return month days count for given ( year, month ) (not strictly julian_ namespace)
sub julian_date_month_days_ym
{
my $y = shift;
actually a short description of the
test). Whenever a test result is reported, the name will be given (if
one was specified).
The name may not have a '#' in it.
The name is completely optional, but
xis pointing "northwest".
The default value is 0 (no rotation).
=item 'full' => color_spec
If given (no default), draw the full ellipse (not just the arc)
in this color, with a dot at its center.
tlist = dpath($path)->match($data);
# Perl 5.10 style using overloaded smartmatch operator
#my $resultlist = $data ~~ dpath '/AAA/*/CCC'; # [ ['XXX', 'YYY', 'ZZZ'], [ 'RR1', 'RR2', 'RR3' ] ]
cility.
=head2 get_test_list_from_precondition
Utility function to extract testprograms from a given (sub-) precondition.
=head2 get_testrun_overview
This function reads and parses all preconditio
e what commands
would be sent to gnuplot. This is a dry run. Note that if the 'binary' option is
given (see below), then this dump will contain binary data. If this binary data
should be suppressed fr
gnuplot I<and> to the log. Useful for debugging I/O issues. Note that
if the 'binary' option is given (see below), then this log will contain binary
data. If this binary data should be suppressed fro
}
# ----------------------------------------------------------------------
# Load the sub name given (including package), optionally using a base package
# path. Returns code ref and name of sub loa
e what commands
would be sent to gnuplot. This is a dry run. Note that if the 'binary' option is
given (see below), then this dump will contain binary data. If this binary data
should be suppressed fr
gnuplot I<and> to the log. Useful for debugging I/O issues. Note that
if the 'binary' option is given (see below), then this log will contain binary
data. If this binary data should be suppressed fro
all
patterns to appear in a line (in no particular order). Normally, when multiple
patterns are given (via multiple `-e` or `--regexp` options), grep will include
lines that just contain at least one
all
patterns to appear in a line (in no particular order). Normally, when multiple
patterns are given (via multiple C<-e> or C<--regexp> options), grep will include
lines that just contain at least o
| [<>*&|/]{1,2}+ (?! [=] )
| \^ (?! [=] )
| ~~
| isa
)
)) # End of rule
(?<PerlAssignmentOperator> (?<P