CPAN::Groonga

        for (@$self) {
            return unless $other ~~ $_;
        }

        return 1;
    }

    for (@$self) {
        return unless $_ ~~ $other;
    }

    return 1;
}

1;
END_CODE
  }
}

sub

hs) {
        for (@$self) {
            return if $other ~~ $_;
        }

        return 1;
    }

    for (@$self) {
        return if $_ ~~ $other;
    }

    return 1;
}

1;
END_CODE
  }
}

sub n

       if ($other ~~ $_) {
              return if $count;
              $count = 1;
            }
        }

        return($count == 1);
    }

    for (@$self) {
        if ($_ ~~ $other) {
       

ARRAY') {
		@columnnames = @{$File->{columns}};
	} else {
		$logger->error("no field information given (columns should be ref to array or ref to hash, you have to initialize it as that)".longmess());

RRAY') {
		@columnnames = @{$File->{columns}}; 
	} else {
		$logger->error("no field information given (columns should be ref to array or ref to hash, you have to initialize it as that)".longmess());

= get_logger();
	my $statement = $DB->{query};

	eval {
		confess "no ref to hash argument param given ({query=>''})" if ref($DB) ne "HASH";
		confess "no ref to array argument data (for returning dat

eyfields} and ref($DB->{keyfields}) eq "ARRAY";
	eval {
		confess "no ref to hash argument param given ({query=>'',keyfields=>[]})" if ref($DB) ne "HASH";
		confess "no ref to hash argument data (for 

Dumper($coldefs)) if $logger->is_trace;
		my %IDName;
		if ($addID) {
			confess "no valid addID given (needs to be ref to hash, key=fieldname, value=ID)!" if ref($addID) ne 'HASH';
			$IDName{$_} = 1

pDataIntoDB/EAI::DB::storeInDB as an indicator for keys for debugging information if primkey not given (errors are shown with this key information). Format is the same as for primkey
		deleteBeforeIns

en)
		format_defaultsep => "", # default separator when format_sep not given (usually in site.config), if no separator is given (not needed for EAI::File::readExcel/EAI::File::readXML), "\t" is used f

 the process
		countPercent => 0, # percentage for counting File text reading and DB storing, if given (greater 0) then on each reaching of the percentage in countPercent a progress is shown (e.g. eve

L(A)->dims[0], $PDL(A)->dims[1]) : 1)); int [o,phys]signum())

=for ref

LU decomposition of the given (real or complex) matrix.

=for bad

LU_decomp ignores the bad-value flag of the input ndarrays.

pDataIntoDB/EAI::DB::storeInDB as an indicator for keys for debugging information if primkey not given (errors are shown with this key information). Format is the same as for primkey

=item deleteBefo

given)

=item format_defaultsep

default separator when format_sep not given (usually in site.config), if no separator is given (not needed for EAI::File::readExcel/EAI::File::readXML), "\t" is used f

of the process

=item countPercent

percentage for counting File text reading and DB storing, if given (greater 0) then on each reaching of the percentage in countPercent a progress is shown (e.g. eve

b _reauthenticate {
    my $self = shift;

    # Mattermost authentication tokens expire after a given (and unknown) amount
    # of time. By default, the client will reconnect every hour in order to

s SUDOC dont on ne veut pas dans le catalogue
    # Koha
    $record->fields( [ grep { not $_->tag ~~ @todelete } @{$record->fields} ] );

    $record->append( MARC::Moose::Field::Std->new(
        ta

down_markers
{
   "**" => "bold",
   "*"  => "italic",
   "__" => "bold",
   "_"  => "italic",
   "~~" => "strike",
   "`"  => "fixed",
}

sub __cache_per_class ( $code )
{
   my %cache;
   return sub

d above.

Recognises the following kinds of inline text markers:

   **bold**

   *italic*

   ~~strike~~

   `fixed`

   [link](target)

   backslashes escape any special characters as \*

In additio

                  next;
                    }

                    # !~ and ~~ methods
                    if ($method eq '~~' or $method eq '!~') {
                        $code =
                   

 actually a short description of the
test). Whenever a test result is reported, the name will be given (if
one was specified).

The name may not have a '#' in it.

The name is completely optional, but

             my $v;
# Originally this code used the being-discontinued given/when construct 
#   given ($opt{$k}) {
#     when(TRUE)   { $v = 'true' }    # TRUE is 1
#     when(FALSE)  { $v = 'none' }

 }

sub is_numeric_family
		{
		my $self	= shift;
		my $f		= shift		or return undef;
		#return ($f ~~ @NUMERIC_FAMILIES) ? TRUE : FALSE;
		return fake_smartmatch($f, \@NUMERIC_FAMILIES) ? TRUE : FALSE

                   {
                        my $family = $1;
                        #if ($family ~~ [@FAMILIES])
                        if (fake_smartmatch($family, [@FAMILIES]))
                  

        my $self        = shift;
        my $value       = shift // 'true';
        unless ($value ~~ ['true', 'none', 'condition'])
                {
                if ($value == TRUE)
             

 {
        my $self        = shift;
        my $value = $self->get_attribute('display');
        given ($value)
                {
                when (undef)        { return TRUE   }
                

elf        = shift;
        my $type        = shift         or return undef;
        unless ($type ~~ [ 'standard', 'lines', 'line', 'curve' ])
                {
                alert "Not allowed con

ype=>"perl_code"}],summary=>"Benchmark searching string in array-of-string using smartmatch: \$str ~~ \@ary_of_str"}},"func.bencher_version"=>undef,"func.code_startup"=>undef,"func.cpu_info"=>[{L2_cac

samples"]}]];

1;
# ABSTRACT: Benchmark searching string in array-of-string using smartmatch: $str ~~ @ary_of_str

=head1 DESCRIPTION

This module is automatically generated by Pod::Weaver::Plugin::Be

and the ~~ operator, and 5.40 will
# supposedly remove them entirely.  To preserve existing semantics of
# existing code including user-visible functions, I'm emulating (a subset of) 
# the ~~ operato

            alert "Grouping not allowed"; return FALSE;
                }
        my $tag = ($type ~~ ['column', 'row']) ?
                        'table:table-' . $type . '-group'       :
           

                     {
                        $min //= $v; $max //= $v;
                        given ($type)
                                {
                                when (['string', 'all']

    set_type
        {
        my $self        = shift;
        my $type        = shift;
        given ($type)
                {
                when (undef)
                        {
                

my $self        = shift;
        my $type        = $self->get_type();
        my $value;
        given ($type)
                {
                when ('string')
                        {
             

   my $type        = $self->get_type();

        my $v = check_odf_value($value, $type);
        given ($type)
                {
                when ('string')
                        {
             

       my $param       = shift // "";
        $param          = shift if $param eq lpod;
        given ($param)
                {
                when (undef)            {}
                when (TRUE 

     my $arg = shift;
        return FALSE unless $arg;
        my $v = lc $arg;
        return $v ~~ ["false", "off", "no"] ? FALSE : TRUE;
        }

sub     is_false
        {
        return is_tru

   = shift;
        return undef unless defined $value;
        my $type        = shift;
        given ($type)
                {
                when (['float', 'currency', 'percentage'])