Result:
found more than 919 distributions - search limited to the first 2001 files matching your query
( run in 1.350 )
App-ShellCheckWiki
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/ShellCheckWiki.pm');
App-ShellCompleter-cpanm
view release on metacpan or search on metacpan
devdata/Menlo-CLI-Compat.v1.9022.pm.txt view on Meta::CPAN
$self->chdir($dir) if $dir;
if ($self->{scandeps}) {
return 1; # Don't check if dependencies are installed, since with --scandeps they aren't
}
my @not_ok = $self->unsatisfied_deps(@deps);
if (@not_ok) {
return 0, \@not_ok;
} else {
return 1;
}
}
App-SilverSplash
view release on metacpan or search on metacpan
lib/App/SilverSplash.pm view on Meta::CPAN
# returns true if the mac address may pass
sub check_auth {
my ($class, $mac, $ip) = @_;
my $chain = $class->not_timed_out($mac, $ip);
return unless $chain;
# fixup the firewall rules based on the chain type
my $fixup = App::SilverSplash::IPTables->fixup_access($mac, $ip, $chain);
lib/App/SilverSplash.pm view on Meta::CPAN
return $client_ip;
}
# returns the auth chain if the user is not timed out
sub not_timed_out {
my ($class, $mac, $ip) = @_;
my $exp = $class->get($mac);
return unless $exp;
App-SimpleBackuper
view release on metacpan or search on metacpan
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
local $sftp->{_autodie};
$sftp->_conn_lost;
if (defined $pid) {
close $sftp->{ssh_out} if (defined $sftp->{ssh_out} and not $sftp->{_ssh_out_is_not_dupped});
close $sftp->{ssh_in} if defined $sftp->{ssh_in};
if ($windows) {
kill KILL => $pid
and waitpid($pid, 0);
$debug and $debug & 4 and _debug "process $pid reaped";
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
return $ret;
}
}
};
my $gen_not_supported = sub {
sub {
$! = Errno::ENOTSUP();
undef
}
};
local/lib/perl5/Net/SFTP/Foreign.pm view on Meta::CPAN
sub OPENDIR {
shift->CLOSEDIR;
undef;
}
*REWINDDIR = $gen_not_supported->();
*TELLDIR = $gen_not_supported->();
*SEEKDIR = $gen_not_supported->();
sub DESTROY {
local ($@, $!, $?);
my $self = shift;
my $sftp = $self->_sftp;
App-SimpleScan-Plugin-LinkCheck
view release on metacpan or search on metacpan
lib/App/SimpleScan/Plugin/LinkCheck.pm view on Meta::CPAN
for my $link_condition ( @{ $self->{Link_conditions}->{$link_name} } ) {
my $compare = $link_condition->{compare};
my $count = $link_condition->{count};
my $name = $link_condition->{name};
my $not_bogus = 1;
my %have_a;
# name alone is "at least one link with this name"
if (defined $name and (! defined $compare) and (! defined $count) ) {
$compare = ">";
lib/App/SimpleScan/Plugin/LinkCheck.pm view on Meta::CPAN
# comparison is always defined: either we fixed it just above (because
# it was missing altogether), or it's there (but possibly bad).
if (! grep {$compare eq $_} qw(== > < >= <= !=) ) {
push @code, qq(fail "$compare is not a legal comparison operator (use < > <= >= == !=)";\n);
$test_count++;
$not_bogus = 0;
}
if (!defined($count)) {
push @code, qq(fail "Missing count";\n);
$test_count++;
$not_bogus = 0;
}
elsif (! looks_like_number($count) ) {
push @code, qq(fail "$count doesn't look like a legal number to me";\n);
$test_count++;
$not_bogus = 0;
}
if ($not_bogus) {
my $last_testspec = $self->get_current_spec;
$last_testspec->comment( qq('$name' link count $compare $count) );
push @code, qq(cmp_ok scalar \@{[mech()->find_all_links(text=>qq($name))]}, qq($compare), qq($count), "'$name' link count $compare $count";\n);
$test_count++;
App-SimulateReads
view release on metacpan or search on metacpan
lib/App/SimulateReads/Read.pm view on Meta::CPAN
isa => 'Int',
builder => '_build_base',
lazy_build => 1
);
has '_not_base' => (
is => 'ro',
isa => 'HashRef',
builder => '_build_not_base',
lazy_build => 1
);
sub _build_not_base {
my %not_base = (
A => ['T', 'C', 'G'],
a => ['t', 'c', 'g'],
T => ['A', 'C', 'G'],
t => ['a', 'c', 'g'],
C => ['A', 'T', 'G'],
c => ['a', 't', 'g'],
G => ['A', 'T', 'C'],
g => ['a', 't', 'c']
);
return \%not_base;
}
sub _build_base {
my $self = shift;
# If sequencing_error equal to zero, set _base to zero
lib/App/SimulateReads/Read.pm view on Meta::CPAN
$$seq_ref =~ tr/atcgATCG/tagcTAGC/;
}
sub _randb {
my ($self, $base) = @_;
return $self->_not_base->{$base}[int(rand(3))] || $base;
}
__END__
=pod
App-Slaughter
view release on metacpan or search on metacpan
t/test-lib-slaughter-packages.t view on Meta::CPAN
# Sanity check by ensuring that a made-up method name is
# invalid.
#
# This ensures we're not misusing UNIVERSAL:can
#
ok( !UNIVERSAL::can( $handle, "not_present" ),
"Random methods aren't present." );
}
}
App-SlideServer
view release on metacpan or search on metacpan
share/public/highlight/highlight.min.js view on Meta::CPAN
},contains:[{begin:/\\\n/,relevance:0},e.inherit(s,{className:"string"}),{
className:"string",begin:/<.*?>/},a,e.C_BLOCK_COMMENT_MODE]},l={
className:"title",begin:t.optional(n)+e.IDENT_RE,relevance:0
},d=t.optional(n)+e.IDENT_RE+"\\s*\\(",u={
type:["bool","char","char16_t","char32_t","char8_t","double","float","int","long","short","void","wchar_t","unsigned","signed","const","static"],
keyword:["alignas","alignof","and","and_eq","asm","atomic_cancel","atomic_commit","atomic_noexcept","auto","bitand","bitor","break","case","catch","class","co_await","co_return","co_yield","compl","concept","const_cast|10","consteval","constexpr","co...
literal:["NULL","false","nullopt","nullptr","true"],built_in:["_Pragma"],
_type_hints:["any","auto_ptr","barrier","binary_semaphore","bitset","complex","condition_variable","condition_variable_any","counting_semaphore","deque","false_type","future","imaginary","initializer_list","istringstream","jthread","latch","lock_guar...
},p={className:"function.dispatch",relevance:0,keywords:{
_hint:["abort","abs","acos","apply","as_const","asin","atan","atan2","calloc","ceil","cerr","cin","clog","cos","cosh","cout","declval","endl","exchange","exit","exp","fabs","floor","fmod","forward","fprintf","fputs","free","frexp","fscanf","future","...
},
App-Smbxfer
view release on metacpan or search on metacpan
lib/App/Smbxfer.pm view on Meta::CPAN
my ($local_path, $remote_smb_path_spec) = validated_paths(
SMB => $smb,
SOURCE => $source,
DEST => $dest,
SOURCE_IS_LOCAL => $whether_or_not_source_is_local_path
);
Given source, destination paths as expected by modulino's run()
function, performs validations and returns normalized forms of both paths in
order (source, dest).
lib/App/Smbxfer.pm view on Meta::CPAN
do_smb_transfer(
SMB_OBJECT => $smb,
LOCAL_PATH => $local_path,
SMB_PATH_SPEC => $remote_smb_path_spec,
SOURCE_IS_LOCAL => $whether_or_not_source_is_local_path,
RECURSIVE => 1,
CREATE_PARENTS => 1
);
Handles setup for upload/download, then delegates responsibility for file
App-Smolder-Report
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]/,
);
}
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/Smolder/Report.pm');
App-SocialSKK
view release on metacpan or search on metacpan
inc/File/Find/Rule.pm view on Meta::CPAN
#line 499
sub DESTROY {}
sub AUTOLOAD {
$AUTOLOAD =~ /::not_([^:]*)$/
or croak "Can't locate method $AUTOLOAD";
my $method = $1;
my $sub = sub {
my $self = _force_object shift;
App-SpamcupNG
view release on metacpan or search on metacpan
lib/App/SpamcupNG/HTMLParse.pm view on Meta::CPAN
my $encoding = lc( $wanted[0] );
my $charset = lc( $wanted[1] );
$charset =~ s/^\s+//;
$charset =~ tr/"//d;
my $not_useful = 'boundary';
if (
substr( $charset, 0, length($not_useful) ) eq
$not_useful )
{
$info{content_type} = $encoding;
$info{charset} = undef;
}
else {
App-Spec
view release on metacpan or search on metacpan
lib/App/Spec/Run/Validator.pm view on Meta::CPAN
if (not @$values) {
next;
}
if ($spec->unique and (uniq @$values) != @$values) {
$errs->{ $type }->{ $name } = "not_unique";
next;
}
}
else {
App-Spoor
view release on metacpan or search on metacpan
t/AccessEntryParser.t view on Meta::CPAN
App::Spoor::AccessEntryParser::parse("$access_log_entry_forward_added\n"),
\%parsed_log_entry_forward_added,
'Parses an access log entry - adding a forward with a trailing newline'
);
my $access_log_entry_not_mailbox_level = '10.10.10.10 - foo [10/15/2018:17:47:27 -0000] ' .
'"POST /cpsess0248462691/webmail/paper_lantern/mail/doaddfwd.html HTTP/1.1" 200 0 "https://cp4.capefox.co:2096/" ' .
'"Mozilla/5.0 (X11; Fedora; Linux x86_64; rv:61.0) Gecko/20100101 Firefox/61.0" "s" "-" 2096';
my %parsed_log_entry_not_mailbox_level = (
type => 'access',
ip => '10.10.10.10',
credential => 'foo',
log_time => DateTime->new(
year => 2018,
t/AccessEntryParser.t view on Meta::CPAN
event => 'unrecognised',
status => 'success'
);
is_deeply(
App::Spoor::AccessEntryParser::parse($access_log_entry_not_mailbox_level),
\%parsed_log_entry_not_mailbox_level,
'Parses an access log entry - not mailbox level'
);
is_deeply(
App::Spoor::AccessEntryParser::parse("$access_log_entry_not_mailbox_level\n"),
\%parsed_log_entry_not_mailbox_level,
'Parses an access log entry - not mailbox level with a trailing newline'
);
my $access_log_entry_incorrect_verb = '10.10.10.10 - rorymckinley%40blah.capefox.co [10/15/2018:17:47:27 -0000] ' .
'"GET /cpsess0248462691/webmail/paper_lantern/mail/doaddfwd.html HTTP/1.1" 200 0 "https://cp4.capefox.co:2096/" ' .
t/AccessEntryParser.t view on Meta::CPAN
App::Spoor::AccessEntryParser::parse("$access_log_forward_removed\n"),
\%parsed_forward_removed,
'Parses an access log entry - removing a forward with a trailing newline'
);
my $access_log_forward_removed_not_mailbox = '10.10.10.10 - foobar [03/05/2019:10:38:37 -0000] ' .
'"GET /cpsess9858418447/webmail/paper_lantern/mail/dodelfwd.html?email=rorymckinley%40blah.capefox.co' .
'&emaildest=rorymckinley%2bcpanel%40gmail.com HTTP/1.1" 200 0 "https://cp6.capefox.co:2096/" ' .
'"Mozilla/5.0 (X11; Fedora; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/72.0.3626.96 ' .
'Safari/537.36" "s" "-" 2096';
my %parsed_forward_removed_not_mailbox = (
type => 'access',
ip => '10.10.10.10',
credential => 'foobar',
log_time => DateTime->new(
year => 2019,
t/AccessEntryParser.t view on Meta::CPAN
event => 'unrecognised',
status => 'success'
);
is_deeply(
App::Spoor::AccessEntryParser::parse($access_log_forward_removed_not_mailbox),
\%parsed_forward_removed_not_mailbox,
'Parses an access log entry - removing a forward not at mailbox level'
);
is_deeply(
App::Spoor::AccessEntryParser::parse("$access_log_forward_removed_not_mailbox\n"),
\%parsed_forward_removed_not_mailbox,
'Parses an access log entry - removing a forward not at mailbox level with a trailing newline - '
);
my $access_log_forward_removed_fail = '10.10.10.10 - rorymckinley%40blah.capefox.co [03/05/2019:10:38:37 -0000] ' .
'"GET /cpsess9858418447/webmail/paper_lantern/mail/dodelfwd.html?email=rorymckinley%40blah.capefox.co' .
App-Sqitch
view release on metacpan or search on metacpan
use Path::Class;
use Test::Exception;
use Test::Warn;
use Test::Dir;
use File::Temp 'tempdir';
use Test::File qw(file_not_exists_ok file_exists_ok);
use Test::File::Contents 0.05;
use File::Path qw(make_path remove_tree);
use Test::NoWarnings 0.083;
use lib 't/lib';
use MockOutput;
open my $fh, '>', $fn or die "Cannot open $fn: $!";
say $fh "%project=add\n\n";
close $fh or die "Error closing $fn: $!";
END { remove_tree 'test-add' };
my $out = file 'test-add', 'sqitch_change_test.sql';
file_not_exists_ok $out;
ok my $add = $CLASS->new(
sqitch => $sqitch,
template_directory => $tmpldir,
), 'Create add command';
ok $add->_add('sqitch_change_test', $out, $tmpl, 'sqlite', 'add'),
my $revert_file = file qw(test-add revert widgets_table.sql);
my $verify_file = file qw(test-add verify widgets_table.sql);
my $plan = $add->default_target->plan;
is $plan->get('widgets_table'), undef, 'Should not have "widgets_table" in plan';
dir_not_exists_ok +File::Spec->catdir('test-add', $_) for qw(deploy revert verify);
ok $add->execute('widgets_table'), 'Add change "widgets_table"';
# Reload the plan.
$reload->($plan);
$revert_file = file qw(test-add revert foo_table.sql);
$verify_file = file qw(test-add ferify foo_table.sql);
$deploy_file->touch;
file_exists_ok $deploy_file;
file_not_exists_ok $_ for ($revert_file, $verify_file);
is $plan->get('foo_table'), undef, 'Should not have "foo_table" in plan';
ok $add->execute, 'Add change "foo_table"';
file_exists_ok $_ for ($deploy_file, $revert_file);
file_not_exists_ok $verify_file;
$plan = $add->default_target->plan;
isa_ok $change = $plan->get('foo_table'), 'App::Sqitch::Plan::Change',
'"foo_table" change';
is_deeply \%request_params, {
for => __ 'add',
for => __ 'add',
scripts => [ map { $change->script_file($_) } qw(deploy revert whatev)]
}, 'It should have prompted for a note';
file_exists_ok $_ for ($deploy_file, $revert_file, $whatev_file);
file_not_exists_ok $verify_file;
file_contents_like $deploy_file, qr/^-- Deploy add:custom_script/,
'Deploy script should look right';
file_contents_like $revert_file, qr/^-- Revert add:custom_script/,
'Revert script should look right';
file_contents_like $whatev_file, qr/^-- Verify add:custom_script/,
my $dir = dir $_;
$dir->mkpath;
map { $dir->file($_, 'choc.sql') } qw(deploy revert verify);
} qw(sqlite pg mysql);
file_exists_ok $_ for @scripts[0..2];
file_not_exists_ok $_ for @scripts[3..8];
is_deeply +MockOutput->get_info, [
(map { [__x 'Created {file}', file => $_] } @scripts[0..2]),
[
__x 'Added "{change}" to {file}',
change => 'choc',
App-Stacktrace
view release on metacpan or search on metacpan
nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
offer_nice_chunk|||
oopsAV|||
# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION))
# define PERL_PATCHLEVEL_H_IMPLICIT
# include <patchlevel.h>
# endif
# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL)))
# include <could_not_find_Perl_patchlevel.h>
# endif
# ifndef PERL_REVISION
# define PERL_REVISION (5)
/* Replace: 1 */
# define PERL_VERSION PATCHLEVEL
App-Starter
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/App/Starter.pm');
App-StaticImageGallery
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/App/StaticImageGallery.pm');
App-StockExchangeUtils
view release on metacpan or search on metacpan
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<add_codes.min> => I<str>
Only return records where the 'add_codes' field is greater than or equal to specified value.
=item * B<add_codes.not_contains> => I<str>
Only return records where the 'add_codes' field does not contain specified text.
=item * B<add_codes.not_in> => I<array[str]>
Only return records where the 'add_codes' field is not in the specified values.
=item * B<add_codes.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<add_names.min> => I<str>
Only return records where the 'add_names' field is greater than or equal to specified value.
=item * B<add_names.not_contains> => I<str>
Only return records where the 'add_names' field does not contain specified text.
=item * B<add_names.not_in> => I<array[str]>
Only return records where the 'add_names' field is not in the specified values.
=item * B<add_names.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<add_yf_codes.min> => I<str>
Only return records where the 'add_yf_codes' field is greater than or equal to specified value.
=item * B<add_yf_codes.not_contains> => I<str>
Only return records where the 'add_yf_codes' field does not contain specified text.
=item * B<add_yf_codes.not_in> => I<array[str]>
Only return records where the 'add_yf_codes' field is not in the specified values.
=item * B<add_yf_codes.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<city.min> => I<str>
Only return records where the 'city' field is greater than or equal to specified value.
=item * B<city.not_contains> => I<str>
Only return records where the 'city' field does not contain specified text.
=item * B<city.not_in> => I<array[str]>
Only return records where the 'city' field is not in the specified values.
=item * B<city.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<code.min> => I<str>
Only return records where the 'code' field is greater than or equal to specified value.
=item * B<code.not_contains> => I<str>
Only return records where the 'code' field does not contain specified text.
=item * B<code.not_in> => I<array[str]>
Only return records where the 'code' field is not in the specified values.
=item * B<code.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<country.min> => I<str>
Only return records where the 'country' field is greater than or equal to specified value.
=item * B<country.not_contains> => I<str>
Only return records where the 'country' field does not contain specified text.
=item * B<country.not_in> => I<array[str]>
Only return records where the 'country' field is not in the specified values.
=item * B<country.xmax> => I<str>
lib/App/StockExchangeUtils.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/StockExchangeUtils.pm view on Meta::CPAN
=item * B<founded.min> => I<str>
Only return records where the 'founded' field is greater than or equal to specified value.
=item * B<founded.not_contains> => I<str>
Only return records where the 'founded' field does not contain specified text.
=item * B<founded.not_in> => I<array[str]>
Only return records where the 'founded' field is not in the specified values.
=item * B<founded.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<local_name.min> => I<str>
Only return records where the 'local_name' field is greater than or equal to specified value.
=item * B<local_name.not_contains> => I<str>
Only return records where the 'local_name' field does not contain specified text.
=item * B<local_name.not_in> => I<array[str]>
Only return records where the 'local_name' field is not in the specified values.
=item * B<local_name.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<mic.min> => I<str>
Only return records where the 'mic' field is greater than or equal to specified value.
=item * B<mic.not_contains> => I<str>
Only return records where the 'mic' field does not contain specified text.
=item * B<mic.not_in> => I<array[str]>
Only return records where the 'mic' field is not in the specified values.
=item * B<mic.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<status.min> => I<str>
Only return records where the 'status' field is greater than or equal to specified value.
=item * B<status.not_contains> => I<str>
Only return records where the 'status' field does not contain specified text.
=item * B<status.not_in> => I<array[str]>
Only return records where the 'status' field is not in the specified values.
=item * B<status.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<types.min> => I<str>
Only return records where the 'types' field is greater than or equal to specified value.
=item * B<types.not_contains> => I<str>
Only return records where the 'types' field does not contain specified text.
=item * B<types.not_in> => I<array[str]>
Only return records where the 'types' field is not in the specified values.
=item * B<types.xmax> => I<str>
lib/App/StockExchangeUtils.pm view on Meta::CPAN
=item * B<yf_code.min> => I<str>
Only return records where the 'yf_code' field is greater than or equal to specified value.
=item * B<yf_code.not_contains> => I<str>
Only return records where the 'yf_code' field does not contain specified text.
=item * B<yf_code.not_in> => I<array[str]>
Only return records where the 'yf_code' field is not in the specified values.
=item * B<yf_code.xmax> => I<str>
App-Tel
view release on metacpan or search on metacpan
local/lib/perl5/Module/ScanDeps.pm view on Meta::CPAN
my ($rv_sub, $rv) = @_;
my $key;
foreach $key (keys(%$rv_sub)) {
my %mark;
if ($rv->{$key} and _not_dup($key, $rv, $rv_sub)) {
warn "Different modules for file '$key' were found.\n"
. " -> Using '" . _abs_path($rv_sub->{$key}{file}) . "'.\n"
. " -> Ignoring '" . _abs_path($rv->{$key}{file}) . "'.\n";
$rv->{$key}{used_by} = [
grep (!$mark{$_}++,
local/lib/perl5/Module/ScanDeps.pm view on Meta::CPAN
@{ $rv->{$key}{used_by} } = grep length, @{ $rv->{$key}{used_by} };
}
}
}
sub _not_dup {
my ($key, $rv1, $rv2) = @_;
if (File::Spec->case_tolerant()) {
return lc(_abs_path($rv1->{$key}{file})) ne lc(_abs_path($rv2->{$key}{file}));
}
else {
App-TemplateCMD
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/templatecmd');
App-Templer
view release on metacpan or search on metacpan
lib/Templer/Site.pm view on Meta::CPAN
my $dir =
$args{ 'directory' } || $self->{ 'directory' } || $self->{ 'input' };
my $suffix = $args{ 'suffix' } || $self->{ 'suffix' };
return (
$self->_findFiles( must_not_match => $suffix . "\$",
object => "Templer::Site::Asset",
directory => $dir,
hide_dotfiles => 0,
) );
lib/Templer/Site.pm view on Meta::CPAN
next if ( -d $file );
next unless ( $file =~ /$args{'must_match'}/ );
push( @matches, $class->new( file => $file ) );
}
}
elsif ( $args{ 'must_not_match' } )
{
foreach my $file ( sort keys %files )
{
next if ( $file =~ /$args{'must_not_match'}/ );
push( @matches, $class->new( file => $file ) );
}
}
else
{
App-Test-DWG-LibreDWG-DwgRead
view release on metacpan or search on metacpan
my @selected_files;
if ($self->{'_opts'}->{'s'}) {
@selected_files = File::Find::Rule->in($self->{'_directory'});
} else {
@selected_files = File::Find::Rule->dwg->not_symlink->in($self->{'_directory'});
}
my $file_num = 1;
foreach my $dwg_file_in (@selected_files) {
# Copy DWG file to dir.
App-Test-Generator
view release on metacpan or search on metacpan
lib/App/Test/Generator/Template.pm view on Meta::CPAN
# --- memberof ---
if (defined $spec->{memberof}) {
my @set = @{ $spec->{memberof} };
push @cases, { %mandatory_args, ( $arg_name => $set[0] ) } if @set;
push @cases, { %mandatory_args, ( $arg_name => '_not_in_set_', _STATUS => 'DIES' ) };
}
# --- notmemberof ---
if (defined $spec->{notmemberof}) {
my @set = @{ $spec->{notmemberof} };
push @cases, { %mandatory_args, ( $arg_name => $set[0], _STATUS => 'DIES' ) } if @set;
push @cases, { %mandatory_args, ( $arg_name => '_not_in_set_' ) };
}
# --- semantic ---
if(defined(my $semantic = $spec->{'semantic'})) {
if(defined(my $semantic = $spec->{'semantic'})) {
lib/App/Test/Generator/Template.pm view on Meta::CPAN
# Each blacklisted value should die
foreach my $val (@blacklist) {
push @cases, { %mandatory_args, ( $field => $val, _STATUS => 'DIES' ) };
}
# Non-blacklisted value should pass
push @cases, { %mandatory_args, ( $field => '_not_in_blacklist_' ) };
}
# semantic tests
if(defined(my $semantic = $spec->{'semantic'})) {
if($semantic eq 'unix_timestamp') {
App-ThinPacker
view release on metacpan or search on metacpan
lib/App/ThinPacker.pm view on Meta::CPAN
@$includes;
my $inject = join '', map { s/%%DEPS%%/$deps/; $_ } <DATA>;
open my $script, '<', $arg or exit print "Cannot open $arg: $!\n";
my $not_injected = 1;
while (my $line = <$script>) {
if ($line =~ /^use / && $not_injected) {
print "BEGIN {\n$inject\n}\n";
$not_injected = 0;
}
print $line;
}
}
App-TimeTracker
view release on metacpan or search on metacpan
t/Command/core.t view on Meta::CPAN
@ARGV = ('init');
my $class = $p->setup_class( {} );
file_exists_ok( $home->file('projects.json') );
file_exists_ok( $home->file('tracker.json') );
file_not_exists_ok( $tmp->file( 'some_project', '.tracker.json' ) );
file_not_exists_ok( $tmp->file( 'other_project', '.tracker.json' ) );
$p->_build_home($home);
my $t = $class->name->new( home => $home, config => {}, _current_project => 'some_project' );
trap { $t->cmd_init( $tmp->subdir('some_project') ) };
t/Command/core.t view on Meta::CPAN
file_exists_ok( $tmp->file( 'some_project', '.tracker.json' ) );
}
{ # init (setting project name)
file_not_exists_ok( $tmp->file( 'project_name_auto', '.tracker.json' ) );
file_not_exists_ok( $tmp->file( 'project_name_custom', '.tracker.json' ) );
@ARGV = ('init');
my $class = $p->setup_class( {} );
{
t/Command/core.t view on Meta::CPAN
{ # start
@ARGV = ('start');
my $class = $p->setup_class($c1);
file_not_exists_ok( $tracker_dir->file( $basetf . '140000_some_project.trc' ),
'tracker file does not exist yet' );
my $t = $class->name->new(
home => $home,
config => $c1,
_current_project => 'some_project',
at => '14:00'
);
trap { $t->cmd_start };
is( $trap->stdout, "Started working on some_project at 14:00:00\n", 'start: output' );
file_not_empty_ok( $tracker_dir->file( $basetf . '140000_some_project.trc' ),
'tracker file exists' );
}
{ # current
t/Command/core.t view on Meta::CPAN
my $t = $class->name->new( home => $home, config => $c1, _current_project => 'some_project' );
trap { $t->cmd_append };
is( $trap->stdout, "Started working on some_project at 14:15:00\n", 'stop: output' );
my $trc = $tracker_dir->file( $basetf . '141500_some_project.trc' );
file_not_empty_ok( $trc, 'tracker file exists' );
my $task = App::TimeTracker::Data::Task->load( $trc->stringify );
is( $task->stop, undef, 'task stop not set' );
}
{ # init other project
file_not_exists_ok( $tmp->file( 'other_project', '.tracker.json' ) );
@ARGV = ('init');
my $class = $p->setup_class( {} );
my $t = $class->name->new( home => $home, config => {}, _current_project => 'other_project' );
t/Command/core.t view on Meta::CPAN
{ # start other project
@ARGV = ('start');
my $class = $p->setup_class($c2);
my $trc = $tracker_dir->file( $basetf . '143000_other_project.trc' );
file_not_exists_ok( $trc, 'tracker file does not exist yet' );
my $t = $class->name->new(
home => $home,
config => $c2,
_current_project => 'other_project',
t/Command/core.t view on Meta::CPAN
trap { $t->cmd_start };
is( $trap->stdout,
"Worked 00:15:00 on some_project\nStarted working on other_project at 14:30:00\n",
'start: output'
);
file_not_empty_ok( $trc, 'tracker file exists' );
my $task = App::TimeTracker::Data::Task->load(
$tracker_dir->file( $basetf . '141500_some_project.trc' )->stringify );
is( $task->seconds, 15 * 60, 'prev task seconds' );
is( $task->duration, '00:15:00', 'prev task duration' );
App-Todo
view release on metacpan or search on metacpan
bin/todo.pl view on Meta::CPAN
$t->{requestor} =~ s/<nobody>/<nobody\@localhost>/;
my ($owner) = Email::Address->parse($t->{owner});
my ($requestor) = Email::Address->parse($t->{requestor});
my $not_owner = lc $owner->address ne lc $config{email};
my $not_requestor = lc $requestor->address ne lc $config{email};
if( $t->{group} || $not_owner || $not_requestor ) {
print color('reset'), ' ', color('dark');
print '(';
print join(", ",
$t->{group} || "personal",
$not_requestor ? "for " . $requestor->name : (),
$not_owner ? "by " . $owner->name : (),
);
print ')';
}
print color('reset');
App-Toodledo
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]/,
);
}
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/Toodledo.pm');
App-TypecastTemplates
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/TypecastTemplates.pm');
App-Unix-RPasswd
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use strict;
use warnings;
use Test::More tests => 7;
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('script/rpasswd');
module_boilerplate_ok('lib/App/Unix/RPasswd.pm');
( run in 1.350 second using v1.01-cache-2.11-cpan-39bf76dae61 )