CPAN::Groonga

{
                    my $cell = $table->get_cell($i, $j);
                    if ($cell->get_type ~~ $filter) {
                        $count++;
                        $amount += $cell->get_value;

               my $cell = $row->get_cell($j) or last CELL;
                    if ($cell->get_type ~~ $filter) {
                        $count++;
                        $amount += $cell->get_value;

                        {
                                my $v;
                                given ($opt{$k})
                                        {
                                        when

ype} || 'number';
        $e = ODF::lpOD::ListLevelStyle->create($type) or return FALSE;
        given ($type)
                {
                when (['number', 'outline'])
                        {

    {
        my $caller      = shift;
        my $type        = shift;
        my $tag;
        given ($type)
                {
                when (undef)
                        {
                

   \|\|= | \|\|  | \|\.= | \|\.  | \|=   | \|    | # "\x7C" [|] VERTICAL LINE     (U+007C)
        ~~    | ~\.   | ~=    | ~                       # "\x7E" [~] TILDE             (U+007E)

    ) /xmsgc

      (expr)
    # unless      (expr)
    # while       (expr)
    # until       (expr)
    # given       (expr)
    # when        (expr)
    # CORE::catch (expr)
    # catch       (expr)
    elsif (/

}

# ----------------------------------------------------------------------
# Load the sub name given (including package), optionally using a base package
# path. Returns code ref and name of sub loa

tlist = dpath($path)->match($data); 

# Perl 5.10 style using overloaded smartmatch operator
#my $resultlist = $data ~~ dpath '/AAA/*/CCC';        # [ ['XXX', 'YYY', 'ZZZ'], [ 'RR1', 'RR2', 'RR3' ] ]

tro::PAL::palPreces( 'FK5', $equinox, '2000.0', $ra, $dec );
    }

# Get the epoch. If it's not given (in $args{epoch}) then it's
# the same as the equinox.
    my $epoch = ( ( exists( $args{epoch} )

};

# The equinox is everything after the B.
    my $equinox = $1;

# Get the epoch. If it's not given (in $args{epoch}) then it's
# the same as the equinox. Assume supplied epoch is Besselian
    my 

  $self->getCanvas()->lower($tag, $tag2);
}

=item drawTextVert

Draws text on the canvas in the given (x, y) coordinates using
the current font, font size, and font Color. Returns the text item
numbe

g($tag, 'withtag', $t);
    }
    return $t;
}


=item drawText

Draws text on the canvas in the given (x, y) coordinates using
the current font, font size, and font Color. Returns the text item
numbe

 'withtag', $t);
    }
    return $t;
}

=item drawTextFromLeft

Draws text on the canvas in the given (x, y) coordinates using
the current font, font size, and font Color. Returns the text item
numbe

ain part from the MAIL FROM handshake, e.g. '<','>'
and any parameters removed. If only '<>' was given (like in bounces) the
value is empty.

HELO is the string send within the HELO|EHLO dialog which 

xt = "$statement";
        for my $bug (@PPI_BUGS) {
            next STATEMENT if $statement_text ~~ $bug;
        }

        next STATEMENT
            if $statement =~ m{ \A \s* print \s+ form [^\n

      |    [<>*&|/]{1,2}+  (?! [=]  )
            |    \^              (?! [=]  )
            |    ~~
            |    isa
            )
        ) # End of rule (?<PerlInfixBinaryOperator>)

        (

      |    [<>*&|/]{1,2}+  (?! [=]  )
            |    \^              (?! [=]  )
            |    ~~
            |    isa
            )
    )) # End of rule

        (?<PerlAssignmentOperator>   (?<P

#### $filelist[$n]";

    for my $block (@blocks) {
        no warnings;

        next if "$block" ~~ @PPI_BUGS;

        next if $block =~ m{ \A \s* \{ \s* form }xms;

        say {$testfile} $block;

eginning with $word
                 local $CWD = "/home";
                 return [grep {-d && $_ ~~ /^\Q$word/} <*>];
             },
         },
         force => {schema=>[bool => {default=>0}]},

grep {-d && $_ ~~ /^\Q$word/} <*>];

                 # exclude users already mentioned by user
                 my $ary = $args{args}{usernames};
                 $res = [grep {!($_ ~~ @$ary)}] @$res

=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_a

               the correct transcript.
    Return type : Integer
    Exceptions  : Throws if the given (optional) argument is not a
                  transcript.
    Caller      : General
    Status  

               the correct transcript.
    Return type : Integer
    Exceptions  : Throws if the given (optional) argument is not a
                  transcript.
    Caller      : General
    Status  

ref(shift), ' object to typeglob reference'; },

    q[~~] => sub {
                my ($term, $other_arg) = @_;

                # Handle TERM ~~ TERM...
                if (blessed($other_arg) && $o

nterface. 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 t

 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)

p { 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

) 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