view release on metacpan or search on metacpan
share/public_html/static/music_inc/src/dr_flac.h view on Meta::CPAN
The number of bytes actually read.
Remarks
-------
A return value of less than bytesToRead indicates the end of the stream. Do _not_ return from this callback until either the entire bytesToRead is filled or
you have reached the end of the stream.
*/
typedef size_t (* drflac_read_proc)(void* pUserData, void* pBufferOut, size_t bytesToRead);
/*
share/public_html/static/music_inc/src/dr_flac.h view on Meta::CPAN
return r;
}
#endif
#if defined(DRFLAC_SUPPORT_SSE41)
static DRFLAC_INLINE __m128i drflac__mm_not_si128(__m128i a)
{
return _mm_xor_si128(a, _mm_cmpeq_epi32(_mm_setzero_si128(), _mm_setzero_si128()));
}
static DRFLAC_INLINE __m128i drflac__mm_hadd_epi32(__m128i x)
share/public_html/static/music_inc/src/dr_flac.h view on Meta::CPAN
zeroCountPart128 = _mm_set_epi32(zeroCountParts3, zeroCountParts2, zeroCountParts1, zeroCountParts0);
riceParamPart128 = _mm_set_epi32(riceParamParts3, riceParamParts2, riceParamParts1, riceParamParts0);
riceParamPart128 = _mm_and_si128(riceParamPart128, riceParamMask128);
riceParamPart128 = _mm_or_si128(riceParamPart128, _mm_slli_epi32(zeroCountPart128, riceParam));
riceParamPart128 = _mm_xor_si128(_mm_srli_epi32(riceParamPart128, 1), _mm_add_epi32(drflac__mm_not_si128(_mm_and_si128(riceParamPart128, _mm_set1_epi32(0x01))), _mm_set1_epi32(0x01))); /* <-- SSE2 compatible */
/*riceParamPart128 = _mm_xor_si128(_mm_srli_epi32(riceParamPart128, 1), _mm_mullo_epi32(_mm_and_si128(riceParamPart128, _mm_set1_epi32(0x01)), _mm_set1_epi32(0xFFFFFFFF)));*/ /* <-- Only supported from SSE4.1 and is slower in my testing... ...
if (order <= 4) {
for (i = 0; i < 4; i += 1) {
prediction128 = _mm_mullo_epi32(coefficients128_0, samples128_0);
share/public_html/static/music_inc/src/dr_flac.h view on Meta::CPAN
zeroCountPart128 = _mm_set_epi32(zeroCountParts3, zeroCountParts2, zeroCountParts1, zeroCountParts0);
riceParamPart128 = _mm_set_epi32(riceParamParts3, riceParamParts2, riceParamParts1, riceParamParts0);
riceParamPart128 = _mm_and_si128(riceParamPart128, riceParamMask128);
riceParamPart128 = _mm_or_si128(riceParamPart128, _mm_slli_epi32(zeroCountPart128, riceParam));
riceParamPart128 = _mm_xor_si128(_mm_srli_epi32(riceParamPart128, 1), _mm_add_epi32(drflac__mm_not_si128(_mm_and_si128(riceParamPart128, _mm_set1_epi32(1))), _mm_set1_epi32(1)));
for (i = 0; i < 4; i += 1) {
prediction128 = _mm_xor_si128(prediction128, prediction128); /* Reset to 0. */
switch (order)
view release on metacpan or search on metacpan
t/lib/Test/App/MP4Meta/Source/TVDB.pm view on Meta::CPAN
my $t = $self->{tvdb};
is( $t->name, 'theTVDB.com' );
}
sub get_tv_episode_not_found : Test(1) {
my $self = shift;
my $t = App::MP4Meta::Source::TVDB->new();
my $mock = Test::MockObject->new();
$mock->set_always( 'search', [] );
view release on metacpan or search on metacpan
lib/App/MaMGal/Logger.pm view on Meta::CPAN
my $prefix = shift || '';
$prefix .= ': ' if $prefix;
$self->{fh}->printf("%s%s\n", $prefix, $msg);
}
our $not_available_warned_before = 0;
our $exe_failure_warned_before = 0;
sub log_exception
{
my $self = shift;
my $e = shift;
my $prefix = shift;
if ($e->isa('App::MaMGal::MplayerWrapper::NotAvailableException')) {
# TODO this needs to be made thread-safe
return if $not_available_warned_before;
$not_available_warned_before = 1;
} elsif ($e->isa('App::MaMGal::MplayerWrapper::ExecutionFailureException')) {
# TODO this needs to be made thread-safe
goto JUST_LOG if $exe_failure_warned_before or (! $e->stdout and ! $e->stderr);
$exe_failure_warned_before = 1;
$self->log_message($e->message, $prefix);
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
lib/App/Midgen.pm view on Meta::CPAN
foreach my $mod_ver (@modules) {
$self->{found_version}{$mod_ver}
= $prereqs->requirements_for_module($mod_ver);
}
$self->{skip_not_mcpan_stamp} = 0;
if (grep { $_ =~ m/^Dist::Zilla::Role::PluginBundle/ } @modules) {
$self->{skip_not_mcpan_stamp} = 1;
my $ppi_tqs = $self->ppi_document->find('PPI::Token::Quote::Single');
if ($ppi_tqs) {
foreach my $include (@{$ppi_tqs}) {
lib/App/Midgen.pm view on Meta::CPAN
if not defined $self->{modules}{$module}{corelist};
my $version = $self->get_module_version($module, $require_type);
if ($version eq '!mcpan') {
$self->{$require_type}{$module} = colored('!mcpan', 'magenta')
if not $self->{skip_not_mcpan_stamp};
$self->{modules}{$module}{prereqs} = $require_type;
$self->{modules}{$module}{version} = '!mcpan';
}
elsif ($version eq 'core') {
$self->{$require_type}{$module} = $version if $self->core;
view release on metacpan or search on metacpan
script/calc-module-abstract-cwalitee view on Meta::CPAN
% calc-module-abstract-cwalitee 'Calculate the frobnitz of thromblemeisters'
+---------------------------------+-----+--------+----------------+----------+
| indicator | num | result | result_summary | severity |
+---------------------------------+-----+--------+----------------+----------+
| not_empty | 1 | 1 | | 3 |
| language_english | 2 | 1 | | 3 |
| no_shouting | 3 | 1 | | 3 |
| not_end_with_dot | 4 | 1 | | 3 |
| not_module_name | 5 | 1 | | 3 |
| not_multiline | 6 | 1 | | 3 |
| not_redundant | 7 | 1 | | 3 |
| not_start_with_lowercase_letter | 8 | 1 | | 3 |
| not_template | 9 | 1 | | 3 |
| not_too_long | 10 | 1 | | 3 |
| not_too_short | 11 | 1 | | 3 |
| Score | | 100.00 | 11 out of 11 | |
+---------------------------------+-----+--------+----------------+----------+
Example of a not-so-good Abstract:
% calc-module-abstract-cwalitee 'PERL MODULE TO DO SOMETHING'
+---------------------------------+-----+--------+-----------------------------------------------+----------+
| indicator | num | result | result_summary | severity |
+---------------------------------+-----+--------+-----------------------------------------------+----------+
| not_empty | 1 | 1 | | 3 |
| language_english | 2 | 1 | | 3 |
| no_shouting | 3 | 0 | All-caps | 3 |
| not_end_with_dot | 4 | 1 | | 3 |
| not_module_name | 5 | 1 | | 3 |
| not_multiline | 6 | 1 | | 3 |
| not_redundant | 7 | 0 | Saying 'PERL MODULE TO' is redundant, omit it | 3 |
| not_start_with_lowercase_letter | 8 | 1 | | 3 |
| not_template | 9 | 1 | | 3 |
| not_too_long | 10 | 1 | | 3 |
| not_too_short | 11 | 1 | | 3 |
| Score | | 81.82 | 9 out of 11 | |
+---------------------------------+-----+--------+-----------------------------------------------+----------+
=head1 OPTIONS
view release on metacpan or search on metacpan
script/list-patch-modules view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2022-08-24'; # DATE
our $DIST = 'App-ModulePatchUtils'; # DIST
our $VERSION = '0.002'; # VERSION
my @not_patch_modules = (
'Monkey::Patch::Action',
);
my $res = Module::List::More::list_modules(
'', {list_modules=>1, recurse=>1});
for my $mod (sort keys %$res) {
next unless $mod =~ /\A.+::Patch::\w+\z/;
# exclude some known false-positives
next if grep { $mod eq $_ } @not_patch_modules;
print "$mod\n";
}
# ABSTRACT: List all installed patch modules (*::Patch::*)
# PODNAME: list-patch-modules
view release on metacpan or search on metacpan
lib/App/MojoSlides.pm view on Meta::CPAN
sub _action {
my $c = shift;
my $slides = $c->app->slides;
my $slide = $slides->template_for($c->stash('slide'))
or return $c->render_not_found;
$c->render($slide, layout => 'basic') || $c->render_not_found;
}
sub _column {
my $c = shift;
my $cols = ref $_[0] ? shift : [ shift ];
view release on metacpan or search on metacpan
OMITTING HEADER AND FOOTER
If you include a line like this:
[% option no-header %]
the header is _not_ prepended as usual.
You can achieve the following functionality for the footer with the line
[% option no-footer %]
SETTING AND READING VARIABLES
view release on metacpan or search on metacpan
lib/App/MtAws.pm view on Meta::CPAN
if (defined $j->{journal_h}->{$relfilename});
## use Test::Tabs
if ($options->{'data-type'} ne 'filename') {
binmode STDIN;
check_stdin_not_empty(); # after we fork, but before we touch Journal for write and create Amazon Glacier upload id
}
$j->open_for_write();
my $ft = ($options->{'data-type'} eq 'filename') ?
lib/App/MtAws.pm view on Meta::CPAN
} else {
die "Wrong usage";
}
}
sub check_stdin_not_empty
{
die "Empty input from STDIN - cannot upload empty archive"
if eof(STDIN); # we block until first byte arrive, then we put it back in to buffer
}
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
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) = @_;
subtest $module => sub {
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]/,
'module description' => qr/One-line description of module/,
'description' => qr/A full description of the module/,
t/boilerplate.t view on Meta::CPAN
);
};
}
subtest 'README' => sub {
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"The README is used..." => qr/The README is used/,
"'version information here'" => qr/to provide version information/,
);
};
subtest 'Changes' => sub {
not_in_file_ok(Changes =>
"placeholder date/time" => qr(Date/time)
);
};
module_boilerplate_ok('bin/mscp');
view release on metacpan or search on metacpan
lib/App/Multigit.pm view on Meta::CPAN
sub mkconfig {
my $workdir = shift // mg_parent;
my @dirs = File::Find::Rule
->relative
->directory
->not_name('.git')
->maxdepth(1)
->mindepth(1)
->in($workdir);
my %config;
view release on metacpan or search on metacpan
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
ignored: "$1: inside tune - ignored",
misplaced: "Misplaced '$1' in %%score",
must_note: "!$1! must be on a note",
must_note_rest: "!$1! must be on a note or a rest",
nonote_vo: "No note in voice overlay",
not_ascii: "Not an ASCII character",
not_enough_n: 'Not enough notes/rests for %%repeat',
not_enough_m: 'Not enough measures for %%repeat',
not_enough_p: "Not enough parameters in %%map",
not_in_tune: "Cannot have '$1' inside a tune",
notransp: "Cannot transpose with a temperament"
}
var self = this, // needed for modules
glovar = {
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
case "font":
get_font_scale(param)
break
case "fullsvg":
if (parse.state != 0) {
syntax(1, errs.not_in_tune, "%%fullsvg")
break
}
//fixme: should check only alpha, num and '_' characters
cfmt[cmd] = param
break
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
// fall thru
}
continue
case "select":
if (parse.state != 0) {
syntax(1, errs.not_in_tune, "%%select")
continue
}
select = uncomment(a[2])
if (select[0] == '"')
select = select.slice(1, -1);
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
// select = select.replace(/\|/g, '\\|');
parse.select = new RegExp(select, 'm')
continue
case "tune":
if (parse.state != 0) {
syntax(1, errs.not_in_tune, "%%tune")
continue
}
select = uncomment(a[2])
// if void %%tune, free all tune options
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
}
parse.eol = bol
continue
case "voice":
if (parse.state != 0) {
syntax(1, errs.not_in_tune, "%%voice")
continue
}
select = uncomment(a[2])
/* if void %%voice, free all voice options */
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
}
if (--i <= 0)
break
}
if (!s3) {
error(1, s, errs.not_enough_n)
return
}
dur = s.time - s3.time;
i = k * n /* whole number of notes/rests to repeat */
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
if (--i <= 0)
break
}
if (!s2
|| !s2.next) { /* should have some symbol */
error(1, s, errs.not_enough_n)
return
}
for (s2 = s.prev; s2 != s3; s2 = s2.prev) {
if (s2.type == C.NOTE) {
s2.beam_end = true
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
if (--i <= 0)
break
}
}
if (!s2) {
error(1, s, errs.not_enough_m)
return
}
dur = s.time - s2.time /* repeat duration */
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
if (--i <= 0)
break
}
}
if (!s2) {
error(1, s, errs.not_enough_m)
return
}
/* if many 'repeat 2 measures'
* insert a new %%repeat after the next bar */
i = k /* repeat number */
if (n == 2 && i > 1) {
s2 = s2.next
if (!s2) {
error(1, s, errs.not_enough_m)
return
}
s2.repeat_n = n;
s2.repeat_k = --i
}
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
c = ' '
}
k = c.charCodeAt(0)
if (k >= 128) {
syntax(1, errs.not_ascii)
return
}
switch (char_tb[k][0]) {
case '0': // nil
case 'd':
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
while (1) {
if (!c)
break
i = c.charCodeAt(0);
if (i >= 128) {
syntax(1, errs.not_ascii)
return //null
}
ty = char_tb[i]
switch (ty[0]) {
case '(':
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
continue
}
idx = c.charCodeAt(0)
if (idx >= 128) {
syntax(1, errs.not_ascii)
line.index++
break
}
type = char_tb[idx]
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
var i, note, notes, map, tmp, ns,
ty = '',
a = text.split(/\s+/)
if (a.length < 3) {
syntax(1, errs.not_enough_p)
return
}
ns = a[1]
if (ns != '*') {
if (ns.indexOf("octave,") == 0 // remove the octave part
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
for (; i < a.length; i++) {
switch (a[i]) {
case "heads=":
if (!a[++i]) {
syntax(1, errs.not_enough_p)
break
}
map[0] = a[i].split(',')
break
case "print=":
case "play=":
case "print_notrp=":
if (!a[++i]) {
syntax(1, errs.not_enough_p)
break
}
tmp = new scanBuf;
tmp.buffer = a[i];
note = parse_acc_pit(tmp)
lib/ChordPro/res/abc/abc2svg/abc2svg-1.js view on Meta::CPAN
else
map[3] = note
break
case "color=":
if (!a[++i]) {
syntax(1, errs.not_enough_p)
break
}
map[2] = a[i]
break
}
view release on metacpan or search on metacpan
public/javascripts/ace/mode-aql.js view on Meta::CPAN
"append|contains_array|count|count_distinct|count_unique|first|flatten|intersection|last|length|minus|nth|outersection|pop|position|push|remove_nth|remove_value|remove_values|reverse|shift|slice|sorted|sorted_unique|union|union_distinct|uni...
"date_now|date_iso8601|date_timestamp|is_datestring|date_dayofweek|date_year|date_month|date_day|date_hour|date_minute|date_second|date_millisecond|date_dayofyear|date_isoweek|date_leapyear|date_quarter|date_days_in_month|date_trunc|date_fo...
"attributes|count|has|is_same_collection|keep|length|matches|merge|merge_recursive|parse_identifier|translate|unset|unset_recursive|values|zip|" +
"fulltext|" +
"distance|geo_contains|geo_distance|geo_equals|geo_intersects|is_in_polygon|" +
"not_null|first_list|first_document|check_document|collection_count|collections|count|current_user|document|length|hash|apply|assert|/ warn|call|fail|noopt|passthru|sleep|v8|version|" +
"abs|acos|asin|atan|atan2|average|avg|ceil|cos|degrees|exp|exp2|floor|log|log2|log10|max|median|min|percentile|pi|pow|radians|rand|range|round|sin|sqrt|stddev_population|stddev_sample|stddev|sum|tan|variance_population|variance_sample|varia...
"char_length|concat|concat_separator|contains|count|encode_uri_component|find_first|find_last|json_parse|json_stringify|left|length|levenshtein_distance|like|lower|ltrim|md5|random_token|regex_matches|regex_split|regex_test|regex_replace|re...
"to_bool|to_number|to_string|to_array|to_list|is_null|is_bool|is_number|is_string|is_array|is_list|is_object|is_document|is_datestring|is_key|typename|"
);
view release on metacpan or search on metacpan
t/bin/ndproc-Merge.t view on Meta::CPAN
$test = "strict_default"; # strict enabled by default
run_ok(
name => $test,
pre => sub { copy("_cfg.alpha.json", "$test.got") },
cmd => [ @cmd, '--source', "_cfg.beta.json", '--merge', '{not_exists}', "$test.got" ],
stderr => qr/ FATAL] No such path '\{not_exists\}' in /,
test => sub { files_eq_or_diff("_cfg.alpha.json", "$test.got", $test) },
exit => 4,
);
$test = "strict_enabled";
run_ok(
name => $test,
pre => sub { copy("_cfg.alpha.json", "$test.got") },
cmd => [ @cmd, '--source', "_cfg.beta.json", '--strict', '--merge', '{not_exists}', "$test.got" ],
stderr => qr/ FATAL] No such path '\{not_exists\}' in /,
test => sub { files_eq_or_diff("_cfg.alpha.json", "$test.got", $test) },
exit => 4,
);
$test = "strict_disabled";
run_ok(
name => $test,
pre => sub { copy("_cfg.alpha.json", "$test.got") },
cmd => [ @cmd, '--source', "_cfg.beta.json", '--strict', '--merge', '{not_exists}', '--nostrict', '--merge', '{mtime}', "$test.got" ],
test => sub { files_eq_or_diff("$test.exp", "$test.got", $test) },
);
view release on metacpan or search on metacpan
examples/htgraph view on Meta::CPAN
=head2 C<$found>
This variable keeps track of the number of found words in the dictionary.
=head2 C<$not_found>
This variable keeps track of the number of found not words in the
dictionary.
=cut
view release on metacpan or search on metacpan
lib/App/Netdisco/DB/Result/DeviceVlan.pm view on Meta::CPAN
sub {
my $args = shift;
return {
"$args->{foreign_alias}.ip" => { -ident => "$args->{self_alias}.ip" },
"$args->{foreign_alias}.vlan" => { -ident => "$args->{self_alias}.vlan" },
-not_bool => "$args->{foreign_alias}.native",
};
},
{ cascade_copy => 0, cascade_update => 0, cascade_delete => 0 }
);
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
view release on metacpan or search on metacpan
lib/App/NutrientUtils.pm view on Meta::CPAN
=item * B<category.min> => I<str>
Only return records where the 'category' field is greater than or equal to specified value.
=item * B<category.not_contains> => I<str>
Only return records where the 'category' field does not contain specified text.
=item * B<category.not_in> => I<array[str]>
Only return records where the 'category' field is not in the specified values.
=item * B<category.xmax> => I<str>
lib/App/NutrientUtils.pm view on Meta::CPAN
=item * B<default_unit.min> => I<str>
Only return records where the 'default_unit' field is greater than or equal to specified value.
=item * B<default_unit.not_contains> => I<str>
Only return records where the 'default_unit' field does not contain specified text.
=item * B<default_unit.not_in> => I<array[str]>
Only return records where the 'default_unit' field is not in the specified values.
=item * B<default_unit.xmax> => I<str>
lib/App/NutrientUtils.pm view on Meta::CPAN
=item * B<eng_name.min> => I<str>
Only return records where the 'eng_name' field is greater than or equal to specified value.
=item * B<eng_name.not_contains> => I<str>
Only return records where the 'eng_name' field does not contain specified text.
=item * B<eng_name.not_in> => I<array[str]>
Only return records where the 'eng_name' field is not in the specified values.
=item * B<eng_name.xmax> => I<str>
lib/App/NutrientUtils.pm view on Meta::CPAN
=item * B<fat_soluble_note.min> => I<str>
Only return records where the 'fat_soluble_note' field is greater than or equal to specified value.
=item * B<fat_soluble_note.not_contains> => I<str>
Only return records where the 'fat_soluble_note' field does not contain specified text.
=item * B<fat_soluble_note.not_in> => I<array[str]>
Only return records where the 'fat_soluble_note' field is not in the specified values.
=item * B<fat_soluble_note.xmax> => I<str>
lib/App/NutrientUtils.pm view on Meta::CPAN
=item * B<ind_name.min> => I<str>
Only return records where the 'ind_name' field is greater than or equal to specified value.
=item * B<ind_name.not_contains> => I<str>
Only return records where the 'ind_name' field does not contain specified text.
=item * B<ind_name.not_in> => I<array[str]>
Only return records where the 'ind_name' field is not in the specified values.
=item * B<ind_name.xmax> => I<str>
lib/App/NutrientUtils.pm view on Meta::CPAN
=item * B<summary.min> => I<str>
Only return records where the 'summary' field is greater than or equal to specified value.
=item * B<summary.not_contains> => I<str>
Only return records where the 'summary' field does not contain specified text.
=item * B<summary.not_in> => I<array[str]>
Only return records where the 'summary' field is not in the specified values.
=item * B<summary.xmax> => I<str>
lib/App/NutrientUtils.pm view on Meta::CPAN
=item * B<symbol.min> => I<str>
Only return records where the 'symbol' field is greater than or equal to specified value.
=item * B<symbol.not_contains> => I<str>
Only return records where the 'symbol' field does not contain specified text.
=item * B<symbol.not_in> => I<array[str]>
Only return records where the 'symbol' field is not in the specified values.
=item * B<symbol.xmax> => I<str>
lib/App/NutrientUtils.pm view on Meta::CPAN
=item * B<water_soluble_note.min> => I<str>
Only return records where the 'water_soluble_note' field is greater than or equal to specified value.
=item * B<water_soluble_note.not_contains> => I<str>
Only return records where the 'water_soluble_note' field does not contain specified text.
=item * B<water_soluble_note.not_in> => I<array[str]>
Only return records where the 'water_soluble_note' field is not in the specified values.
=item * B<water_soluble_note.xmax> => I<str>
view release on metacpan or search on metacpan
htdocs/assets/templates/app/office/contacts/donations/faq.html view on Meta::CPAN
>Communication types: Any contact method,
i.e.
no restriction</a></dt>
<dd>
<dt><a name="Genders:_Either_unknown_(for_people),_or_not_applicable_(for_organizations)"
>Genders: Either unknown (for people),
or not applicable (for organizations)</a></dt>
<dd>
<dt><a name="Occupation_titles:_The_title_is_unknown"
view release on metacpan or search on metacpan
t/10-backend-yaml.t view on Meta::CPAN
is( $tmp->lookup_file(".gz"), "gunzip %s" );
ok( !$tmp->lookup_file(".foo") );
lives_ok { $tmp = CLASS->new( [$def_file] ) };
is( $tmp->lookup_url("http"), "echo" );
is( $tmp->lookup_file("http"), "not_a_url" );
$def_file = "t/resource/backends/yaml/bad_def1.yaml";
throws_ok { $tmp = CLASS->new( [$def_file] ) } qr/BACKEND_CONFIG_ERROR/;
$def_file = "t/resource/backends/yaml/bad_def2.yaml";
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/App/OpenMbox/Client.pm');
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/App/OpenMbox/Test.pm');
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/App/OpenMbox.pm');
view release on metacpan or search on metacpan
lib/App/PAIA/Command.pm view on Meta::CPAN
my $expires = $self->session->get('expires_at');
return $expires ? $expires <= time : 0;
}
sub not_authentificated {
my ($self, $scope) = @_;
my $token = $self->token // return "missing access token";
return "access token expired" if $self->expired;
lib/App/PAIA/Command.pm view on Meta::CPAN
sub auto_login_for {
my ($self, $command) = @_;
my $scope = $required_scopes{$command};
if ( $self->not_authentificated($scope) ) {
# add to existing scopes (TODO: only if wanted)
my $new_scope = join ' ', split(' ',$self->scope // ''), $scope;
$self->logger->("auto-login with scope '$new_scope'");
$self->login( $new_scope );
if ( $self->scope and !$self->has_scope($scope) ) {
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/App/PGMultiDeploy.pm');
view release on metacpan or search on metacpan
t/release/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/release/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/App/PM/Announce.pm');
view release on metacpan or search on metacpan
t/App-PRT-Collector-Files.t view on Meta::CPAN
my $collector = App::PRT::Collector::Files->new("$directory/hello_world.pl");
is_deeply $collector->collect, ["$directory/hello_world.pl"];
}, 'specified files returned';
subtest 'when not existing file specified' => sub {
my $collector = App::PRT::Collector::Files->new("$directory/not_existd.pl");
ok exception {
$collector->collect;
}, 'died';
};
}
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More;
use Test::Warnings;
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]/,
);
}
not_in_file_ok((-f 'README' ? 'README' : 'README.pod') =>
"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('bin/app-ps1');
module_boilerplate_ok('lib/App/PS1.pm');
view release on metacpan or search on metacpan
t/02_functionality.t view on Meta::CPAN
};
like($@, qr/Login 'user1' already exists/, "Adding password with existing login should throw an error");
};
subtest 'remove_password_not_found' => sub {
my ($fh, $tempfile) = tempfile();
my $password_manager = App::PasswordManager->new(file => $tempfile);
eval {
t/02_functionality.t view on Meta::CPAN
};
like($@, qr/Login 'nonexistent_user' not found/, "Removing password for a non-existent login should throw an error");
};
subtest 'edit_password_not_found' => sub {
my ($fh, $tempfile) = tempfile();
my $password_manager = App::PasswordManager->new(file => $tempfile);
eval {