CPAN::Groonga

Group
Extension

Matches 1366

Any-Daemon-HTTP ( M/MA/MARKOV/Any-Daemon-HTTP-0.30.tar.gz, MARKOV, 2020; MetaCPAN )
Any-Daemon-HTTP/lib/Any/Daemon/HTTP/VirtualHost.pod ( view source; MetaCPAN ) 
|ARRAY

[0.26] Alternative host components which indicate the same virtual host.  When
'AUTO' is given (the default since [0.28]), then L<generateAliases()|Any::Daemon::HTTP::VirtualHost/"Attributes">
Build-Hopen ( C/CX/CXW/Build-Hopen-0.000008-TRIAL.tar.gz, CXW, 2019; MetaCPAN )
Build-Hopen/lib/Build/Hopen/Util/NameSet.pm ( view source; MetaCPAN ) 
ce, C<< 'foo' ~~ $nameset >> invokes
C<< $nameset->contains('foo') >>.  This is inspired by the Raku behaviour,
in which C<< $x ~~ $y >> calls C<< $y.ACCEPTS($x) >>

NOTE: C<< $nameset ~~ 'foo' >> (ob
 far as I can tell, even 5.27.7 would have supported the
C<< 'foo' ~~ $nameset >> form.

=cut

use overload
    fallback => 1,
    '~~' => sub {
        #my ($self, $other, $swap) = @_;
        $_[0]-
Mylisp ( S/SS/SSQQ/Mylisp-3.00.tar.gz, SSQQ, 2018; MetaCPAN )
Mylisp/lib/Mylisp/LintMyAst.pm ( view source; MetaCPAN ) 
atch)} ]);
}

sub opt_type_atom {
  my $atom = shift;
  my ($name,$value) = flat($atom);
  given ($name) {
    when ('Spec') {
      return opt_type_spec($value);
    }
    when ('More') {

_atom {
  my ($rule,$t) = @_;
  my ($name,$atoms) = flat($rule);
  if (not($name ~~ ['Str','End'])) {
    given ($name) {
      when ('Rules') {
        lint_type_atoms($atoms,$t);
      }
   
rule);
}

sub match_type_rule {
  my ($t,$rule) = @_;
  my ($name,$value) = flat($rule);
  given ($name) {
    when ('Rules') {
      return match_type_rules($t,$value);
    }
    when ('Bra
perlsnippets ( P/PE/PERLANCAR/perlsnippets-0.007.tar.gz, PERLANCAR, 2020; MetaCPAN )
perlsnippets/lib/perlsnippets.pod ( view source; MetaCPAN ) 
ts = grep { $_ eq 'foo' } @ary;

Another alternative is using smartmatch:

 my $foo_exists = 'foo' ~~ @ary;

but smartmatch is now in experimental status and might be removed in the future.
Plus the a
SVN-Dump ( B/BO/BOOK/SVN-Dump-0.08.tar.gz, BOOK, 2020; MetaCPAN )
SVN-Dump/lib/SVN/Dump/Headers.pm ( view source; MetaCPAN ) 
ew( [$hashref] )

Create and return a new empty L<SVN::Dump::Headers> object.

If C<$hashref> is given (it can be a blessed hash reference), the
keys from the hash are used to initialise the headers.
Acme-Tools ( K/KJ/KJETIL/Acme-Tools-0.27.tar.gz, KJETIL, 2020; MetaCPAN )
Acme-Tools/Tools.pm ( view source; MetaCPAN ) 
[$n+1],0,$ds) eq substr($x[$n],0,$ds); #hm
    croak "Could not resolve, perhaps too little time given ($sec), iteratons=$n"
      if $sec>0 and ($Resolve_time=time_fp()-$time_start)>$sec;
    #warn "
# 0
 print in( 'a',  'A','B','C','a');   # 1

I guess in perl 5.10 or perl 6 you could use the C<< ~~ >> operator instead.

=head2 in_num

Just as sub L</in>, but for numbers. Internally uses the perl
Getopt-O2 ( S/SC/SCHIECHEO/Getopt-O2-v1.1.0.tar.gz, SCHIECHEO, 2019; MetaCPAN )
Getopt-O2/lib/Getopt/O2.pm ( view source; MetaCPAN ) 
->{$rule->long} = []
				if $rule->is_list && !defined $self->{'options'}->{$rule->long};

			given($rule->type) {
				when('s') {
				}

				when('i') {
					$self->error('Argument "%s" to "-
			$self->error('Value "%s" to argument "--%s" is invalid.', $arg, $rule->long)
						unless $arg ~~ @{$rule->values || []};
				}
			}

			if ($rule->is_list) {
				if ('?' ne $rule->type) { ##
 {
					push @{$self->{'options'}->{$rule->long}}, $arg
						unless ($rule->keep_unique && $arg ~~ @{$self->{'options'}->{$rule->long}});
				}

				$rule->mark_used;
				next PROCESS_ARGUMENTS
App-Pimpd ( W/WO/WOLDRICH/App-Pimpd-0.310.tar.gz, WOLDRICH, 2018; MetaCPAN )
App-Pimpd/lib/App/Pimpd/Validate.pm ( view source; MetaCPAN ) 
  my @valid_lists = sort($mpd->collection->all_playlists);


  for my $list(@lists) {
    if($list ~~ @valid_lists) {
      next;
    }
    else {
      my @choices = ();

      for my $valid(@valid_l
ices;
      }
      elsif($answer eq 'current') {
        return(undef);
      }

      if($answer ~~ @valid_lists) {
        $list = $answer;
      }
      # Make sure the number selected is in fact 
s = @_;
  my @lists = $mpd->collection->all_playlists;
  map { s/^\s+//m } @lists;
  return ($_[0] ~~ @lists) ? 1 : 0;
}

sub escape {
  my $str = shift;
  $str =~ s/([;<>*|`&\$!#()[\]{}:'" ])/\\$1/g;
Setup-Unix-User ( P/PE/PERLANCAR/Setup-Unix-User-0.14.tar.gz, PERLANCAR, 2017; MetaCPAN )
Setup-Unix-User/lib/Setup/Unix/User.pm ( view source; MetaCPAN ) 
add_to) {
            push @needs_add, $_ unless $_ ~~ $cur_groups;
        }
        for (@$del_from) {
            push @needs_del, $_ if     $_ ~~ $cur_groups;
        }

        if (@needs_add || 
ess $group ~~ @$member_of;
    my $not_member_of = $args{not_member_of} // [];
    for (@$member_of) {
        return [400, "Group $_ is in member_of and not_member_of"]
            if $_ ~~ @$not_mem
          if $l->{group} ~~ @$member_of     && !($user ~~ @mm);
                push @needs_del, $l->{group}
                    if $l->{group} ~~ @$not_member_of &&  ($user ~~ @mm);
            }
Char-OldUTF8 ( I/IN/INA/Char/OldUTF8/Char-OldUTF8-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-OldUTF8/lib/Eoldutf8.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Char-Windows1258 ( I/IN/INA/Char/Windows1258/Char-Windows1258-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-Windows1258/lib/Ewindows1258.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Char-Hebrew ( I/IN/INA/Char/Hebrew/Char-Hebrew-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-Hebrew/lib/Ehebrew.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Devel-DumpTrace ( M/MO/MOB/Devel-DumpTrace-0.29.tar.gz, MOB, 2019; MetaCPAN )
Devel-DumpTrace/lib/Devel/DumpTrace/PPI.pm ( view source; MetaCPAN ) 
_add_implicit_to_given_when_blocks {

    # given($foo)
    #    when($bar)     means     when ($foo ~~ $bar)
    #    when(\@list)   means     when ($foo ~~ \@list)
    #    when(&func)    means     
n element
    #             if there is an "implicit smart match",
    #             insert  << $_ ~~ >>  at the beginning of the struct
    my $given_child = $given->find('PPI::Structure::Given') or 
$e eq '<=>' || $e eq 'cmp' || $e eq '!' || $e eq 'not' ||
		    $e eq '^' || $e eq 'xor' || $e eq '~~' || $e eq '..')) {

		$is_implicit_smart_match = 0;
		last;
	    } elsif (ref($e) =~ /::Regexp/) {
Char-Latin9 ( I/IN/INA/Char/Latin9/Char-Latin9-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-Latin9/lib/Elatin9.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Char-GBK ( I/IN/INA/Char/GBK/Char-GBK-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-GBK/lib/Egbk.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Char-UHC ( I/IN/INA/Char/UHC/Char-UHC-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-UHC/lib/Euhc.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Char-Latin7 ( I/IN/INA/Char/Latin7/Char-Latin7-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-Latin7/lib/Elatin7.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Char-INFORMIXV6ALS ( I/IN/INA/Char/INFORMIXV6ALS/Char-INFORMIXV6ALS-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-INFORMIXV6ALS/lib/Einformixv6als.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Char-TIS620 ( I/IN/INA/Char/TIS620/Char-TIS620-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-TIS620/lib/Etis620.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Char-Latin2 ( I/IN/INA/Char/Latin2/Char-Latin2-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-Latin2/lib/Elatin2.pm ( view source; MetaCPAN ) 
   elsif (/\G ((?>\s+)|\#.*) /oxgc) { return $1; }

# if (, elsif (, unless (, while (, until (, given (, and when (

    # given, when

    # P.225 The given Statement
    # in Chapter 15: Smart Matc
 Operators
    # of ISBN 978-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    # ~~

    # P.221 The Smart Match Operator
    # in Chapter 15: Smart Matching and given-when
    # of 
-0-596-00492-7 Programming Perl 4th Edition.

    # (and so on)

    elsif (/\G ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.