Group
Extension

Matches 1309

autobox-Core ( S/SW/SWALTERS/autobox-Core-1.33.tar.gz, SWALTERS, 2016; MetaCPAN )
autobox-Core/lib/autobox/Core.pm ( view source; MetaCPAN )
i had this in it:

#sub grep {
#    my ( $array, $filter ) = @_;
#    my @result = CORE::grep { $_ ~~ $filter } @$array;
#    return wantarray ? @result : \@result;
#}

sub grep {
    my $arr = CORE::
Pollux ( Y/YA/YANICK/Pollux-0.0.2.tar.gz, YANICK, 2017; MetaCPAN )
Pollux/lib/Pollux.pm ( view source; MetaCPAN )
   given ( $action ) {
            return $action->{filter} when $SetVisibilityFilter;

            default { return $state }
        }
    }

    sub todos($action=undef,$state=[]) {
        given( $
   given ( $action ) {
            return $action->{filter} when $SetVisibilityFilter;

            default { return $state }
        }
    }

    sub todos($action=undef,$state=[]) {
        given( $
Dist-Metadata ( R/RW/RWSTAUNER/Dist-Metadata-0.927.tar.gz, RWSTAUNER, 2017; MetaCPAN )
Dist-Metadata/lib/Dist/Metadata/Struct.pm ( view source; MetaCPAN )
uld be consistent with Dir
  my $content = $self->{files}{ $self->full_path($file) };

  # 5.10: given(ref($content))

  if( my $ref = ref $content ){
    local $/; # do this here because of perl bug 
perl5i ( M/MS/MSCHWERN/perl5i-v2.13.2.tar.gz, MSCHWERN, 2016; MetaCPAN )
perl5i/lib/perl5i/2/Meta/Instance.pm ( view source; MetaCPAN )
@_;

    state $algorithms = [qw(sha1 md5)];
    $args{algorithm} //= 'sha1';
    $args{algorithm} ~~ $algorithms or
      Carp::Fix::1_25::croak("algorithm must be @{[ $algorithms->join(' or ' ) ]}")
5" };

    state $format = [qw(hex base64 binary)];
    $args{format} //= 'hex';
    $args{format} ~~ $format or
      Carp::Fix::1_25::croak("format must be @{[ $format->join(' or ') ]}");

    state
perl5i ( M/MS/MSCHWERN/perl5i-v2.13.2.tar.gz, MSCHWERN, 2016; MetaCPAN )
perl5i/lib/perl5i/1/Meta/Instance.pm ( view source; MetaCPAN )
 = @_;

    my $algorithms = [qw(sha1 md5)];
    $args{algorithm} //= 'sha1';
    $args{algorithm} ~~ $algorithms or
      Carp::croak("algorithm must be @{[ $algorithms->join(' or ' ) ]}");

    my $
:MD5" };

    my $format = [qw(hex base64 binary)];
    $args{format} //= 'hex';
    $args{format} ~~ $format or
      Carp::croak("format must be @{[ $format->join(' or ') ]}");

    my %prefix = ( h
perl5i ( M/MS/MSCHWERN/perl5i-v2.13.2.tar.gz, MSCHWERN, 2016; MetaCPAN )
perl5i/lib/perl5i/2/ARRAY.pm ( view source; MetaCPAN )
oach as in grep().
    if ( ref $filter eq 'Regexp' ) {
        return List::Util::first( sub { $_ ~~ $filter }, @$self );
    }

    return List::Util::first( sub { $filter->() }, @$self );

}

metho
 {
    return @$self[int rand @$self];
}


method grep($filter) {
    my @result = CORE::grep { $_ ~~ $filter } @$self;

    return wantarray ? @result : \@result;
}

method popn($times) {
    Carp::F
HTML-Formatter ( N/NI/NIGELM/HTML-Formatter-2.16.tar.gz, NIGELM, 2016; MetaCPAN )
HTML-Formatter/lib/HTML/Formatter.pm ( view source; MetaCPAN )
consisting of the result of using the given class to format the
given HTML file according to the given (optional) options. Internally it calls
C<< SomeClass->new( ... )->format( ... ) >> on a new HTML
nsisting of the result of using the given class to format the
given HTML source according to the given (optional) options. Internally it
calls C<< SomeClass->new( ... )->format( ... ) >> on a new HTML
HTML-Formatter ( N/NI/NIGELM/HTML-Formatter-2.16.tar.gz, NIGELM, 2016; MetaCPAN )
HTML-Formatter/lib/HTML/FormatPS.pm ( view source; MetaCPAN )
ntscale};
}

# Determine the current font and set font-related members.
# If $plain_with_size is given (a number), use a plain font
# of that size.  Otherwise, use the font specified by the
# HTML con
Class-Declare ( I/IB/IBB/Class-Declare-0.20.tar.gz, IBB, 2016; MetaCPAN )
Class-Declare/Declare.pm ( view source; MetaCPAN )
e second example,
only the the single argument I<name> will be recognized.

If I<default> is not given (or is undef), then B<arguments()> will simply
flatten the argument list into a hash and assume t
Number-Phone-UK-DetailedLocations ( D/DC/DCANTRELL/Number-Phone-UK-DetailedLocations-1.5.tar.gz, DCANTRELL, 2016; MetaCPAN )
Number-Phone-UK-DetailedLocations/lib/Number/Phone/UK/DBM/Deep.pm ( view source; MetaCPAN )
$self->_base_offset,
		root => $self->_root
	);
}

{
    my %is_legal_filter = map {
        $_ => ~~1,
    } qw(
        store_key store_value
        fetch_key fetch_value
    );

    sub set_filter
Class-Multimethods ( D/DC/DCONWAY/Class-Multimethods-1.701.tar.gz, DCONWAY, 2016; MetaCPAN )
Class-Multimethods/lib/Class/Multimethods.pm ( view source; MetaCPAN )
n", and Class::Multimethods does it like this:

=over 4

=item 1.

If the types of the arguments given (as determined by C<ref>) exactly
match the types specified in any variant of the multimethod, th
PDF-Reuse ( C/CN/CNIGHS/PDF-Reuse-0.39.tar.gz, CNIGHS, 2016; MetaCPAN )
PDF-Reuse/lib/PDF/Reuse.pm ( view source; MetaCPAN )
{  $log .= "Cid~$stati[9]\n";
       my $indata = prep($infil);
       $log .= "Form~$indata~$sidnr~~load~1\n";
    }

   open (INFIL, "<$infil") || errLog("The file $infil couldn't be opened, abortin
IUP ( K/KM/KMX/IUP-0.305.tar.gz, KMX, 2016; MetaCPAN )
IUP/lib/IUP/Tabs.pod ( view source; MetaCPAN )
e string is complemented with the id value. For ex:

 $elem->SetAttributeId("TABTITLE", 3, $value) ~~ $elem->SetAttribute("TABTITLE3", $value)

But these functions are faster than the traditional func
threads-lite ( L/LE/LEONT/threads-lite-0.034.tar.gz, LEONT, 2015; MetaCPAN )
threads-lite/lib/threads/lite.pm ( view source; MetaCPAN )
plice @mailbox, $index, 1) if $mailbox[$index] ~~ @args;
		}
		while (1) {
			my $message = _receive;
			return _return_elements($message) if $message ~~ @args;
			push @mailbox, $message;
		}
	}
	els
(splice @mailbox, $index, 1) if $mailbox[$index] ~~ @args;
		}
		while (my $message = _receive_nb) {
			return _return_elements($message) if $message ~~ @args;
			push @mailbox, $message;
		}
		return
Math-MatrixReal ( L/LE/LETO/Math-MatrixReal-2.13.tar.gz, LETO, 2016; MetaCPAN )
Math-MatrixReal/lib/Math/MatrixReal.pm ( view source; MetaCPAN )
>

Calculates the determinant of a matrix, whose LR decomposition matrix
"C<$LR_matrix>" must be given (which must be a (quadratic) matrix
returned by the method "decompose_LR()").

In fact the determ
der (called "Rang" in German) of a matrix, whose
LR decomposition matrix "C<$LR_matrix>" must be given (which must
be a (quadratic) matrix returned by the method "decompose_LR()").

This number is a m
CGI-Snapp ( R/RS/RSAVAGE/CGI-Snapp-2.01.tgz, RSAVAGE, 2016; MetaCPAN )
CGI-Snapp/lib/CGI/Snapp.pm ( view source; MetaCPAN )
/new()>.

=head2 redirect($url[, $status])

Interrupts the current request, and redirects to the given (external) $url, optionally setting the HTTP status to $status.

Here, the [] indicate an optiona
Quant-Framework ( B/BI/BINARY/Quant-Framework-0.36.tar.gz, BINARY, 2016; MetaCPAN )
Quant-Framework/lib/Quant/Framework/Asset.pm ( view source; MetaCPAN )

    return $rate;
}

=head2 get_discrete_dividend_for_period

Returns discrete dividend for the given (start,end) dates and dividend recorded date for the underlying specified using `underlying_confi
Genealogy-Gedcom ( R/RS/RSAVAGE/Genealogy-Gedcom-0.88.tgz, RSAVAGE, 2016; MetaCPAN )
Genealogy-Gedcom/lib/Genealogy/Gedcom/Reader/Lexer.pm ( view source; MetaCPAN )
al_name_piece_tags
{
	my($self) = @_;

	return
		(
		 GIVN => sub{return $self -> tag_name_piece_given(shift, shift)},
		 NICK => sub{return $self -> tag_name_piece_nickname(shift, shift)},
		 NOTE =>
Reply ( D/DO/DOY/Reply-0.42.tar.gz, DOY, 2016; MetaCPAN )
Reply/lib/Reply/App.pm ( view source; MetaCPAN )
urns a new Reply::App instance. Takes no arguments.

=head2 run(@argv)

Parses the argument list given (typically from @ARGV), along with the user's configuration file, and attempts to start a Reply s
URI-Query ( G/GA/GAVINC/URI-Query-0.16.tar.gz, GAVINC, 2016; MetaCPAN )
URI-Query/lib/URI/Query.pm ( view source; MetaCPAN )
he current parameter
set.

=item strip_like($regex)

Remove all parameters whose names match the given (qr-quoted) regex e.g.

    $qq->strip_like(qr/^utm/)

Does NOT match against parameter values.


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