CPAN::Groonga

Group
Extension

Matches 1364

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
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.
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
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
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
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-Windows1252 ( I/IN/INA/Char/Windows1252/Char-Windows1252-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-Windows1252/lib/Ewindows1252.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-Latin10 ( I/IN/INA/Char/Latin10/Char-Latin10-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-Latin10/lib/Elatin10.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-Latin1 ( I/IN/INA/Char/Latin1/Char-Latin1-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-Latin1/lib/Elatin1.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-USASCII ( I/IN/INA/Char/USASCII/Char-USASCII-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-USASCII/lib/Eusascii.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-KOI8R ( I/IN/INA/Char/KOI8R/Char-KOI8R-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-KOI8R/lib/Ekoi8r.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 ((?>

            !~~ | !~ | != | ! |
            %= | % |
            &&= | && | &= | &\.= | &\. | & |
            -= |
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-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-Greek ( I/IN/INA/Char/Greek/Char-Greek-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-Greek/lib/Egreek.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-HP15 ( I/IN/INA/Char/HP15/Char-HP15-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-HP15/lib/Ehp15.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-JIS8 ( I/IN/INA/Char/JIS8/Char-JIS8-1.15.tar.gz, INA, 2019; MetaCPAN )
Char-JIS8/lib/Ejis8.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.