Result:
found more than 917 distributions - search limited to the first 2001 files matching your query
( run in 1.753 )
BenchmarkAnything-Storage-Search-Elasticsearch
view release on metacpan or search on metacpan
lib/BenchmarkAnything/Storage/Search/Elasticsearch.pm view on Meta::CPAN
my $i_ba_offset = $hr_ba_query->{offset}; # done
my $ar_ba_order_by = $hr_ba_query->{order_by}; # done
my @must_ranges;
my @must_matches;
my @must_not_matches;
my @should_matches;
my %source_fields = (
NAME => 1,
UNIT => 1,
VALUE => 1,
lib/BenchmarkAnything/Storage/Search/Elasticsearch.pm view on Meta::CPAN
);
my %match_operator =
(
'=' => 1,
);
my %not_match_operator =
(
'!=' => 1,
);
my %empty_match_operator =
(
lib/BenchmarkAnything/Storage/Search/Elasticsearch.pm view on Meta::CPAN
);
my %wildcard_match_operator =
(
'like' => 1,
);
my %wildcard_not_match_operator =
(
'not like' => 1, # deprecated
'not_like' => 1,
);
foreach my $w (@{ $ar_ba_where || [] })
{
my $op = $w->[0]; # operator
my $k = $w->[1]; # key
lib/BenchmarkAnything/Storage/Search/Elasticsearch.pm view on Meta::CPAN
push @should_matches, { match => { $k => $_ } } foreach @v;
} else {
push @must_matches, { match => { $k => $v[0] } };
}
}
elsif ($es_op = $not_match_operator{$op})
{
push @must_not_matches, { match => { $k => $_ } } foreach @v;
}
elsif ($es_op = $wildcard_match_operator{$op})
{
my $es_v = $v[0];
$es_v =~ s/%/*/g;
lib/BenchmarkAnything/Storage/Search/Elasticsearch.pm view on Meta::CPAN
# field is NOT EMPTY: [ "is_empty", "some_field_name", 0 ]
push @must_matches, { wildcard => { $k => '*' } };
} elsif (@v and $v[0] == 2) {
# field is EMPTY but exists (ie. not undefined): [ "is_empty", "some_field_name", 2 ]
push @must_not_matches, { wildcard => { $k => '*' } };
push @must_matches, { exists => { field => $k } };
} elsif (not @v or $v[0] == 1) {
# field is EMPTY or UNDEFINED/NULL: [ "is_empty", "some_field_name", 1 ] or [ "is_empty", "some_field_name" ]
push @must_not_matches, { wildcard => { $k => '*' } };
} else {
# we might invent other semantics so we better warn about
# what could once become meaningful.
warn "unclear 'is_empty' condition (".$v[0]."). Interpreting as 'is_empty' condition (1).";
push @must_not_matches, { wildcard => { $k => '*' } };
}
}
elsif ($es_op = $wildcard_not_match_operator{$op})
{
my $es_v = $v[0];
$es_v =~ s/%/*/g;
push @must_not_matches, { wildcard => { $k => $es_v } };
}
else
{
warn "_get_elasticsearch_query: Unsupported operator: $op\n";
return;
}
}
$hr_es_query = { query => { bool => {
(@must_matches||@must_ranges ? (must => [ @must_ranges, @must_matches ]) : ()),
(@must_not_matches ? (must_not => [ @must_not_matches ]) : ()),
(@should_matches ? (should => [ @should_matches ],minimum_should_match => 1) : ()),
},
},
%from,
%size,
BerkeleyDB-Easy
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use warnings FATAL => 'all';
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/BerkeleyDB/Easy.pm');
BerkeleyDB
view release on metacpan or search on metacpan
__ASSERT_|5.019007|5.008008|p
ASSERT_CURPAD_ACTIVE|5.008001||Viu
ASSERT_CURPAD_LEGAL|5.008001||Viu
ASSERT_IS_LITERAL|||Viu
ASSERT_IS_PTR|||Viu
assert_not_glob|5.009004||Viu
ASSERT_NOT_PTR|5.035004||Viu
assert_not_ROK|5.008001||Viu
assert_uft8_cache_coherent|5.013003||Viu
assignment_type|5.021005||Viu
ASSUME|5.019006|5.003007|p
atfork_lock|5.007003|5.007003|nu
atfork_unlock|5.007003|5.007003|nu
noperl_die|5.021006||vVniu
NORETURN_FUNCTION_END|5.009003||Viu
NORMAL|5.003007||Viu
NOSTR|5.027010||Viu
NO_TAINT_SUPPORT|5.017006||Viu
not_a_number|5.005000||Viu
NOTE3|5.027001||Viu
NOTHING|5.003007||Viu
NOTHING_t8|5.035004||Viu
NOTHING_t8_p8|5.033003||Viu
NOTHING_t8_pb|5.033003||Viu
NOTHING_tb|5.035004||Viu
NOTHING_tb_p8|5.033003||Viu
NOTHING_tb_pb|5.033003||Viu
nothreadhook|5.008000|5.008000|
notify_parser_that_changed_to_utf8|5.025010||Viu
not_incrementable|5.021002||Viu
NOT_IN_PAD|5.005000||Viu
NOT_REACHED|5.019006|5.003007|poVnu
NPOSIXA|5.017003||Viu
NPOSIXA_t8|5.035004||Viu
NPOSIXA_t8_p8|5.033003||Viu
WHILEM_t8_pb|5.033003||Viu
WHILEM_tb|5.035004||Viu
WHILEM_tb_p8|5.033003||Viu
WHILEM_tb_pb|5.033003||Viu
WIDEST_UTYPE|5.015004|5.003007|poVnu
win32_croak_not_implemented|5.017006||Vniu
WIN32SCK_IS_STDSCK|5.007001||Viu
win32_setlocale|5.027006||Viu
withinCOUNT|5.031004||Viu
withinCOUNT_KNOWN_VALID|5.033005||Viu
WITH_LC_NUMERIC_SET_TO_NEEDED|5.031003|5.031003|
# include <patchlevel.h>
# endif
# if ! defined(PERL_VERSION) \
&& ! defined(PERL_VERSION_MAJOR) \
&& ( ! defined(SUBVERSION) || ! defined(PATCHLEVEL) )
# include <could_not_find_Perl_patchlevel.h>
# endif
#endif
#ifdef PERL_VERSION_MAJOR
# define D_PPP_MAJOR PERL_VERSION_MAJOR
Best
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open my $fh, "<", $filename
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
} else {
pass("$filename contains no boilerplate text");
}
}
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
Biblio-COUNTER
view release on metacpan or search on metacpan
lib/Biblio/COUNTER.pm view on Meta::CPAN
If set to a true value, a blank cell where a count was expected is
treated as if it contained a zero; otherwise, blank counts are silently
ignored (the default).
=item B<change_not_available_to_blank>
If set to a true value (the default), the value C<n/a>) in a count
field will be changed to the empty string. It will B<never> be treated
as if it were zero, regardless of the B<treat_blank_counts_as_zero>
setting.
Biblio-Citation-Parser
view release on metacpan or search on metacpan
docs/html/troubleshooting.html view on Meta::CPAN
<li><a href="#troubleshooting">Troubleshooting</a></li>
<li><a href="#reference_parsing">Reference Parsing</a></li>
<ul>
<li><a href="#reference_does_not_parse_correctly">Reference does not parse correctly</a></li>
</ul>
</ul>
<!-- INDEX END -->
docs/html/troubleshooting.html view on Meta::CPAN
</p>
<hr />
<h1><a name="reference_parsing">Reference Parsing</a></h1>
<p>
</p>
<h2><a name="reference_does_not_parse_correctly">Reference does not parse correctly</a></h2>
<p>If you are using the Standard parsing module, make sure that a template for the reference exists in the package. See the HOWTO for more information on how to do this. If you are using a contributed module, please email your query to the author of ...
<table border="0" width="100%" cellspacing="0" cellpadding="3">
<tr><td class="block" valign="middle">
<big><strong><span class="block"> Biblio::Citation::Parser 1.10 Documentation - Troubleshooting</span></strong></big>
</td></tr>
Biblio-ILL-ISO
view release on metacpan or search on metacpan
lib/Biblio/ILL/ISO/ISODate.pm view on Meta::CPAN
-- YYYYMMDD
=cut
#
# NOTE that an ISO-Date _is_not_ an ILL-String!
# ...but I've already got ILLString built, so we'll just
# inherit and tweak...
#
=head1 METHODS
Biblio-RFID
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Biblio/RFID.pm');
Biblio-Zotero-DB
view release on metacpan or search on metacpan
lib/Biblio/Zotero/DB/Schema/Result/StoredItemAttachment.pm view on Meta::CPAN
# ->get_column('itemid')
# ->as_query;
# $schema
# ->resultset('ItemAttachment')
# ->search(
# { -and => [ { itemid => { -not_in => $deleted } },
# { -or => [ { sourceitemid => undef },
# { sourceitemid => { -not_in => $deleted } }] }
# ] }
# )->as_query
# ####
# the clause checking the sourceitemid is for when only the source item is
# marked as deleted, but the attachment is not
Big5
view release on metacpan or search on metacpan
lib/Big5.pm view on Meta::CPAN
Before After
--------------------------------------------------------------------------------
m/...MULTIOCT+.../ m/...(?:MULTIOCT)+.../
m/...[AN-EM].../ m/...(?:A[N-Z]|[B-D][A-Z]|E[A-M]).../
m/...\D.../ m/...(?:${Ebig5::eD}).../
m/...[[:^digit:]].../ m/...(?:${Ebig5::not_digit}).../
--------------------------------------------------------------------------------
=head1 Calling 'Ebig5::ignorecase()' (Big5 software provides)
Big5 software applies calling 'Ebig5::ignorecase()' instead of /i modifier.
lib/Big5.pm view on Meta::CPAN
[:space:] [\s\x0B]
[:upper:] [\x41-\x5A]
[\x41-\x5A\x61-\x7A] (/i modifier)
[:word:] [\x30-\x39\x41-\x5A\x5F\x61-\x7A]
[:xdigit:] [\x30-\x39\x41-\x46\x61-\x66]
[:^alnum:] ${Ebig5::not_alnum}
[:^alpha:] ${Ebig5::not_alpha}
[:^ascii:] ${Ebig5::not_ascii}
[:^blank:] ${Ebig5::not_blank}
[:^cntrl:] ${Ebig5::not_cntrl}
[:^digit:] ${Ebig5::not_digit}
[:^graph:] ${Ebig5::not_graph}
[:^lower:] ${Ebig5::not_lower}
${Ebig5::not_lower_i} (/i modifier)
[:^print:] ${Ebig5::not_print}
[:^punct:] ${Ebig5::not_punct}
[:^space:] ${Ebig5::not_space}
[:^upper:] ${Ebig5::not_upper}
${Ebig5::not_upper_i} (/i modifier)
[:^word:] ${Ebig5::not_word}
[:^xdigit:] ${Ebig5::not_xdigit}
---------------------------------------------------------------
\b and \B are redefined as follows to backward compatibility.
---------------------------------------------------------------
lib/Big5.pm view on Meta::CPAN
${Ebig5::eW} qr{(?>[^\x81-\xFE0-9A-Z_a-z]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::eH} qr{(?>[^\x81-\xFE\x09\x20]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::eV} qr{(?>[^\x81-\xFE\x0A\x0B\x0C\x0D]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::eR} qr{(?>\x0D\x0A|[\x0A\x0D])};
${Ebig5::eN} qr{(?>[^\x81-\xFE\x0A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_alnum} qr{(?>[^\x81-\xFE\x30-\x39\x41-\x5A\x61-\x7A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_alpha} qr{(?>[^\x81-\xFE\x41-\x5A\x61-\x7A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_ascii} qr{(?>[^\x81-\xFE\x00-\x7F]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_blank} qr{(?>[^\x81-\xFE\x09\x20]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_cntrl} qr{(?>[^\x81-\xFE\x00-\x1F\x7F]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_digit} qr{(?>[^\x81-\xFE\x30-\x39]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_graph} qr{(?>[^\x81-\xFE\x21-\x7F]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_lower} qr{(?>[^\x81-\xFE\x61-\x7A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_lower_i} qr{(?>[^\x81-\xFE\x41-\x5A\x61-\x7A]|[\x81-\xFE][\x00-\xFF])}; # Perl 5.16 compatible
# ${Ebig5::not_lower_i} qr{(?>[^\x81-\xFE]|[\x81-\xFE][\x00-\xFF])}; # older Perl compatible
${Ebig5::not_print} qr{(?>[^\x81-\xFE\x20-\x7F]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_punct} qr{(?>[^\x81-\xFE\x21-\x2F\x3A-\x3F\x40\x5B-\x5F\x60\x7B-\x7E]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_space} qr{(?>[^\x81-\xFE\s\x0B]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_upper} qr{(?>[^\x81-\xFE\x41-\x5A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_upper_i} qr{(?>[^\x81-\xFE\x41-\x5A\x61-\x7A]|[\x81-\xFE][\x00-\xFF])}; # Perl 5.16 compatible
# ${Ebig5::not_upper_i} qr{(?>[^\x81-\xFE]|[\x81-\xFE][\x00-\xFF])}; # older Perl compatible
${Ebig5::not_word} qr{(?>[^\x81-\xFE\x30-\x39\x41-\x5A\x5F\x61-\x7A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5::not_xdigit} qr{(?>[^\x81-\xFE\x30-\x39\x41-\x46\x61-\x66]|[\x81-\xFE][\x00-\xFF])};
# This solution is not perfect. I beg better solution from you who are reading this.
${Ebig5::eb} qr{(?:\A(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[0-9A-Z_a-z])|(?<=[0-9A-Z_a-z])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]|\z))};
${Ebig5::eB} qr{(?:(?<=[0-9A-Z_a-z])(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]))};
---------------------------------------------------------------------------------------------------------------------------------------------------------
Big5HKSCS
view release on metacpan or search on metacpan
lib/Big5HKSCS.pm view on Meta::CPAN
Before After
--------------------------------------------------------------------------------
m/...MULTIOCT+.../ m/...(?:MULTIOCT)+.../
m/...[AN-EM].../ m/...(?:A[N-Z]|[B-D][A-Z]|E[A-M]).../
m/...\D.../ m/...(?:${Ebig5hkscs::eD}).../
m/...[[:^digit:]].../ m/...(?:${Ebig5hkscs::not_digit}).../
--------------------------------------------------------------------------------
=head1 Calling 'Ebig5hkscs::ignorecase()' (Big5HKSCS software provides)
Big5HKSCS software applies calling 'Ebig5hkscs::ignorecase()' instead of /i modifier.
lib/Big5HKSCS.pm view on Meta::CPAN
[:space:] [\s\x0B]
[:upper:] [\x41-\x5A]
[\x41-\x5A\x61-\x7A] (/i modifier)
[:word:] [\x30-\x39\x41-\x5A\x5F\x61-\x7A]
[:xdigit:] [\x30-\x39\x41-\x46\x61-\x66]
[:^alnum:] ${Ebig5hkscs::not_alnum}
[:^alpha:] ${Ebig5hkscs::not_alpha}
[:^ascii:] ${Ebig5hkscs::not_ascii}
[:^blank:] ${Ebig5hkscs::not_blank}
[:^cntrl:] ${Ebig5hkscs::not_cntrl}
[:^digit:] ${Ebig5hkscs::not_digit}
[:^graph:] ${Ebig5hkscs::not_graph}
[:^lower:] ${Ebig5hkscs::not_lower}
${Ebig5hkscs::not_lower_i} (/i modifier)
[:^print:] ${Ebig5hkscs::not_print}
[:^punct:] ${Ebig5hkscs::not_punct}
[:^space:] ${Ebig5hkscs::not_space}
[:^upper:] ${Ebig5hkscs::not_upper}
${Ebig5hkscs::not_upper_i} (/i modifier)
[:^word:] ${Ebig5hkscs::not_word}
[:^xdigit:] ${Ebig5hkscs::not_xdigit}
---------------------------------------------------------------
\b and \B are redefined as follows to backward compatibility.
---------------------------------------------------------------
lib/Big5HKSCS.pm view on Meta::CPAN
${Ebig5hkscs::eW} qr{(?>[^\x81-\xFE0-9A-Z_a-z]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::eH} qr{(?>[^\x81-\xFE\x09\x20]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::eV} qr{(?>[^\x81-\xFE\x0A\x0B\x0C\x0D]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::eR} qr{(?>\x0D\x0A|[\x0A\x0D])};
${Ebig5hkscs::eN} qr{(?>[^\x81-\xFE\x0A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_alnum} qr{(?>[^\x81-\xFE\x30-\x39\x41-\x5A\x61-\x7A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_alpha} qr{(?>[^\x81-\xFE\x41-\x5A\x61-\x7A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_ascii} qr{(?>[^\x81-\xFE\x00-\x7F]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_blank} qr{(?>[^\x81-\xFE\x09\x20]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_cntrl} qr{(?>[^\x81-\xFE\x00-\x1F\x7F]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_digit} qr{(?>[^\x81-\xFE\x30-\x39]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_graph} qr{(?>[^\x81-\xFE\x21-\x7F]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_lower} qr{(?>[^\x81-\xFE\x61-\x7A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_lower_i} qr{(?>[^\x81-\xFE\x41-\x5A\x61-\x7A]|[\x81-\xFE][\x00-\xFF])}; # Perl 5.16 compatible
# ${Ebig5hkscs::not_lower_i} qr{(?>[^\x81-\xFE]|[\x81-\xFE][\x00-\xFF])}; # older Perl compatible
${Ebig5hkscs::not_print} qr{(?>[^\x81-\xFE\x20-\x7F]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_punct} qr{(?>[^\x81-\xFE\x21-\x2F\x3A-\x3F\x40\x5B-\x5F\x60\x7B-\x7E]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_space} qr{(?>[^\x81-\xFE\s\x0B]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_upper} qr{(?>[^\x81-\xFE\x41-\x5A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_upper_i} qr{(?>[^\x81-\xFE\x41-\x5A\x61-\x7A]|[\x81-\xFE][\x00-\xFF])}; # Perl 5.16 compatible
# ${Ebig5hkscs::not_upper_i} qr{(?>[^\x81-\xFE]|[\x81-\xFE][\x00-\xFF])}; # older Perl compatible
${Ebig5hkscs::not_word} qr{(?>[^\x81-\xFE\x30-\x39\x41-\x5A\x5F\x61-\x7A]|[\x81-\xFE][\x00-\xFF])};
${Ebig5hkscs::not_xdigit} qr{(?>[^\x81-\xFE\x30-\x39\x41-\x46\x61-\x66]|[\x81-\xFE][\x00-\xFF])};
# This solution is not perfect. I beg better solution from you who are reading this.
${Ebig5hkscs::eb} qr{(?:\A(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[0-9A-Z_a-z])|(?<=[0-9A-Z_a-z])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]|\z))};
${Ebig5hkscs::eB} qr{(?:(?<=[0-9A-Z_a-z])(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]))};
---------------------------------------------------------------------------------------------------------------------------------------------------------
BigIP-ParseConfig
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/BigIP/ParseConfig.pm');
BigIP-iControl
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use 5.006;
use strict;
use warnings;
use Test::More tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/BigIP/iControl.pm');
Bigtop
view release on metacpan or search on metacpan
lib/Bigtop/Backend/Diagram/GraphvizSql.pm view on Meta::CPAN
}
sub skip_this_table {
my $self = shift;
if ( $self->{__TYPE__} eq 'not_for' ) {
my $skipped_backends = $self->{__ARGS__};
foreach my $spurned ( @{ $skipped_backends } ) {
return [ 1 ] if $spurned eq 'Diagram';
}
}
lib/Bigtop/Backend/Diagram/GraphvizSql.pm view on Meta::CPAN
}
sub skip_this_field {
my $self = shift;
if ( $self->get_name() eq 'not_for' ) {
my $skipped_backends = $self->{__DEF__}{__ARGS__};
foreach my $spurned ( @{ $skipped_backends } ) {
return [ 1 ] if $spurned eq 'Diagram';
}
}
Bijection-XS
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Bijection/XS.pm');
Bijection
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Bijection.pm');
Bin-TSV-Util
view release on metacpan or search on metacpan
scripts/colpairs view on Meta::CPAN
my @diag = map { scalar keys %{ $pf -> [$_][$_]}} 0 .. $cols -1 ;
# 出力表ã®è¡¨é
my @out = ( ( BOLD 'undec' ) , map { UNDERLINE $_ } 1 .. $cols ) ;
push @out , UNDERLINE YELLOW 'col_' . ($o{'='} ? 'name' : 'num') ;
push @out , UNDERLINE('value_not_determining_other_column_value') if 0.9 < ($o{v}//'1') ;
say join "\t" , @out ;
# 出力表ã®å„è¡Œ
my $cell ; # $cell -> [] []
for my $i ( 0 .. $cols - 1 ) {
BingoX
view release on metacpan or search on metacpan
lib/BingoX/Chromium.pm view on Meta::CPAN
=item [4] Field Options
A hash reference containing special options for this field. The options include:
not_null - this field cannot be NULL
=item [5] Sanity Methods
This is a list reference. Each item in the list is either a string with a
sanity method name, or a list ref containing the method name, then any parameters
lib/BingoX/Chromium.pm view on Meta::CPAN
my $ui = $self->ui;
return undef if ($self->fieldtype($field) eq 'hidden');
## Is this field required? (i.e. not null?) ##
my $req = %{$self->fieldoptions($field) || { }}->{not_null} || 0;
if (($self->fieldtype($field) eq 'row')) {
print $self->$field();
} elsif ($self->fieldtype($field) eq 'textarea') {
print $q->Tr({ },
lib/BingoX/Chromium.pm view on Meta::CPAN
foreach (keys %$fields) {
my $qfieldname = $self->qfieldname( $_ );
my $foptions = $self->fieldoptions( $_ );
my $qoptions = $self->fieldhtmloptions( $_ ) || { };
# if (!$foptions->{not_null} && ($q->param( $qfieldname ) =~ /^NULL$/i)) {
# warn "Null option selected.";
# $q->param( $qfieldname, undef );
# last;
# }
if ($self->fieldrelclass( $_ )) {
lib/BingoX/Chromium.pm view on Meta::CPAN
my $qfield;
## Step through each field, calling all the necessary sanity methods ##
foreach my $field (@{ $self->fieldlist }) {
my $sanity = $self->fieldsanity( $field );
my $req = %{ $self->fieldoptions( $field ) || { } }->{'not_null'} || 0;
unless (ref($sanity) eq 'ARRAY' || $req) {
warn "BingoX::Chromium::fieldsanity('$field') is not an array ref\n" if ($debug);
next;
}
lib/BingoX/Chromium.pm view on Meta::CPAN
## get all of the objects with get_list_hash. ##
} else {
my $hashref = $relclass->get_list_hash( $self->dbh );
## Allows null value for popups ##
if (!$foptions->{'not_null'} && $foptions->{'null_label'}) {
$hashref->{'NULL'} = $foptions->{'null_label'};
}
# ## if the displaymode isn't add, then highlite the already related objects. ##
# my $selected = ($self->displaymode eq 'add')
lib/BingoX/Chromium.pm view on Meta::CPAN
Removed spurious comments.
Revision 1.33 2000/03/14 20:58:10 dougw
Modified HTML_popup to allow a NULL selection. Use the fieldoption -null_label
to specify what you want the option to be named. The option must not have the
-not_null option set for obvious reasons.
Revision 1.32 2000/03/10 01:57:54 colin
made display_list()'s hash sorter even cooler (thanks doug)
Revision 1.31 2000/03/10 01:18:02 colin
lib/BingoX/Chromium.pm view on Meta::CPAN
allows you to override default settings (and add others) when calling the method, as
opposed to calling SUPER::ui() and then re-setting the resulting hashref.
Revision 1.22 2000/02/08 03:34:31 zack
- documented the %fields class variable
- added not_null to field options (index [4])
- implemented flexible sanity checking
- added sane_regex()
- added sane_minlength() and sane_maxlength()
- updated docs for fieldoptions() and fieldsanity()
- HTML_textarea(): 'WRAP' defaults to 'VIRTUAL'
Bio-BPWrapper
view release on metacpan or search on metacpan
lib/Bio/BPWrapper/TreeManipulations.pm view on Meta::CPAN
sub reorder_by_ref {
die "reference node id missing\n" unless $opts{'ref'};
my $id = 0;
&_flip_if_not_in_top_clade($rootnode, $opts{'ref'}, \$id);
$print_tree = 1;
}
sub _flip_if_not_in_top_clade { # by resetting creation_id & sortby option of each_Descendent
my ($nd, $ref, $refid) = @_;
$nd->_creation_id($$refid++);
# print STDERR $nd->internal_id(), ":\t";
if ($nd->is_Leaf()) {
# print STDERR "\n";
lib/Bio/BPWrapper/TreeManipulations.pm view on Meta::CPAN
# print STDERR $_->internal_id(), ";";
}
# print STDERR "\n";
my @des_new = $nd->each_Descendent('creation'); # key sort function!!
foreach my $de (@des_new) {
&_flip_if_not_in_top_clade($de, $opts{'ref'}, $refid);
}
}
# trim a node to a single OTU representative if all branch lengths of its descendant OTUs <= $cut
Bio-Biblio
view release on metacpan or search on metacpan
lib/Bio/Biblio/BiblioBase.pm view on Meta::CPAN
our $AUTOLOAD;
sub _accessible { shift->throw_not_implemented(); }
sub _attr_type { shift->throw_not_implemented(); }
sub AUTOLOAD {
my ($self, $newval) = @_;
if ($AUTOLOAD =~ /.*::(\w+)/ && $self->_accessible ("_$1")) {
Bio-BioStudio
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
|| croak "couldn't open $filename for reading: $OS_ERROR";
my %violated;
t/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Bio/BioStudio.pm');
module_boilerplate_ok('lib/Bio/BioStudio/BLAST.pm');
Bio-CIPRES
view release on metacpan or search on metacpan
t/02-boilerplate.t view on Meta::CPAN
use warnings FATAL => 'all';
use Test::More;
plan tests => 3;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
t/02-boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok('README.md' =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Bio/CIPRES.pm');
Bio-CUA
view release on metacpan or search on metacpan
xt/boilerplate.t view on Meta::CPAN
use warnings;
use Test::More;
plan tests => 5;
sub not_in_file_ok {
my ($filename, %regex) = @_;
open( my $fh, '<', $filename )
or die "couldn't open $filename for reading: $!";
my %violated;
xt/boilerplate.t view on Meta::CPAN
}
}
sub module_boilerplate_ok {
my ($module) = @_;
not_in_file_ok($module =>
'the great new $MODULENAME' => qr/ - The great new /,
'boilerplate description' => qr/Quick summary of what the module/,
'stub function definition' => qr/function[12]/,
);
}
TODO: {
local $TODO = "Need to replace the boilerplate text";
not_in_file_ok(README =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
module_boilerplate_ok('lib/Bio/CUA/CUB/Builder.pm');
module_boilerplate_ok('lib/Bio/CUA/CUB/Calculator.pm');
Bio-Cluster
view release on metacpan or search on metacpan
lib/Bio/Cluster/FamilyI.pm view on Meta::CPAN
Args : the family id
=cut
sub family_id{
shift->throw_not_implemented();
}
=head2 family_score
Title : family_score
lib/Bio/Cluster/FamilyI.pm view on Meta::CPAN
Args : the score
=cut
sub family_score {
shift->throw_not_implemented();
}
=head1 Methods inherited from L<Bio::ClusterI>
Bio-Community
view release on metacpan or search on metacpan
lib/Bio/Community/IO.pm view on Meta::CPAN
A positive number (or undef)
=cut
method next_member () {
$self->throw_not_implemented;
}
=head2 next_community
lib/Bio/Community/IO.pm view on Meta::CPAN
}
method _next_community_init () {
# Driver-side method to initialize new community and return its name
$self->throw_not_implemented;
}
method _next_community_finish () {
# Driver-side method to finalize a community
$self->throw_not_implemented;
}
=head2 next_metacommunity
lib/Bio/Community/IO.pm view on Meta::CPAN
}
method _next_metacommunity_init () {
# Driver-side method to initialize new metacommunity and return its name
$self->throw_not_implemented;
}
method _next_metacommunity_finish () {
# Driver-side method to finalize reading a metacommunity
$self->throw_not_implemented;
}
=head2 write_member
lib/Bio/Community/IO.pm view on Meta::CPAN
Returns : 1 for success
=cut
method write_member (Bio::Community::Member $member, Count $count) {
$self->throw_not_implemented;
}
=head2 write_community
lib/Bio/Community/IO.pm view on Meta::CPAN
}
method _write_community_init (Bio::Community $community) {
# Driver-side method to initialize writing a community
$self->throw_not_implemented;
}
method _write_community_finish (Bio::Community $community) {
# Driver-side method to finalize writing a community
$self->throw_not_implemented;
}
=head2 write_metacommunity
lib/Bio/Community/IO.pm view on Meta::CPAN
}
method _write_metacommunity_init (Bio::Community::Meta $meta) {
# Driver-side method to initialize writing a metacommunity
$self->throw_not_implemented;
}
method _write_metacommunity_finish (Bio::Community::Meta $meta) {
# Driver-side method to finalize writing a metacommunity
$self->throw_not_implemented;
}
before 'close' => sub {
my $self = shift;
Bio-ConnectDots
view release on metacpan or search on metacpan
lib/Bio/ConnectDots/ConnectorSet/HG_Focus_annot_csv.pm view on Meta::CPAN
package Bio::ConnectDots::ConnectorSet::HG_Focus_annot_csv;
use strict;
use vars qw(@ISA);
use Bio::ConnectDots::ConnectorSet;
@ISA = qw(Bio::ConnectDots::ConnectorSet);
Bio-Coordinate
view release on metacpan or search on metacpan
lib/Bio/Coordinate/MapperI.pm view on Meta::CPAN
sub in {
my ($self,$value) = @_;
$self->throw_not_implemented();
}
sub out {
my ($self,$value) = @_;
$self->throw_not_implemented();
}
sub swap {
my ($self) = @_;
$self->throw_not_implemented();
}
sub test {
my ($self) = @_;
$self->throw_not_implemented();
}
sub map {
my ($self,$value) = @_;
$self->throw_not_implemented();
}
sub return_match {
Bio-DB-Big
view release on metacpan or search on metacpan
# (They're explicitly set by the user, so we shouldn't fall back to
# finding another copy somewhere else.)
if ( my $dir = $self->args('libbigwig') ) {
return 1 if $self->find_libbigwig_in_build_dir($dir);
return 1 if $self->find_libbigwig_in_install_dir($dir);
$self->die_libbigwig_not_found(
"--libbigwig '$dir' command line parameter does not contain expected files\n"
);
}
elsif ( $dir = $ENV{'LIBBIGWIG_DIR'} ) {
return 1 if $self->find_libbigwig_in_build_dir($dir);
return 1 if $self->find_libbigwig_in_install_dir($dir);
$self->die_libbigwig_not_found(
"LIGBIGWIG_DIR=$ENV{LIBBIGWIG_DIR} environment variable does not contain expected files\n"
);
}
# Search through remaining possible (but not fatal) locations:
last;
}
}
return 1 if $found;
$self->die_libbigwig_not_found();
}
sub set_include_and_compiler_flags {
my ($self) = @_;
else {
return 0;
}
}
sub die_libbigwig_not_found {
my ( $self, $msg ) = @_;
$msg ||= '';
die $msg, <<END;
Bio-DB-Das-Chado
view release on metacpan or search on metacpan
lib/Bio/DB/Das/Chado.pm view on Meta::CPAN
=cut
sub types {
my $self = shift;
my ($enumerate) = $self->_rearrange([qw(ENUMERATE)],@_);
$self->throw_not_implemented;
#if lincoln didn't need to implement it, neither do I!
}
=head2 get_feature_by_alias, get_features_by_alias
Bio-DB-HTS
view release on metacpan or search on metacpan
# (They're explicitly set by the user, so we shouldn't fall back to
# finding another copy somewhere else.)
if (my $dir = $self->args('htslib')) {
return 1 if $self->find_hts_in_build_dir($dir);
return 1 if $self->find_hts_in_install_dir($dir);
$self->die_hts_not_found(
"--htslib '$dir' command line parameter does not contain expected files\n"
);
}
elsif ($dir = $ENV{'HTSLIB_DIR'}) {
return 1 if $self->find_hts_in_build_dir($dir);
return 1 if $self->find_hts_in_install_dir($dir);
$self->die_hts_not_found(
"HTSLIB_DIR=$ENV{HTSLIB_DIR} environment variable does not contain expected files\n"
);
}
# Search through remaining possible (but not fatal) locations:
last;
}
}
return 1 if $found;
$self->die_hts_not_found();
}
sub set_include_and_compiler_flags {
my ($self) = @_;
else {
return 0;
}
}
sub die_hts_not_found {
my ($self, $msg) = @_;
$msg ||= '';
die $msg, <<END;
( run in 1.753 second using v1.01-cache-2.11-cpan-0a987023a57 )