Group
Extension

Matches 1309

Data-SCORM ( O/OS/OSFAMERON/Data-SCORM-0.07.tar.gz, OSFAMERON, 2012; MetaCPAN )
Data-SCORM/lib/Data/SCORM.pm ( view source; MetaCPAN )
nzip => $pif,
           -d => $path ], '>', '/dev/null';

    my $ok = $status ?
        ($status ~~ [1, 1<<8] ? 1 : 0) # oddity of unzip 'warning' status
        : 1;

    if ($ok) {
        return;
Perlude ( M/MA/MARCC/Perlude-0.51.tar.gz, MARCC, 2012; MetaCPAN )
Perlude/lib/Perlude/Lazy.pm ( view source; MetaCPAN )
 1: lines 'file'
    @_ or return enlist { <$fh> // () };

    # confess if not 2nd form
    $_[0] ~~ 'chomp' or confess 'cannot handle parameters ' , join ',', @_ ;

    # lines chomp => 'file'
    e
Excel-Template ( R/RB/RBO/Excel-Template-0.34.tar.gz, RBO, 2012; MetaCPAN )
Excel-Template/lib/Excel/Template/Format.pm ( view source; MetaCPAN )
ts, 0, scalar( @_string_formats );

        my %params;
        $params{ $_boolean_formats[$_] } = ~~1
            for grep { $boolean_parts[$_] } 0 .. $#_boolean_formats;

        $params{ $_integer_
Perldoc-Server ( J/JO/JONALLEN/Perldoc-Server-0.10.tar.gz, JONALLEN, 2011; MetaCPAN )
Perldoc-Server/lib/Perldoc/Server/Controller/Search.pm ( view source; MetaCPAN )
l('PerlFunc')->list;
    my @pages     = sort {$a cmp $b} $c->model('Index')->find_modules;

    given ($query) {
      when (@functions) {
        return $c->response->redirect( $c->uri_for('/functio
(/^($query)$/i ~~ @pages) {
        my $matched_page = $1;
        return $c->response->redirect( $c->uri_for('/view',split('::',$matched_page)) );
      }
      when (/^($query.*)$/i ~~ @pages) {
   
Perl6-Bible ( A/AU/AUTRIJUS/Perl6-Bible-0.30.tar.gz, AUTRIJUS, 2006; MetaCPAN )
Perl6-Bible/lib/Perl6/Bible/S05.pod ( view source; MetaCPAN )
r context.  The first match at any position is returned.

     $str = "abracadabra";

     if $str ~~ m:overlap/ a (.*) a / {
         @substrings = $/.matches();    # bracadabr cadabr dabr br
     }
ontext, or a disjunction of matches in a scalar context.

     $str = "abracadabra";

     if $str ~~ m:exhaustive/ a (.*) a / {
         @substrings = $/.matches();    # br brac bracad bracadabr
    
 in a value context (void,
Boolean, string, or numeric), or when it is an explicit argument of
a C<~~>.  Otherwise it's a rule constructor.  So this:

     $var = /pattern/;

no longer does the match 
Perl6-Doc ( H/HI/HINRIK/Perl6-Doc-0.47.tar.gz, HINRIK, 2010; MetaCPAN )
Perl6-Doc/share/Synopsis/S06-routines.pod ( view source; MetaCPAN )
the arguments:

    for @kv <-> $key, $value {
        $key ~= ".jpg";
        $value *= 2 if $key ~~ :e;
    }

=head2 Stub declarations

To predeclare a subroutine without actually defining it, use 
    push @a, "foo";
    push @a, \(1,2,3);
    push @a, "bar";
    ...
    my ($i, $j, $k);
    @a ~~ rx/
            <,>                         # match initial elem boundary
            :(Int $i,Int
      **
    non         cmp <=> ..      ILLEGAL                         cmp
    chain       == eq ~~        ($a op $b) and ($b op $c)       eqv
    list        | & ^ Z         op($a; $b; $c)         
Perl6-Doc ( H/HI/HINRIK/Perl6-Doc-0.47.tar.gz, HINRIK, 2010; MetaCPAN )
Perl6-Doc/share/Synopsis/S32-setting-library/IO.pod ( view source; MetaCPAN )


=item IO ~~ :X
X<:r>X<:w>X<:x>X<:o>X<:R>X<:W>X<:X>X<:O>X<:e>X<:z>X<:f>X<:d>X<:l>X<:p>
X<:S>X<:b>X<:c>X<:t>X<:u>X<:g>X<:k>X<:T>X<:B>X<:M>X<:A>X<:C>

=item EXPR ~~ :X

  $file.:X
  $file ~~ :X

A file
ero size.
Likewise, just call C<.s> directly if you actually want to know the file's
size, since C<~~ :s> only returns a boolean.

The C<.T> and C<.B> methods will be replaced by some filetype guessin
fective uid to something else.

You can test multiple features using junctions:

  if $filename.IO ~~ :r & :w & :x  {...}

=back

=head2 IO::ACL

This is a basic abstraction; for better control, use t
Perl6-Doc ( H/HI/HINRIK/Perl6-Doc-0.47.tar.gz, HINRIK, 2010; MetaCPAN )
Perl6-Doc/share/Apocalypse/A06.pod ( view source; MetaCPAN )
2 { ... }
	when want.List { ... }

The C<want> function can be used with smart matching:

	if want ~~ List & 2 & Lvalue { ... }

Which means it can also be used in a switch:

    given want {
	when Li
ctation count is C<Inf>.  You shouldn't
actually return an infinite list, however, unless C<< want ~~ Lazy >>.
The opposite of C<Lazy> context is C<Eager> context (the Perl 5 list
context, which alway
ve where => Parametric, value => (1,2,3);
    leave Loop, label => 'LINE', $retval;
    leave { $_ ~~ Block and $_ !~ Sub } 1,2,3;
    leave () <== 1,2,3;

As it currently stands, the parens aren't op
SVN-Simple-Hook ( M/MJ/MJGARDNER/SVN-Simple-Hook-0.312.tar.gz, MJGARDNER, 2012; MetaCPAN )
SVN-Simple-Hook/lib/SVN/Simple/Path_Change.pm ( view source; MetaCPAN )
 isa      => '_p_svn_fs_path_change_t',
    required => 1,
    handles  => [
        grep { not $_ ~~ [qw(new DESTROY)] }
            map { $_->name }
            any_moose('::Meta::Class')->initializ
App-DNS-Zonewalk ( G/GA/GAISSMAI/App-DNS-Zonewalk-0.05.tar.gz, GAISSMAI, 2012; MetaCPAN )
App-DNS-Zonewalk/lib/App/DNS/Zonewalk.pm ( view source; MetaCPAN )
nameservers for this zone
    my ($resolvers_ns) = $self->nameservers;

    unless ( $resolvers_ns ~~ @ns_addresses ) {
        $self->errorstring("NS $resolvers_ns is nonauth for $zone");
        pri
Thorium ( A/AF/AFLOTT/Thorium-0.510.tar.gz, AFLOTT, 2011; MetaCPAN )
Thorium/lib/Thorium/BuildConf.pm ( view source; MetaCPAN )
) = @_;

    my $qs = $self->knobs;

    foreach my $q (@{$qs}) {
        my $set_value;
        given ($q->ui_type) {
            when ('Menu') {
                $set_value = $q->value || $q->data->[
]
    );

    INTERACT: {
        my $state = $main_menu->run;

        given ($state) {
            when (
                $_ ~~ [
                    Hobocamp::Dialog::DLG_EXIT_ESC(),     Hobocamp::
                die("I don't know what the error code $_ is!");
            }
        }

        given ($main_menu->value->{'name'}) {
            when ('Introduction') {
                my $msg_box =
Lingua-EN-BioLemmatizer ( T/TO/TOMC/Lingua-EN-BioLemmatizer-1.002.tar.gz, TOMC, 2012; MetaCPAN )
Lingua-EN-BioLemmatizer/lib/Lingua/EN/BioLemmatizer.pm ( view source; MetaCPAN )
);
    croak "object method called as class method" unless ref $self;

    my($orig, $pos);

    given(scalar(@_)) {
	when (2) { ($orig, $pos) = @_ }
	when (1) { ($orig)       = @_ }
	when (0) { croak
lib-tiny ( D/DM/DMUEY/lib-tiny-0.7.tar.gz, DMUEY, 2012; MetaCPAN )
lib-tiny/lib/lib/tiny.pod ( view source; MetaCPAN )
tiny @list;
    no lib::tiny @list;

=head1 DESCRIPTION

This module simply adds and removes the given (existant on add) paths as-is to/from @INC in the same manner as L<lib> but in a '::Tiny' manner.
REST-Google-Apps-Provisioning ( S/SS/SSCHNEID/REST-Google-Apps-Provisioning-1.1.10.tar.gz, SSCHNEID, 2012; MetaCPAN )
REST-Google-Apps-Provisioning/lib/REST/Google/Apps/Provisioning.pod ( view source; MetaCPAN )
m username

The username associated with the account being created.

=item givenName

The user's given (first) name.

=item familyName

The user's family (last) name.

=item password

The user's passw
Perlbal ( D/DO/DORMANDO/Perlbal-1.80.tar.gz, DORMANDO, 2012; MetaCPAN )
Perlbal/lib/Perlbal/ReproxyManager.pm ( view source; MetaCPAN )
class = shift;
    my $self = {};
    bless $self, $class;
    return $ReproxySelf = $self;
}

# given (clientproxy, primary_res_hdrs), initiate proceedings to process a
# request for a reproxy resour
Grimlock ( D/DH/DHOSS/Grimlock-0.11.tar.gz, DHOSS, 2012; MetaCPAN )
Grimlock/script/grimlock_deploy_schema.pl ( view source; MetaCPAN )
help {
say <<'OUT';
usage:
  install
  upgrade
  current-version
OUT
}
 
help unless $ARGV[0];
 
given ( $ARGV[0] ) {
    when ('install')         { install()         }
    when ('upgrade')         { 
Games-Pandemic ( J/JQ/JQUELIN/Games-Pandemic-1.120510.tar.gz, JQUELIN, 2012; MetaCPAN )
Games-Pandemic/lib/Games/Pandemic/Tk/Main.pm ( view source; MetaCPAN )
y $player = $game->curplayer;

    my @actions = qw{ build discover treat share pass drop };
    given ( $game->state ) {
        when ('actions') {
            foreach my $action ( @actions ) {
     
Games-Pandemic ( J/JQ/JQUELIN/Games-Pandemic-1.120510.tar.gz, JQUELIN, 2012; MetaCPAN )
Games-Pandemic/lib/Games/Pandemic/Controller.pm ( view source; MetaCPAN )
 => sub {
    my $game = Games::Pandemic->instance;
    # FIXME: check src vs current player
    given ( $game->state ) {
        when ('end_of_actions')     { $K->yield('_draw_cards' ); }
        whe
LPDS ( L/LA/LANCET/LPDS-0.02.tar.gz, LANCET, 2012; MetaCPAN )
LPDS/lib/LPDS/Renderer.pm ( view source; MetaCPAN )
 @labels ; $i++ ) {
        my $x = $i * 800 / ( @labels - 1 );

        my @axis_modes;
        given ( $labels[$i] ) {
            when ('CPU') {
                @axis_modes = @MODES_CPU

          
Perl6-Pugs ( A/AU/AUDREYT/Perl6-Pugs-6.2.13.tar.gz, AUDREYT, 2006; MetaCPAN )
Perl6-Pugs/src/perl6/Prelude.pm ( view source; MetaCPAN )
s builtin {
    has $.f;
}
# This infix:<~~> doesnt work yet.
multi sub infix:<~~> ($x, Rul $r) is primitive is safe is builtin {$r.f.($x)}
multi sub infix:<~~> (Rul $r, $x) is primitive is safe is bu
y $m;
           while 1 \{
              my $s = substr($str,$pos) // last;
              $m = $s ~~ $re or last;
              my $m0 = {$m}[0];
              my $at = $pos + $m0.from;
             
 !! $a }))";
        return $code;
    }
    # Use of Rul awaits working infix:<~~> .
    #'Rul.new(:f(sub($_s_){$_s_ ~~ '~"$hook$adverbs$qo$pat$qc}))";
    "$hook$adverbs$qo$pat$qc";
}

# These macro

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