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
return;
}
}
for my $given ( keys %args ) {
if (!first { $_ eq $given }
@{ $vali
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
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
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
rn ; # ignored
},
# trigger is called if value is defined / given (independent if validated)
settrigger => sub {
my ( $value, $name, $v
_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);
es;
use Moose::Util::TypeConstraints;
subtype 'LabelFontWeight'
=> as 'Str'
=> where { $_ ~~ [qw(normal bold)] }
=> message { "$_ is not a valid LabelFontWeight ('bold', 'normal')" };
cl
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') {
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
, 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>
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
on')->list) {
my @section_pages = $self->{c}->model('Section')->pages($section);
if ($page ~~ @section_pages) {
return $section;
}
}
return;
}
=head1 NAME
Perldoc::Server::Mode
}, 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)
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
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
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
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 ]
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->Specificities;
croak "Not a known specificity\n"
unless $specificity ~~ %$specificity_of;
return $specificity_of->{$specificity};
}
__PACKAGE__->meta->make_immutabl