Group
Extension

Matches 1309

Perl6-Pugs ( A/AU/AUDREYT/Perl6-Pugs-6.2.13.tar.gz, AUDREYT, 2006; MetaCPAN )
Perl6-Pugs/docs/talks/perl6-apw2005/code/op/smart2.pl ( view source; MetaCPAN )
$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?
Test-FormValidator ( M/MG/MGRAHAM/Test-FormValidator-0.07.tar.gz, MGRAHAM, 2009; MetaCPAN )
Test-FormValidator/misc/makedocs.pl ( view source; MetaCPAN )
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) {
    
CGI-Application-Plugin-Config-General ( M/MG/MGRAHAM/CGI-Application-Plugin-Config-General-0.08.tar.gz, MGRAHAM, 2009; MetaCPAN )
CGI-Application-Plugin-Config-General/misc/makedocs.pl ( view source; MetaCPAN )
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) {
    
Dancer-Template-TemplateSandbox ( S/SG/SGRAHAM/Dancer-Template-TemplateSandbox-1.00.tar.gz, SGRAHAM, 2010; MetaCPAN )
Dancer-Template-TemplateSandbox/lib/Dancer/Template/TemplateSandbox.pm ( view source; MetaCPAN )
 ${$template} );
    }
    else
    {
        $template =~ s~^\Q$_template_config{template_root}/\E~~
            if $_template_config{ template_root };
        $ts->set_template( $template );
    }

CGI-Application-Plugin-AnyTemplate ( M/MG/MGRAHAM/CGI-Application-Plugin-AnyTemplate-0.18.tar.gz, MGRAHAM, 2009; MetaCPAN )
CGI-Application-Plugin-AnyTemplate/misc/makedocs.pl ( view source; MetaCPAN )
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) {
    
Hessian-Tiny ( D/DU/DUL/Hessian-Tiny-0.12.tar.gz, DUL, 2010; MetaCPAN )
Hessian-Tiny/lib/Hessian/Tiny/ConvertorV2.pm ( view source; MetaCPAN )
    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(
Hessian-Tiny ( D/DU/DUL/Hessian-Tiny-0.12.tar.gz, DUL, 2010; MetaCPAN )
Hessian-Tiny/lib/Hessian/Tiny/ConvertorV1.pm ( view source; MetaCPAN )
    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 }
      
WebService-Yes24 ( K/KE/KEEDI/WebService-Yes24-0.100980.tar.gz, KEEDI, 2010; MetaCPAN )
WebService-Yes24/lib/WebService/Yes24.pm ( view source; MetaCPAN )
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
SeqDiff ( B/BL/BLUECURIO/SeqDiff/SeqDiff-v0.1.tar.gz, BLUECURIO, 2010; MetaCPAN )
SeqDiff/SeqDiff.pm ( view source; MetaCPAN )
                                                             ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ~~ 
                                                               $db_xref_str,
.		
		write STDOUT;
Perl6-Bible ( A/AU/AUTRIJUS/Perl6-Bible-0.30.tar.gz, AUTRIJUS, 2006; MetaCPAN )
Perl6-Bible/lib/Perl6/Bible/A12.pod ( view source; MetaCPAN )
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
Data-Nested ( S/SB/SBECK/Data-Nested-3.12.tar.gz, SBECK, 2010; MetaCPAN )
Data-Nested/lib/Data/Nested.pod ( view source; MetaCPAN )
 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
Data-Nested ( S/SB/SBECK/Data-Nested-3.12.tar.gz, SBECK, 2010; MetaCPAN )
Data-Nested/lib/Data/Nested.pm ( view source; MetaCPAN )
 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
Module-Build-Functions ( N/NP/NPLATONOV/Module-Build-Functions-0.04.tar.gz, NPLATONOV, 2010; MetaCPAN )
Module-Build-Functions/lib/Module/Build/Functions.pod ( view source; MetaCPAN )
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
Perl6-Pugs ( A/AU/AUDREYT/Perl6-Pugs-6.2.13.tar.gz, AUDREYT, 2006; MetaCPAN )
Perl6-Pugs/misc/Parser-Mini/read_pil1.pl ( view source; MetaCPAN )
" ~~ /<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;
Perl6-Pugs ( A/AU/AUDREYT/Perl6-Pugs-6.2.13.tar.gz, AUDREYT, 2006; MetaCPAN )
Perl6-Pugs/misc/Parser-Mini/pil1_json_emit_forth.pl ( view source; MetaCPAN )
      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
Perl6-Pugs ( A/AU/AUDREYT/Perl6-Pugs-6.2.13.tar.gz, AUDREYT, 2006; MetaCPAN )
Perl6-Pugs/misc/Parser-Mini/pil1_json_emit_pir.pl ( view source; MetaCPAN )
      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
Perl6-Pugs ( A/AU/AUDREYT/Perl6-Pugs-6.2.13.tar.gz, AUDREYT, 2006; MetaCPAN )
Perl6-Pugs/misc/Parser-Mini/pil1_json_emit_p6.pl ( view source; MetaCPAN )
      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
Perl6-Pugs ( A/AU/AUDREYT/Perl6-Pugs-6.2.13.tar.gz, AUDREYT, 2006; MetaCPAN )
Perl6-Pugs/ext/File-Spec/lib/File/Spec/Unix.pm ( view source; MetaCPAN )
 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
Text-Livedoor-Wiki ( P/PO/POLOCKY/Text-Livedoor-Wiki-0.02.tar.gz, POLOCKY, 2009; MetaCPAN )
Text-Livedoor-Wiki/lib/Text/Livedoor/Wiki/Plugin/Inline/Break.pm ( view source; MetaCPAN )
::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
kurila ( T/TT/TTY/kurila-1.19_0.tar.gz, TTY, 2009; MetaCPAN )
kurila/lib/Locale/Maketext.pm ( view source; MetaCPAN )
####################################
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

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.