not_ results from the CPAN

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 all matches for this distribution

App-Navegante

3 results

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 all matches for this distribution

App-Netdisco

12 results

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 all matches for this distribution

App-NoPAN

1 match

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 all matches for this distribution

App-NutrientUtils

2 results


=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>


=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>


=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>


=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>


=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>


=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>


=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>


=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 all matches for this distribution

App-Office-Contacts-Donations

1 match

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 all matches for this distribution

App-Open

2 results

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 all matches for this distribution

App-OpenMbox-Client

1 match

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;

    }
}

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 all matches for this distribution

App-OpenMbox-Test

1 match

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;

    }
}

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 all matches for this distribution

App-OpenMbox

1 match

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;

    }
}

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 all matches for this distribution

App-PAIA

2 results

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 all matches for this distribution

App-PGMultiDeploy

1 match

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;

    }
}

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 all matches for this distribution

App-PM-Announce

1 match

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 all matches for this distribution

App-PRT

6 results

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 all matches for this distribution

App-PS1

1 match

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;

    }
}

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 all matches for this distribution

App-PasswordManager

1 match

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 {

view all matches for this distribution

App-PerlCalc

1 match

t/basic.t view on Meta::CPAN

# Test::Script::Run wants the exes in bin/ or t/bin/
mkdir 't/bin';
symlink '../../pc', 't/bin/pc';

run_ok('pc', ["1+3"], 'pc runs ok');
run_not_ok('pc', ["david rules"], 'pc detects syntax errors');

view all matches for this distribution

App-PerlXLock

1 match


    my @pkgparts = split(/::/, $o->{API}{pkg});
    my $realname = File::Spec->catfile(@pkgparts) . '.pm';
    my $realname_unix = File::Spec::Unix->catfile(@pkgparts) . '.pm';
    my $realpath = $INC{$realname_unix}
      or croak M27_module_not_indexed($realname_unix);

    my ($volume,$dir,$file) = File::Spec->splitpath($realpath);
    my @dirparts = File::Spec->splitdir($dir);
    pop @dirparts unless $dirparts[-1];
    push @dirparts, $file;

            local ($/, *CODE);
            open CODE, "< $code" or croak M06_code_file_failed_open($code);
            $o->{API}{code} = <CODE>;
        }
        else {
            croak M07_code_file_does_not_exist($code);
        }
    }
    else {
        $o->{API}{code} = $code;
    }

    croak M59_bad_inline_file($lang) unless $langfile =~ /^[A-Z]\w*$/;
    croak M60_no_inline_files()
      unless (defined $INC{File::Spec::Unix->catfile("Inline","Files.pm")} and
             $Inline::Files::VERSION =~ /^\d\.\d\d$/ and
             $Inline::Files::VERSION ge '0.51');
    croak M61_not_parsed() unless $lang = Inline::Files::get_filename($pkg);
    {
        no strict 'refs';
        local $/;
        $Inline::FILE = \*{"${pkg}::$langfile"};
#       open $Inline::FILE;

#==============================================================================
sub install {
    my ($module, $DIRECTORY);
    my $o = shift;

    croak M64_install_not_c($o->{API}{language_id})
      unless uc($o->{API}{language_id}) =~ /^(C|CPP|Java|Python|Ruby|Lisp|Pdlpp)$/ ;
    croak M36_usage_install_main()
      if ($o->{API}{pkg} eq 'main');
    croak M37_usage_install_auto()
      if $o->{CONFIG}{AUTONAME};

    my $o = shift;
    my @configs;
    for my $mod (@{$o->{CONFIG}{WITH}}) {
        my $ref = eval { $mod->Inline($o->{API}{language}); };
        croak M25_no_WITH_support($mod, $@) if $@;
        croak M65_WITH_not_lang($mod, $o->{API}{language}) unless $ref;
        push @configs, %$ref;
    }
    return @configs;
}


END
#'
}

sub M07_code_file_does_not_exist {
    my ($file) = @_;
    return <<END;
Inline assumes '$file' is a filename,
and that file does not exist.

Specifying VERSION option without NAME option is not permitted.

END
}

sub M27_module_not_indexed {
    my ($mod) = @_;
    return <<END;
You are attempting to load an extension for '$mod',
but there is no entry for that module in %INC.

You need to explicitly 'use Inline::Files;' before your 'use Inline'.

END
}

sub M61_not_parsed {
    return <<END;
It does not appear that your program has been properly parsed by Inline::Files.

END
}

You may need to reinstall this module.

END
}

sub M64_install_not_c {
    my ($lang) = @_;
    return <<END;
Invalid attempt to install an Inline module using the '$lang' language.

Only C and CPP (C++) based modules are currently supported.

END
}

sub M65_WITH_not_lang {
    my ($mod, $lang) = @_;
    return <<END;
$mod gave no 'with' hints for $lang.
END
}

view all matches for this distribution

App-PickRandomLines

4 results

script/_pick view on Meta::CPAN

#    my $q_ps =
#        $opt_ps eq '-' ? "\\-" :
#        $opt_ps eq '/' ? '/' :
#        quotemeta($opt_ps);
#
#    my $re_not_ps        = "[^$q_ps]";
#    my $re_not_dot       = "[^.]";
#    my $re_not_dot_or_ps = "[^.$q_ps]";
#
#    my @res;
#    my $p;
#    my $after_pathsep;
#    while ($str =~ /$RE_WILDCARD_BASH/g) {

script/_pick view on Meta::CPAN

#        } elsif (defined($p = $m{bash_joker})) {
#            if ($p eq '?') {
#                push @res, '.';
#            } elsif ($p eq '*' || $p eq '**' && !$opt_globstar) {
#                push @res, $opt_dotglob || (@res && !$after_pathsep) ?
#                    "$re_not_ps*" : "$re_not_dot_or_ps$re_not_ps*";
#            } elsif ($p eq '**') { # and with 'globstar' option set
#                if ($opt_dotglob) {
#                    push @res, '.*';
#                } elsif (@res && !$after_pathsep) {
#                    push @res, "(?:$re_not_ps*)(?:$q_ps+$re_not_dot_or_ps$re_not_ps*)*";
#                } else {
#                    push @res, "(?:$re_not_dot_or_ps$re_not_ps*)(?:$q_ps+$re_not_dot_or_ps$re_not_ps*)*";
#                }
#           }
#
#        } elsif (defined($p = $m{literal_brace_single_element})) {
#            push @res, quotemeta($p);

view all matches for this distribution

App-PipeFilter

1 match

eg/reddit.json view on Meta::CPAN

{"kind": "Listing", "data": {"modhash": "", "children": [{"kind": "t3", "data": {"domain": "i.imgur.com", "media_embed": {}, "levenshtein": null, "subreddit": "pics", "selftext_html": null, "selftext": "", "likes": null, "saved": false, "id": "hgb1p"...

view all matches for this distribution

App-PlatformInfo

1 match

script/platform-info view on Meta::CPAN

#        *JSON::PP::blessed = \&Scalar::Util::blessed;
#        *JSON::PP::reftype = \&Scalar::Util::reftype;
#        *JSON::PP::refaddr = \&Scalar::Util::refaddr;
#    }
#    else{ 
#        eval 'sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }';
#        *JSON::PP::blessed = sub {
#            local($@, $SIG{__DIE__}, $SIG{__WARN__});
#            ref($_[0]) ? eval { $_[0]->a_sub_not_likely_to_be_here } : undef;
#        };
#        require B;
#        my %tmap = qw(
#            B::NULL   SCALAR
#            B::HV     HASH

view all matches for this distribution

App-Prefix

1 match


use strict;
use warnings;
use Test::More tests => 2;

sub not_in_file_ok {
    my ($filename, %regex) = @_;
    open( my $fh, '<', $filename )
        or die "couldn't open $filename for reading: $!";

    my %violated;

    }
}

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/Prefix.pm');
  module_boilerplate_ok('bin/prefix');

view all matches for this distribution

App-ProcUtils

2 results

    cmdline_match => {
        schema => 're*',
        tags => ['category:filtering'],
        pos => 0,
    },
    cmdline_not_match => {
        schema => 're*',
        tags => ['category:filtering'],
    },
    exec_match => {
        schema => 're*',
        tags => ['category:filtering'],
    },
    exec_not_match => {
        schema => 're*',
        tags => ['category:filtering'],
    },
    pids => {
        'x.name.is_plural' => 1,

                goto MATCH if $is_or;
            } else {
                next ENTRY unless $is_or;
            }
        }
        if (defined $args{cmdline_not_match}) {
            if ($cmdline !~ /$args{cmdline_not_match}/) {
                goto MATCH if $is_or;
            } else {
                next ENTRY unless $is_or;
            }
        }

                goto MATCH if $is_or;
            } else {
                next ENTRY unless $is_or;
            }
        }
        if (defined $args{exec_not_match}) {
            if ($exec !~ /$args{exec_not_match}/) {
                goto MATCH if $is_or;
            } else {
                next ENTRY unless $is_or;
            }
        }


=item * B<cmdline_match> => I<re>

(No description)

=item * B<cmdline_not_match> => I<re>

(No description)

=item * B<code> => I<code>


=item * B<exec_match> => I<re>

(No description)

=item * B<exec_not_match> => I<re>

(No description)

=item * B<logic> => I<str> (default: "AND")


=item * B<cmdline_match> => I<re>

(No description)

=item * B<cmdline_not_match> => I<re>

(No description)

=item * B<code> => I<code>


=item * B<exec_match> => I<re>

(No description)

=item * B<exec_not_match> => I<re>

(No description)

=item * B<logic> => I<str> (default: "AND")


=item * B<cmdline_match> => I<re>

(No description)

=item * B<cmdline_not_match> => I<re>

(No description)

=item * B<code> => I<code>


=item * B<exec_match> => I<re>

(No description)

=item * B<exec_not_match> => I<re>

(No description)

=item * B<logic> => I<str> (default: "AND")

view all matches for this distribution

App-Prolix

1 match


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;

    } 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]/,
    );
}

view all matches for this distribution

App-Prove-Plugin-TraceUse

2 results

t/check_build_pl_for_module.t view on Meta::CPAN

        Test::Pod
        File::Slurp
        Tree::Simple
    /;

my @not_present_modules =
  qw/
        CGI
        Moose
        LWP::UserAgent
    /;

plan tests => $#present_modules +
  $#not_present_modules +
  2;

for (@present_modules) {
    ok( App::Prove::Plugin::TraceUse::_check_build_pl_for_module($_), "$_ found in Build.PL" );
}

for (@not_present_modules) {
    ok( !App::Prove::Plugin::TraceUse::_check_build_pl_for_module($_), "$_ not found in Build.PL" );
}

done_testing();

view all matches for this distribution

App-Qmail-DMARC

1 match

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;

    }
}

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/Qmail/DMARC.pm');

view all matches for this distribution

App-RL

15 results

lib/App/RL/Command/position.pm view on Meta::CPAN

        $cur_positions->add_pair( $info->{start}, $info->{end} );

        if ( $opt->{op} eq "overlap" ) {
            if ( $chrs->has( $info->{chr} ) ) {
                my $chr_single = $set_single->{ $info->{chr} };
                if ( $chr_single->intersect($cur_positions)->is_not_empty ) {
                    printf {$out_fh} "%s\n", App::RL::Common::encode_header($info);
                }
            }
        }

view all matches for this distribution

App-Rad-Plugin-Daemonize

1 match


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;

    }
}

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/Rad/Plugin/Daemonize.pm');

view all matches for this distribution

App-Rad-Plugin-TT

1 match


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;