$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?
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) {
${$template} );
}
else
{
$template =~ s~^\Q$_template_config{template_root}/\E~~
if $_template_config{ template_root };
$ts->set_template( $template );
}
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) {
my $rf = \$f;
Scalar::Util::weaken($rf);
unless(defined $x){ $wr->('N'); return}
given(ref $x){
when('Hessian::Type::Null') { $wr->('N') }
when('Hessian::Type::True')
(pack'l', first{$$x == $$refs[$_]}(0 .. $#$refs))) }
when('') { # guessing begins
given($x){
when /^[\+\-]?(0x)?\d+$/ { my $bi = Math::BigInt->new($x);
ned $h_flag_override;
my $rf = \$f;
Scalar::Util::weaken($rf);
my $x = $rd->(1);
given($x){
when('N') { return $h_flag_override ? Hessian::Type::Null->new() : undef }
when(
my $rf = \$f;
Scalar::Util::weaken($rf);
unless(defined $x){ $wr->('N'); return}
given(ref $x){
when('Hessian::Type::Null') { $wr->('N') }
when('Hessian::Type::True') { $
(pack'l', first{$$x == $$refs[$_]}(0 .. $#$refs))) }
when('') { # guessing begins
given($x){
when /^[\+\-]?(0x)?\d+$/ { my $bi = Math::BigInt->new($x);
de = $h_flg unless defined $h_flg_override;
my $rf = \$f;
Scalar::Util::weaken($rf);
given($rd->(1)){
when('N') { return $h_flg_override ? Hessian::Type::Null->new() : undef }
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
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~
$db_xref_str,
.
write STDOUT;
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
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
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
" ~~ /<nam>/;
say "match name" if "abc" ~~ /<nam>/;
say "match block" if '{ xxx = a123 }' ~~ /<block>/;
say "match parenthesis" if '(a b c)' ~~ /<parenthesis>/;
say "match square" if '[a b c]' ~~ /
<square>/;
say "match str" if '"abc"' ~~ /<str>/;
my $pil2 = q/
PIL_Environment
{ pilMain = (PStmts {pStmt = PNoop, pStmts = PStmts {pStmt = PPos
{pPos = (MkPos "-e" 1 1 1 12), pExp = App
bPrim,
pSubParams = [], pSubLValue = False, pSubIsMulti = False, pSubBody =
PNil}])
}
/;
say $pil2;
my $b = $pil2 ~~ m/<pil2>/;
say $b.perl;
my $c = $pil2 ~~ / <nam> <spc> \{ /;
say $c.perl;
if @params[$i+1] ~~ m:perl5 {:$} {
@params[$i] ~~ s:perl5 {:$}{,};
}
}
}
my $param_list = @params.join(" ");
$param_list ~~ s:perl5 {,$}{}; # rem
ote '&main::zz'
$s ~~ s:perl5/^"(.*)"$/$0/;
$s ~~ s:perl5 {\&(.+fix:)([^:].*)}{&$0:<$1>};
# XXX fix corner cases like 'infix:<:>' and '&main::infix:<aaa>'
$s ~~ s:perl5 {(fix::<)(.*?
)>$}{fix:<$1>};
$s ~~ s:perl5 {fix::$}{fix:<:>};
$s
}
sub emit_Int ( $s ) { $s }
sub emit_Str ( $s ) { $s }
sub emit_Rat ( $a, $b ) { "$a $b / " }
sub emit_parameter(
$name, $is_i
if @params[$i+1] ~~ m:perl5 {:$} {
@params[$i] ~~ s:perl5 {:$}{,};
}
}
}
my $param_list = @params.join(" ");
$param_list ~~ s:perl5 {,$}{}; # rem
te '&main::zz'
$s ~~ s:perl5 /^"(.*)"$/$0/;
$s ~~ s:perl5 {\&(.+fix:)([^:].*)}{&$0:<$1>};
# XXX fix corner cases like 'infix:<:>' and '&main::infix:<aaa>'
$s ~~ s:perl5 {(fix::<)(.*?
)>$}{fix:<$1>};
$s ~~ s:perl5 {fix::$}{fix:<:>};
$s
}
sub emit_Int ( $s ) { $s }
sub emit_Str ( $s ) { $s }
sub emit_Rat ( $a, $b ) { "$a $b / " }
sub emit_parameter(
$name, $is_i
if @params[$i+1] ~~ m:perl5 {:$} {
@params[$i] ~~ s:perl5 {:$}{,};
}
}
}
my $param_list = @params.join(" ");
$param_list ~~ s:perl5 {,$}{}; # rem
te '&main::zz'
$s ~~ s:perl5 /^"(.*)"$/$0/;
$s ~~ s:perl5 {\&(.+fix:)([^:].*)}{&$0:<$1>};
# XXX fix corner cases like 'infix:<:>' and '&main::infix:<aaa>'
$s ~~ s:perl5 {(fix::<)(.*?
)>$}{fix:<$1>};
$s ~~ s:perl5 {fix::$}{fix:<:>};
$s
}
sub emit_Int ( $s ) { $s }
sub emit_Str ( $s ) { $s }
sub emit_Rat ( $a, $b ) { "($a / $b)" }
sub emit_parameter(
$name, $is_i
my $file = '';
if ($nofile) {
$directory = $path;
}
else {
$path ~~ m:P5"^((?:.*/(?:\.\.?\Z(?!\n))?)?)([^/]*)";
$directory = ~$0;
$file = ~$1;
f before it can descend to $path_directory. So,
# replace all names with $parentDir
$base ~~ s:P5:g"[^/]+"..";
# Glue the two together, using a separator if necessary, and preventing an
ath = $_path;
$path ~~ s:P5:g"/+"/"; # xx////xx -> xx/xx
$path ~~ s:P5:g"(/\.)+(/|\Z(?!\n))"/"; # xx/././xx -> xx/xx
$path ~~ s:P5:g"^(\./)+"" unless
::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;
__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