=head2 can_access_Slice
Description : Checks the lookup to see if we have access to the Slice given (using
seq region name as the ID). We reject any Circular Slice
=cut
sub can_aref(shift), ' object to typeglob reference'; },
q[~~] => sub {
my ($term, $other_arg) = @_;
# Handle TERM ~~ TERM...
if (blessed($other_arg) && $onterface. The options are
stored in variables named I<$opt_XXX> or in a hash when B<-options> is
given (see below). B<-opttable> should be a reference to an array
containing all options. Elements of tp { not $_->tag ~~ [qw(001 009 039 917 930 955)] } @{$record->fields}
]);
# Clean some subfields
for my $field ( @{$record->fields} ) {
next unless $field->tag ~~ [qw(410 461 60 croak("hostname unknown: in order to use check_hostkey the peer host name ".
"must be given (or discoverable) at connect time")
unless defined $hostname;
unless (defined $path)) 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 fhe current parameter
set.
=item strip_like($regex)
Remove all parameters whose names match the given (qr-quoted) regex e.g.
$qq->strip_like(qr/^utm/)
Does NOT match against parameter values.
m $2
The I<scheme>.
=item $3
The I<user>, if given.
=item $4
The I<authentication type>, if given (could be a I<*>).
=item $5
The I<host>.
=item $6
The I<port>, if given.
=back
=head1 REFERm $2
The I<scheme>.
=item $3
The I<user>, if given.
=item $4
The I<authentication type>, if given (could be a I<*>).
=item $5
The I<host>.
=item $6
The I<port>, if given.
=back
=head1 REFER );
Performs the query pattern-matching operation by attempting to match node
subtrees from the given (root) node, against patterns defined by the query.
This method does not return a result; instea the first part of
a domain does not look like an IP address. If the C<< {-rfc1101} >> option
is given (as in C<< $RE {net} {domain} {-rfc1101} >>), we will match using
the relaxed rules.
=head1 REFE the first part of
a domain does not look like an IP address. If the C<< {-rfc1101} >> option
is given (as in C<< $RE {net} {domain} {-rfc1101} >>), we will match using
the relaxed rules.
=head1 REFE }
else
{
#$match = TRUE if $v ~~ $filter;
$match = TRUE if fake_smartmatch($v, $filter);
'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)
{
match (`~~`) operator can already match against a list of strings
or regexes, this function is currently basically equivalent to:
if (ref($haystack) eq 'ARRAY') {
return $needle ~~ @$haysrtmatch (C<~~>) operator can already match against a list of strings
or regexes, this function is currently basically equivalent to:
if (ref($haystack) eq 'ARRAY') {
return $needle ~~ @$haystacas set to an unknown value.
=item Invalid quote specification "%s"
(F) The quote specification given (the C<quotes> option to the
constructor) was invalid. A quote specification must be either one
accents for nroff and troff
.if n \{\
. ds ' \&
. ds ` \&
. ds ^ \&
. ds , \&
. ds ~ ~
. ds /
.\}
.if t \{\
. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h'|\\n:u'
. ds ` \\k:\h'-(\\as set to an unknown value.
=item Invalid quote specification "%s"
(F) The quote specification given (the C<quotes> option to the
constructor) was invalid. A quote specification must be either one
say <<'OUT';
usage:
install
upgrade
current-version
OUT
}
help unless $ARGV[0];
given ( $ARGV[0] ) {
when ('install') { install() }
when ('upgrade') essed as a
regular expression. The second instruction sets a bookmark in the same
paragraph at a given (zero-based), so before the 5th character.
In order to put a bookmark according to a regexp thatessed as a
regular expression. The second instruction sets a bookmark in the same
paragraph at a given (zero-based), so before the 5th character.
In order to put a bookmark according to a regexp that