e' => 'method_name']);
C<$Callable::DEFAULT_CLASS_CONSTRUCTOR> is used when no constructor name
given (C<new> by default)
=head2 callable
Callable instance can be cloned from another callable instaontent_file);
given ($rq) {
when (/get|delete/i) {
$resp = $self->request(uc $rq, $url);
}
when (/post|put/i) {
my @rm;
for my $i (0..$#args) {
given ($args[$i]) {
ow("Method $rq not implemented in ".__PACKAGE__."\n");
}
}
if ($resp->code == 599) {
given( $resp->content ) {
when (/timeout/) {
$resp->code(500);
$resp->message("Connection timeo if (($ENV{LANG} // "") =~ /^en/ && "ID::KBBI" ~~ @wls) {
$wl = "ID::KBBI";
} elsif (($ENV{LANG} // "") =~ /^id/ && "EN::Enable" ~~ @wls) {
$wl = "EN::Enable";
$wl = $wls[rand @wls];
}
}
die "Can't find module for wordlist '$wl'" unless $wl ~~ @wls;
my $mod = "WordList::$wl";
load $mod;
print "Loaded wordlist module $mod\n";
\1 }
{<small>$2</small>}gsx;
$text =~ s{ ^(~~) (?=\S) ((?:.(?!~>))+?) (?<=\S) \1 }
{<del>$2</del>}gsx;
$text =~ s{ ^(~~) (?=\S) (.+?) (?<=\S) [ ]? ~> [ ]? (?=\S) (.+?) (?<=\S {<small>$2</small>}gsx;
$text =~ s{ (?<=\W) (~~) (?=\S) ((?:.(?!~>))+?) (?<=\S) \1 }
{<del>$2</del>}gsx;
$text =~ s{ (?<=\W) (~~) (?=\S) (.+?) (?<=\S) [ ]? ~> [ ]? (?=\S) (.+?) (?< {<small>$2</small>}gsx;
$text =~ s{ (?<=\W) (~~) (?=\S) ((?:.(?!~>))+?) (?<=\S) \1 }
{<del>$2</del>}gsx;
$text =~ s{ (?<=\W) (~~) (?=\S) (.+?) (?<=\S) [ ]? ~> [ ]? (?=\S) (.+?) (?<ethrough, deleted text>
~~Strike through this text.~~
<del>Strike through this text.</del>
B<Deleted/Inserted Text>
~~this is incorrect ~> this is correct~~
<del>this is incorrect $_Plural{$noun} = $noun . "s";
}
}
return($_Plural{$noun});
}
#
# quantify the given (count, noun) pair
#
sub string_quantify ($$) {
my($count, $noun) = @_;
return($count .ta::sync($dev)>
Have the kernel update the quota file on disk or all quota files
if no argument given (the latter doesn't work on all systems,
in particular on I<HP-UX 10.10>).
The main purpose of tepresent a comment
=item list_of(SOMETHING)
return a list of things depending on what has been given (undef, an array
reference or a scalar); this is very useful with L<Config::General>'s list
repreOPTIONS])
return a new Net::STOMP::Client::Frame object (class method); the options
that can be given (C<command>, C<headers>, C<body_reference> and C<body>)
match the accessors described below
=ite<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
END_FORMAT
formline(<<'END_FORMAT', $errortext);
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
END_FORMAT
print { | ~~ |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
END_FORMAT
my $TRACECONTEXT_FORMAT = <<'END_FORMAT';
@>|@|||||||||@ |^<<<<<<<<<<<<<<<<<<<<<<<<<<<
| ~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$role_reqs
.
format INHERIT_POD =
=head1 NAME
@*
$mycl<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTR_NARROW $handles
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTRHEAD_POD =
=head1 ATTRIBUTES
.
format ATTR_POD =
contains the response
body, decoded into a Perl character string (not a byte string).
If $ua is given (it's optional), then this user agent will be used to
perform the actual request. Must be undef o ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$role_reqs
.
format INHERIT_POD =
=head1 NAME
@*
$mycl<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTR_NARROW $handles
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTRHEAD_POD =
=head1 ATTRIBUTES
.
format ATTR_POD =
and C<D>.
=item hangul_terminator
-- see 7.1.4 Trailing Weights, UTS #10.
If a true value is given (non-zero but should be positive),
it will be added as a terminator primary weight to the end of
en called with an argument, this method is a mutator which sets the
antenna azimuth to the angle given (in radians) in its argument. The
angle will be normalized before storage. Setting the azimuth do called with an argument, this method is a mutator which sets the
antenna elevation to the angle given (in radians) in its argument. The
angle will be normalized before storage. Setting the elevation
When called with an argument, this method is a mutator which sets the
range delay to the number given (in nanoseconds) in its argument.
Setting the range delay does not set is_range_valid( 1 ); you m {
push (@return_rgbasl, $imgrepr->{points}[$rgba_index]) unless ($imgrepr->{points}[$rgba_index] ~~ @return_rgbasl); ### unless element in already list
}
}
}
}
}
} else {
### FIXME
}
return @rstring
# ' hello'
my $string = nudge 8, 'hello';
If C<$number_of_spaces> is not given (or isn't an integer >= 0) its default value is C<4>.
Every line in C<$string> is indented by C< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$role_reqs
.
format INHERIT_POD =
=head1 NAME
@*
$mycl<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTR_NARROW $handles
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTRHEAD_POD =
=head1 ATTRIBUTES
.
format ATTR_POD =
~~ <1..3> | <4..6> ~~ <1..3>->zip(<4..6>)
<1..3> Z. <4..6> ~~ <1..3> |'.'| <4..6> ~~ <1..3>->zip('.' => <4..6>)
<1..3> X <4..6> ~~ <1..3> x <4..6> ~~ <1. <4..6> ~~ <1..3> x'.'x <4..6> ~~ <1..3>->cross('.' => <4..6>)
<1..3> <<+>> <4..6> ~~ <1..3> <<'+'>> <4..6> ~~ <1..3>->hyper('<<+>>', <4..6>)
[+] 1..10 ~~ <[+] 1..10> ~~ reduce {$_[0] + $_[1]} 1 .. 10
[+]->(1..10) ~~ <[+]>->(1..10) ~~ same as above
[\+] 1..10 ~~ <[..+] 1..10> ~~ scan {$_[0] + $_[1]} 1 ..=~ s/\.pm$//;
$package =~ s!/!::!g;
$_add->($package) if $package ~~ @$packages;
# ignore this hook
my $line = 0;
retu