~~ RangeString
if (UNIVERSAL::isa($second, 'Sidef::Types::Range::RangeString')) {
return $second->contains($first);
}
# String ~~
if (UNIVERSAL::isa($first, 'Sidef::Types::Number::Number')) {
# Number ~~ RangeNumber
if (UNIVERSAL::isa($second, 'Sidef::Types::Range::RangeNumber')) {
if (UNIVERSAL::isa($first, 'Sidef::Types::Range::RangeNumber')) {
# RangeNumber ~~ Number
if (UNIVERSAL::isa($second, 'Sidef::Types::Number::Number')) {
t
=head2 |>
a |> b
Returns the
=cut
=head2 ||
a || b
Returns the
=cut
=head2 ~~
a ~~ b
Returns the
Aliases: I<smartmatch>
=cut
=head2 ⫶
a ⫶ b
Returns the
=cut
=he
||
&&= &&
^.. ..^
%% ≅
~~ !~
<~>
<=> =~=
<<= >>=
<<
>{value} = $block;
}
return $obj;
}
# "given(expr) {...}" construct
if (/\Ggiven\b\h*/gc) {
my $expr = (
of the `given/when` construct",
reason => "expected `given(expr) {...}`",
code => $_,
next;
}
# !~ and ~~ methods
if ($method eq '~~' or $method eq '!~') {
$code =