^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$role_reqs
.
format INHERIT_POD =
=head1 NAME
@*
$mycl<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTR_NARROW $handles
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTRHEAD_POD =
=head1 ATTRIBUTES
.
format ATTR_POD =
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$role_reqs
.
format INHERIT_POD =
=head1 NAME
@*
$mycl<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTR_NARROW $handles
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTRHEAD_POD =
=head1 ATTRIBUTES
.
format ATTR_POD =
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
END_FORMAT
formline(<<'END_FORMAT', $errortext);
~~ ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
END_FORMAT
print { | ~~ |^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<|
END_FORMAT
my $TRACECONTEXT_FORMAT = <<'END_FORMAT';
@>|@|||||||||@ |^<<<<<<<<<<<<<<<<<<<<<<<<<<<
| ~~ emeta } qw(
...
..
== != <=> <= >=
<< >>
+= -= *= /= %= ~=
&&= ||= //=
~~ =~
&& || //
-> =>
::
++ --
+| +& +^ +< +> +~
), ',');
my %shortcut_table = (is_logical(1);
$parser->infix('<=>', 150);
$parser->infix('cmp', 150);
$parser->infix('~~', 150);
$parser->infix('|', 140, \&led_pipe);
$parser->infix('&&', 130)->is_logical(1)rst)) { # when
if(!$test->is_logical) {
$when->first( $parser->binary('~~', $topic, $test) );
}
}
else { # default
$when->first( $pa ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$role_reqs
.
format INHERIT_POD =
=head1 NAME
@*
$mycl<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTR_NARROW $handles
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$handles
.
format ATTRHEAD_POD =
=head1 ATTRIBUTES
.
format ATTR_POD =
epresent 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 $_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 tcontains 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 {
push (@return_rgbasl, $imgrepr->{points}[$rgba_index]) unless ($imgrepr->{points}[$rgba_index] ~~ @return_rgbasl); ### unless element in already list
}
}
}
}
}
} else {
### FIXME
}
return @r 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
print "# ~~ Standard testing\n" unless $QUIET;
push @errors, $system->( 'prove', @args );
}
if ( $testing_mode =~ /^(extended|both|1|2)$/i ) {
$ENV{EXTENDED_TESTING} = 1;
print "# ~~ Extendeden 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 mstring
# ' 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<=~ s/\.pm$//;
$package =~ s!/!::!g;
$_add->($package) if $package ~~ @$packages;
# ignore this hook
my $line = 0;
retuor store
my $store = $self->assetpack->store;
return
unless $self->enabled || $format ~~ ['html', 'json'];
DEBUG && diag "Process topic [%s]", $topic;
#~ return unless $self->enabl~ my $format = $collect->[0]->format;
#~ return
#~ unless $self->enabled || $format ~~ ['html', 'json'];
$content = $collect->map('content')->map(sub { /\n$/ ? $_ : "$_\n" })-g_build_program( prologue, body )
Builds program for current chosen language. If no prologue is given
(I<undef>), the default headers are used. If body is missing, default
body is used.
Typical callenote\.(\w+)$/;
my $key = $1;
my $value = getfattr($note->file, $attr);
given ($key) {
when ('key') {
$note->key($value);
$has_simpmodifydate->iso8601,
$local_note->modifydate->iso8601
);
given (
DateTime->compare_ignore_floating(
$remote_note->modifydate:Class::File $file)
{
my $mod_time = DateTime->from_epoch(epoch => $file->stat->mtime);
given (DateTime->compare($mod_time, $note->modifydate)) {
when (0) {
# no change
}
else {
return;
}
}
chomp(my @songs = <$fh>);
close($fh);
return ($file ~~ @songs) ? 1 : 0;
}
sub remove_favorite {
my $query = shift;
return if !defined($query);
t