if ($expect.defined && $expect ~~ m/ "\r\n" /) {
my $r = $expect;
my $n = $expect;
$n ~~ s:g{ "\r\n" } = "\n";
);
my $n = +$f;
ok ($n ~~ Num, "Undefined in Numeric context type");
is ($n.defined, False, "Undefined in Numeric context defined");
my $s = ~$f;
ok ($s ~~ Str, "U
||
&&= &&
^.. ..^
%% ≅
~~ !~
<~>
<=> =~=
<<= >>=
<<
>{value} = $block;
}
return $obj;
}
# "given(expr) {...}" construct
if (/\Ggiven\b\h*/gc) {
my $expr = (
of the `given/when` construct",
reason => "expected `given(expr) {...}`",
code => $_,
y @postfix_operators = qw( ++ -- );
my @prec_operators = qw ( ... .. -> ++ -- =~ <=> \\ ? ~~ ~. ~ : >> >= > << <= < == != ! );
my @assignment_operators = qw( && || // ** % ^. ^ &. & |. | * +
c',
'and' => 'logic',
'//' => 'logic',
'&' => 'bitwise',
'|' => 'bitwise',
'~~' => 'match',
);
sub cmp_ok($$$;$@) {
my ($got, $op, $exp, $name, @diag) = @_;
my $ctx = c
m =~ (str)
=item &&
=item ||
=item xor
=item or
=item and
=item //
=item &
=item |
=item ~~
=back
=back
=head1 SOURCE
The source code repository for Test2-Suite can be found at
F<https:/
empfoo;
my $start = [gettimeofday];
while ($mux->handles < $opt{conc} && new_conn()) {
##warn ~~ $mux->handles();
die if $mux->handles > $opt{conc};
}
$mux->loop;
my $howlong = tv_interval($
'text:name' : 'text:id';
my %opt = (attribute => $attr, value => $name);
given ($role)
{
when (undef)
{
{
my $self = shift;
my $type = shift;
my $filter;
given ($type)
{
when (undef)
{
my $self = shift;
my $value = $self->get_attribute(shift);
given ($value)
{
when (undef)
{
}
else
{
$match = TRUE if $v ~~ $filter;
}
if ($match)
{
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$role_reqs
.
format INHERIT_POD =
=head1 NAME
@*
$myclass
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTR_NARROW
$handles
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTRHEAD_POD =
=head1 ATTRIBUTES
.
format ATTR_POD =
=he
down_markers
{
"**" => "bold",
"*" => "italic",
"__" => "bold",
"_" => "italic",
"~~" => "strike",
"`" => "fixed",
}
sub __cache_per_class ( $code )
{
my %cache;
return sub
d above.
Recognises the following kinds of inline text markers:
**bold**
*italic*
~~strike~~
`fixed`
[link](target)
backslashes escape any special characters as \*
In additio
meta = $Aion::META{$pkg};
my $extends = $meta->{extends} // return "";
return 1 if $class ~~ $extends;
for my $extender (@$extends) {
return 1 if $extender->isa($class);
}
elf;
my $meta = $Aion::META{$pkg};
my $does = $meta->{with} // return "";
return 1 if $role ~~ $does;
for my $doeser (@$does) {
return 1 if $doeser->can("does") && $doeser->does($ro
++ -- ** ! ~ + -
=~ !~ * / % x
<< >> lt gt le ge cmp ~~
== != <=> . .. ... ,
& | ^ && || //
? : **= += -= .= *=
s SUDOC dont on ne veut pas dans le catalogue
# Koha
$record->fields( [ grep { not $_->tag ~~ @todelete } @{$record->fields} ] );
$record->append( MARC::Moose::Field::Std->new(
ta
1 } (
qw{
-> ++ -- ** ! ~ + -
=~ !~ * / % x . << >>
< > <= >= lt gt le ge
== != <=> eq ne cmp ~~
& | ^ && || // .. ...
? :
= **= += -= .= *= /= %= x= &= |= ^= <<= >>= &&= ||= //=
=> <> <<>>
) and upon extraction, it'll adjust the
permissions of newly generated files if the -p option is given (default for
superuser).
=back
=head1 BUGS
B<Archive::Tar::Wrapper> doesn't currently handle f
.
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>
IF ALSO THE THIRD AXIS HAS TO BE CHECKED FOR NON-REPETITIONS, PUT 1 OTHERWISE.
if (@cutelms ~~ @cutelems)
{
$counthit++;
print "COUNTGROUP: $countgroup, HIT! $counthit\
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.
->{pt}->add_string($key, $exclude ? '!'.$key : $key)
} or warn "netset: illegal IP address given (patricia trie): ".
"'$key': $@\n";
}
$cidr .= '/' . $masklen if define
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