CPAN::Groonga

sold_out  = 'statgb='    . ( $self->sold_out ? q{} : '01' );

    my $category = 'qdomain=';
    given ( $self->category ) {
        when ("all")          { $category .= '%C0%FC%C3%BC'; }
        when

"foreign-book") { $category .= '%BF%DC%B1%B9%B5%B5%BC%AD'; }
    }

    my $sort = 'qsort=';
    given ( $self->sort ) {
        when ('accuracy')       { $sort .= 1; }
        when ('sales')         

{ $sort .= 10; }
        when ('gift')           { $sort .= 11; }
    }

    my $query_type;
    given ( $self->query_type ) {
        when ('normal')    { $query_type = 'query='    }
        when ('a

 == || and or lt gt cmp eq not
及 等 許 且  或 前 後 較  同 否

=~ !~ x <=> ne ~~ //
=~ !~ x <=> ne ~~ //

<< >> <= >= le ge != ne xor
<< >> <= >= le ge != ne xor

**= += *= &= <<= &&= -= /=

readme.txt'   => 'README',
);

my @Tempfiles = qw(
    pod2htmd.tmp
    pod2htmd.x~~
    pod2htmi.tmp
    pod2htmi.x~~
);

use strict;
use File::Copy;
local $/;

foreach my $target (keys %TEXT) {
    

readme.txt'   => 'README',
);

my @Tempfiles = qw(
    pod2htmd.tmp
    pod2htmd.x~~
    pod2htmi.tmp
    pod2htmi.x~~
);

use strict;
use File::Copy;
local $/;

foreach my $target (keys %TEXT) {
    

readme.txt'   => 'README',
);

my @Tempfiles = qw(
    pod2htmd.tmp
    pod2htmd.x~~
    pod2htmi.tmp
    pod2htmi.x~~
);

use strict;
use File::Copy;
local $/;

foreach my $target (keys %TEXT) {
    

 the value is VAL
   member:VAL:VAL:...
                : true if the value is any of the values given (in
                  this case, ALL of the colons (including the first
                  one) ca

 value is VAL
#    member:VAL:VAL:...
#                 : true if the value is any of the values given (in
#                   this case, ALL of the colons (including the first
#                   one

                                                             ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~ 
                                                               $db_xref_str,
.		
		write STDOUT;

 ($value ~~ s:P5/^\s*(=*[^\s=;,]+)//) {
                push @current, ~$0;  # 'token' or parameter 'attribute'
                
                # a quoted value
                if ($value ~~ s:P5/^\s

 = ~$0;
                    $val ~~ s:P5:g/\\(.)/$0/;
                    push @current, $val;
                # some unquoted value
                } elsif ($value ~~ s:P5/^\s*=\s*([^;,\s]*)//) {
   

                 my $val = ~$0;
                    $val ~~ s:P5/\s+$//;
                    push @current, $val;
                # no value, a lone token
                } else {
                    

 if $proto ~~ JSX::null;
    return $proto.<[[Get]]>($P);
}
# 8.6.2.2
method <[[Put]]> ($O: JSX::String $P, JSX::Value $V) {
    my $Result1 = $O.<[[CanPut]]>($P);
    return if $Result1 ~~ JSX::false

        return JSX::true;
    }
    my $proto = $O.<[[Prototype]]>;
    return JSX::true if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.4
method <[[HasProperty]]> ($O: JSX::Stri

 $O.property_value.exists($P);
    my $proto = $O.<[[Prototype]]>;
    return JSX::false if $proto ~~ JSX::null;
    return $proto.<[[CanPut]]>($P);
}
# 8.6.2.5
method <[[Delete]]> ($O: JSX::String $P

meters) that 
the C<Build.PL> or C<Build> script is to process according to the specifications
given (the specification hashrefs are documented in the 
L<Module::Build::API documentation|Module::Bu

::Livedoor::Wiki::Plugin::Inline::Break - Inline Break Plugin

=head1 DESCRIPTION

break text line.

=head1 SYNOPSIS

 I have a ~~ dream

=head1 FUNCTION

=head2 process

=head1 AUTHOR

polocky

=cut

 1;
	}
    } else {
	$options{'Indexes'} = 1;
    }
    my @aliases = '  ScriptAlias ~~apache-virtualserver-cgidir~~';

    if ($vserver->{'apache-virtualserver-enable-ssi'}) {
	unshift(@index, 'welco

lHost ~~apache-virtualserver-name~~~~apache-server-port~~>
  ServerName ~~apache-virtualserver-name~~
  ServerAdmin ~~apache-virtualserver-admin~~
  DocumentRoot ~~apache-virtualserver-pagedir~~
  Cus

mLog ~~apache-virtualserver-logdir~~ combined
  ~~apache-virtualserver-index~~
~~apache-virtualserver-aliases~~
  <Directory ~~apache-virtualserver-pagedir~~>
    ~~apache-virtualserver-options~~
  </

$s ~~ @a        # $s Element in @a
123 ~~ @a       # ?@a[123]
123 ~~ *@a      # 123 Element in @a
@a ~~ /regex/   # irgendein Element
@a ~~ @b        # alle Elemente
$s ~~ %h        # ?%h{$s}
%h ~~ /r

egex/   # ein passender Hash-Key
%a ~~ %b        # gleiche Hashes
any($a,'b',/regex/) ~~ any(@a, 'c', 'd') # cool, nicht?

Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if $msg ~~ / $/ {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
sub de

s) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
      return unless defined $chan;
      $chan = normalize $chan;

      my @nicks = split(" ", $nicks)\
                 .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/

e from the server and process it
  method readline() {
    my $line = readline $!socket;
    $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
    debug_recv $line if $.debug_raw;
    # We re

Str $msg) is export {
  state $is_fresh;
  $is_fresh //= 1;

  print "» " if $is_fresh;
  if $msg ~~ rx:P5/ $/ {
    print "$msg";
    $is_fresh = 0;
  } else {
    say $msg;
    $is_fresh++;
  }
}
s

nicks) = $event<rest> ~~ m:P5/^. ([^ ]+) :?(.*)$/;
    return unless defined $chan;
    $chan = normalize $chan;

    my @nicks = split(" ", $nicks)\
               .map:{ ($_ ~~ m:P5/^[@+%]?(.+)/)[0]

 line from the server and process it
    readline => {
      my $line = readline $hdl;
      $line ~~ s:P5/[\015\012]*$//; # Hack to remove all "\r\n"s
      debug_recv $line if $debug_raw;
      # We

####################################
1;

__END__

HEY YOU!  You need some FOOD!


  ~~ Tangy Moroccan Carrot Salad ~~

* 6 to 8 medium carrots, peeled and then sliced in 1/4-inch rounds
* 1/4 teaspoon

ve caught it
earlier.

=item Repeated format line will never terminate (~~ and @# incompatible)

(F) Your format contains the ~~ repeat-until-blank sequence and a
numeric field that will never go blan

really a dirhandle.  Check your control flow.

=item Runaway format

(F) Your format contained the ~~ repeat-until-blank sequence, but it
produced 200 lines at once, and the 200th line looked exactly 

e;
 supe	  Superset or equal				⊇
 -=	  Equivalent					≡
 ~=	  Congruent to					≅
 ~~	  Asymptotically equal to			≈
 prop	  Proportional to				∝

=head3 Logical symbols

 Ty

equiv", ttype=>"CONST" },
"~=" => { tag=>"mo", output=>"≅", tex=>"cong", ttype=>"CONST" },
"~~" => { tag=>"mo", output=>"≈", tex=>"approx", ttype=>"CONST" },
"prop" => { tag=>"mo", outpu

um where { $^n % 2 == 0 }

    my Str_not2b $hamlet;
    $hamlet = 'isnt';   # Okay because 'isnt' ~~ /^[isnt|arent|amnot|aint]$/
    $hamlet = 'amnt';   # Bzzzzzzzt!   'amnt' !~ /^[isnt|arent|amnot|a

use Rules::Common :profanity;

    multi sub mesg (Str where /<profanity>/ $mesg is copy) {
	$mesg ~~ s:g/<profanity>/[expletive deleted]/;
	print $MESG_LOG: $mesg;
    }

    multi sub mesg (Str $mes

sures too.  These means the same thing:

    use Dog-{$^ver ~~ 1.2.1 | 1.3.4}-{$^auth ~~ /:i jrandom/};
    use Dog-{$^ver ~~ Any}-{$^auth ~~ /^cpan\:/}

In any event, however you select the module, i