Group
Extension

Matches 1309

Text-Keywords ( G/GE/GETTY/Text-Keywords-0.900.tar.gz, GETTY, 2011; MetaCPAN )
Text-Keywords/lib/Text/Keywords/Container.pm ( view source; MetaCPAN )
r my $cur_found (@founds) {
					if ($cur_found->found eq $found_string and @{$cur_found->matches} ~~ @matches) {
						$already_found = 1; last;
					}
				}
				next if $already_found;
				my $found
};
					my $found_cstring = shift @cmatches;
					if ($found_string eq $found_cstring and @matches ~~ @cmatches) {
						delete $secondary_found[$cidx];
					}
					$cidx++;
				}
				push @founds, $s
r my $cur_found (@founds) {
					if ($cur_found->found eq $found_string and @{$cur_found->matches} ~~ @matches) {
						$already_found = 1; last;
					}
				}
				next if $already_found;
				push @fou
WebService-Linode ( S/ST/STANS/WebService-Linode-0.07.tar.gz, STANS, 2012; MetaCPAN )
WebService-Linode/lib/WebService/Linode.pm ( view source; MetaCPAN )

                        return;
                    }
                }
                for my $given ( keys %args ) {
                    if (!first { $_ eq $given }
                        @{ $vali
Parse-USDA-NNDB ( I/IO/IOANR/Parse-USDA-NNDB-0.1.tar.gz, IOANR, 2012; MetaCPAN )
Parse-USDA-NNDB/lib/Parse/USDA/NNDB.pm ( view source; MetaCPAN )
DERIV_CD FOOD_DES NUT_DATA WEIGHT/;
}

sub get_columns_for {
    my ( $self, $table ) = @_;

    given ( $table ) {
        when ( /^FOOD_DES$/i ) {
            return [
                qw/NDB_No FdGr
Text-BSV ( B/BF/BFITCH/Text-BSV-1.04.zip, BFITCH, 2010; MetaCPAN )
Text-BSV/lib/Text/BSV/BsvParsing.pm ( view source; MetaCPAN )
     push @potential_delimiters, $delim;
            } # end if
        } # next $delim

        given (scalar @potential_delimiters) {
            when (0) {
                die Text::BSV::Exception-
n/\\\\/gs;
            $field_name = translate_from_bsv($field_name);

            if ($field_name ~~ @field_names) {
                die Text::BSV::Exception->new(
                  $Text::BSV::Excep
         $INCLUDE_TRAILING_EMPTY_FIELDS;

        for my $piece (@pieces) {
            if ($piece ~~ @field_names) {
                die Text::BSV::Exception->new(
                  $Text::BSV::Excep
Perl-LibExtractor ( M/ML/MLEHMANN/Perl-LibExtractor-1.1.tar.gz, MLEHMANN, 2012; MetaCPAN )
Perl-LibExtractor/LibExtractor.pm ( view source; MetaCPAN )
less $self->{add_require}{$_}++;
   }
}

=item $extractor->add_bin ($name[, $name...])

Adds the given (perl) program(s) to the file set, that is, a program
installed by some perl module, written in p
Getopt-Valid ( U/UK/UKAUTZ/Getopt-Valid-v0.1.4.tar.gz, UKAUTZ, 2012; MetaCPAN )
Getopt-Valid/lib/Getopt/Valid.pm ( view source; MetaCPAN )
rn ; # ignored
            },
            
            # trigger is called if value is defined / given (independent if validated)
            settrigger => sub {
                my ( $value, $name, $v
WebService-UMLSKS-Similarity ( T/TP/TPEDERSE/WebService-UMLSKS-Similarity-0.23.tar.gz, TPEDERSE, 2011; MetaCPAN )
WebService-UMLSKS-Similarity/lib/WebService/UMLSKS/GetAllowablePaths.pm ( view source; MetaCPAN )
_node ( keys %{ $graph{$last_node} } ) {
		#	print "\n link node : $link_node";
			if ( $link_node ~~ @temp_path ) {
			}
			else {
				#msg( "\n link node $link_node not in @temp_path",$verbose);
			
Net-GraphSpace ( I/IR/IRONCAMEL/Net-GraphSpace-0.0009.tar.gz, IRONCAMEL, 2011; MetaCPAN )
Net-GraphSpace/lib/Net/GraphSpace/Types.pm ( view source; MetaCPAN )
es;
use Moose::Util::TypeConstraints;

subtype 'LabelFontWeight'
    => as 'Str'
    => where { $_ ~~ [qw(normal bold)] }
    => message { "$_ is not a valid LabelFontWeight ('bold', 'normal')" };

cl
Dist-Zilla-PluginBundle-RTHOMPSON ( R/RT/RTHOMPSON/Dist-Zilla-PluginBundle-RTHOMPSON-0.120120.tar.gz, RTHOMPSON, 2012; MetaCPAN )
Dist-Zilla-PluginBundle-RTHOMPSON/lib/Dist/Zilla/PluginBundle/RTHOMPSON.pm ( view source; MetaCPAN )
rl_code})) {
        $self->add_plugins('SynopsisTests');
    }

    # Choose release plugin
    given ($args{release}) {
        when (lc eq 'real') {
            $self->add_plugins('UploadToCPAN')
 
his must be after 'NextRelease' so that
    # the Changes file is updated before committing.
    given (lc $args{vcs}) {
        when ('none') {
            # No-op
        }
        when ('git') {
  
Data-Format-HTML ( D/DA/DAMOG/Data-Format-HTML-0.5.1.tar.gz, DAMOG, 2012; MetaCPAN )
Data-Format-HTML/lib/Data/Format/HTML.pm ( view source; MetaCPAN )
le</h2>\n};
	} 

	$output .= $self->_format($var);

}

sub _format {
	my($self, $var) = @_;
			
	given (ref $var) {
		when ('SCALAR')		{ return $self->_format_scalar($var); }
		when ('ARRAY')		{ retur
Net-Lyskom ( C/CD/CDYBED/Net-Lyskom-1.2.tar.gz, CDYBED, 2011; MetaCPAN )
Net-Lyskom/Lyskom.pm ( view source; MetaCPAN )
, type => $type)

Add a recipient to a text. $type can be one of "recpt", "cc" or "bcc". 
If not given (or if set to something other than one of those three
strings) it defaults to "recpt". C<text_no>
Template-Replace ( C/CA/CAUGUSTIN/Template-Replace-0.04.tar.gz, CAUGUSTIN, 2012; MetaCPAN )
Template-Replace/lib/Template/Replace.pm ( view source; MetaCPAN )
ional string; the template is loaded on object creation if
given.

Single delimiter pairs can be given (default delimiters shown), but they have
to be array references with exactly 2 strings; the deli
Perldoc-Server ( J/JO/JONALLEN/Perldoc-Server-0.10.tar.gz, JONALLEN, 2011; MetaCPAN )
Perldoc-Server/lib/Perldoc/Server/Model/Pod.pm ( view source; MetaCPAN )
on')->list) {
    my @section_pages = $self->{c}->model('Section')->pages($section);
    if ($page ~~ @section_pages) {
      return $section;
    }
  }
  return;
}

=head1 NAME

Perldoc::Server::Mode
Operator-Util ( P/PA/PATCH/Operator-Util-0.05.tar.gz, PATCH, 2011; MetaCPAN )
Operator-Util/lib/Operator/Util.pm ( view source; MetaCPAN )
}, res => [undef] },
);

# Perl 5.10 operators
if ($] >= 5.010) {
    $ops{'infix:~~'} = { sub => eval 'sub { $_[0] ~~ $_[1] }', res => [1, 1], chain => 1 };
    $ops{'infix://'} = { sub => eval 'sub 
   # 1    (also for 1 arg)
    eq    # 1    (also for 1 arg)
    ne    # 1    (also for 1 arg)
    ~~    # 1    (also for 1 arg)
    &     # -1   (from ^0, the 2's complement in arbitrary precision)
 
XML-Assert ( C/CH/CHILTS/XML-Assert-0.03.tar.gz, CHILTS, 2010; MetaCPAN )
XML-Assert/lib/XML/Assert.pm ( view source; MetaCPAN )
is node's value : " . $node->string_value() . "\n" if $VERBOSE;
    unless ( $node->string_value() ~~ $match ) {
        die "XPath '$xpath' doesn't match '$match' as expected, instead it is '" . $nod
ode's value : " . $node->string_value() . "\n" if $VERBOSE;
        unless ( $node->string_value() ~~ $match ) {
            die "Elment $i of XPath '$xpath' doesn't match '$match' as expected, instea
 "assert_xpath_value_match: This attr's value : " . $value . "\n" if $VERBOSE;
    unless ( $value ~~ $match ) {
        die "XPath '$xpath', attribute '$attr' doesn't match '$match' as expected, inst
VANAMBURG-Magic ( V/VA/VANAMBURG/VANAMBURG-Magic-0.04.tar.gz, VANAMBURG, 2011; MetaCPAN )
VANAMBURG-Magic/lib/VANAMBURG/SuitSingletonCHaSeD.pm ( view source; MetaCPAN )
t = $self->opposite_suit($self->diamond);

=cut

sub opposite_suit {
	my ( $self, $suit ) = @_;
	given ( $suit->name ) {
		when ( $_ eq $self->spade->name )   { return $self->club; }
		when ( $_ eq $s
ub    = $self->next_suit($self->diamond);
    
=cut

sub next_suit {
	my ( $self, $suit ) = @_;
	given ( $suit->name ) {
		when ( $_ eq $self->club->name )    { return $self->heart; }
		when ( $_ eq $
= $self->previous_suit($self->spade);
    
=cut

sub previous_suit {
	my ( $self, $suit ) = @_;
	given ( $suit->name ) {
		when ( $_ eq $self->club->name )    { return $self->diamond; }
		when ( $_ eq
VANAMBURG-Magic ( V/VA/VANAMBURG/VANAMBURG-Magic-0.04.tar.gz, VANAMBURG, 2011; MetaCPAN )
VANAMBURG-Magic/lib/VANAMBURG/SuitSingletonSHoCkeD.pm ( view source; MetaCPAN )
t = $self->opposite_suit($self->diamond);

=cut

sub opposite_suit {
	my ( $self, $suit ) = @_;
	given ( $suit->name ) {
		when ( $_ eq $self->spade->name )   { return $self->club; }
		when ( $_ eq $s
spade = $self->next_suit($self->diamond);
    
=cut

sub next_suit {
	my ( $self, $suit ) = @_;
	given ( $suit->name ) {
		when ( $_ eq $self->spade->name )   { return $self->heart; }
		when ( $_ eq $
= $self->previous_suit($self->spade);
    
=cut

sub previous_suit {
	my ( $self, $suit ) = @_;
	given ( $suit->name ) {
		when ( $_ eq $self->spade->name )   { return $self->diamond; }
		when ( $_ eq
VANAMBURG-Magic ( V/VA/VANAMBURG/VANAMBURG-Magic-0.04.tar.gz, VANAMBURG, 2011; MetaCPAN )
VANAMBURG-Magic/lib/VANAMBURG/BCS.pm ( view source; MetaCPAN )
next card in the BCS system.

=cut

sub calc_suit {
	my ( $self, $prev_card, $new_value ) = @_;
	given ( $new_value->value ) {
		when ( [ 1, 2, 3 ] ) { return $prev_card->suit; }
		when ( [ 4, 5, 6 ] 
Bio-Protease ( B/BR/BRUNOV/Bio-Protease-1.112980.tar.gz, BRUNOV, 2011; MetaCPAN )
Bio-Protease/lib/Bio/ProteaseI.pm ( view source; MetaCPAN )
b _cap_head { return 'XXX' . shift }

sub _uncap { s/X//g for @_ }

sub _looks_like_string { $_[0] ~~ /[a-z]+/i }

sub cleavage_sites {
    my ( $self, $substrate ) = @_;

    croak "Incorrect substra
Bio-Protease ( B/BR/BRUNOV/Bio-Protease-1.112980.tar.gz, BRUNOV, 2011; MetaCPAN )
Bio-Protease/lib/Bio/Protease/Types.pm ( view source; MetaCPAN )
= Bio::Protease->Specificities;

    croak "Not a known specificity\n"
        unless $specificity ~~ %$specificity_of;

    return $specificity_of->{$specificity};
}

__PACKAGE__->meta->make_immutabl

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