Result:
found more than 916 distributions - search limited to the first 2001 files matching your query ( run in 0.557 )


Archive-Ipkg
1 match

 view release on metacpan or  search on metacpan

t/3_strict_properties.t  view on Meta::CPAN 

my $ipkg = Archive::Ipkg->new();


# name =~ [a-z0-9.+-]+
ok(!defined $ipkg->name("Uppercase_Is_Evil"));
ok(!defined $ipkg->name("underscore_not_allowed"));
ok(!defined $ipkg->name("symbols#also'bad"));
ok(!defined $ipkg->name("ümläut-vérbötèn"));
ok(!defined $ipkg->name("spaces. urgs."));

# version =~ [a-zA-Z0-9.+]* , with at least one digit
# initially, version is '', but if you set an invalid one, it will be
# set to undef to warn you something went wrong
ok(!defined $ipkg->version("nodigits_is_not_nice"));
ok(!defined $ipkg->name("symbols#also'bad"));
ok(!defined $ipkg->name("ümläut-vérbötèn"));
ok(!defined $ipkg->name("spaces. urgs."));

# section; 21 tests

 view all matches for this distribution


Archive-Libarchive-Any
1 match

 view release on metacpan or  search on metacpan

t/common_00_diag.t  view on Meta::CPAN 

use Archive::Libarchive::Any;

pass 'okay';

my $fn;
my $not_first;

$fn = File::Spec->catfile(
  dirname( __FILE__ ),
  File::Spec->updir,
  'inc',
  'constants.txt'
);

$not_first = 0;

diag '';
diag '';

foreach my $const (do { open my $fh, '<', $fn; <$fh> })
{
  chomp $const;
  unless(Archive::Libarchive::Any->can($const))
  {
    diag "missing constants:" unless $not_first++;
    diag " - $const";
  }
}

if($not_first)
{
  diag '';
  diag '';
}

t/common_00_diag.t  view on Meta::CPAN 

  File::Spec->updir,
  'inc',
  'functions.txt'
);

$not_first = 0;

foreach my $func (do { open my $fh, '<', $fn; <$fh> })
{
  chomp $func;
  unless(Archive::Libarchive::Any->can($func))
  {
    diag "missing functions:" unless $not_first++;
    diag " - $func";
  }
}

if($not_first)
{
  diag '';
  diag '';
}

 view all matches for this distribution


Archive-Libarchive-FFI
1 match

 view release on metacpan or  search on metacpan

t/common_00_diag.t  view on Meta::CPAN 

use Archive::Libarchive::FFI;

pass 'okay';

my $fn;
my $not_first;

$fn = File::Spec->catfile(
  dirname( __FILE__ ),
  File::Spec->updir,
  'inc',
  'constants.txt'
);

$not_first = 0;

diag '';
diag '';

foreach my $const (do { open my $fh, '<', $fn; <$fh> })
{
  chomp $const;
  unless(Archive::Libarchive::FFI->can($const))
  {
    diag "missing constants:" unless $not_first++;
    diag " - $const";
  }
}

if($not_first)
{
  diag '';
  diag '';
}

t/common_00_diag.t  view on Meta::CPAN 

  File::Spec->updir,
  'inc',
  'functions.txt'
);

$not_first = 0;

foreach my $func (do { open my $fh, '<', $fn; <$fh> })
{
  chomp $func;
  unless(Archive::Libarchive::FFI->can($func))
  {
    diag "missing functions:" unless $not_first++;
    diag " - $func";
  }
}

if($not_first)
{
  diag '';
  diag '';
}

 view all matches for this distribution


Archive-Libarchive-XS
3 results

 view release on metacpan or  search on metacpan

maint/before_build.pl  view on Meta::CPAN 

    archive_entry_stat64
  );

  delete $symbols{$_} for @deprecated;

  my @not_real = qw(
    archive_acl
    archive_read
    archive_read_support_XXX
    archive_write_disk
    archive_read_open_XXX
    archive_platform
    archive_read_disk
    archive_entry_linkresolver
  );

  delete $symbols{$_} for @not_real;

  my @typedefs = qw(
    archive_entry
    archive_match
    archive_read_callback

 view all matches for this distribution


Archive-Libarchive
7 results

 view release on metacpan or  search on metacpan

lib/Archive/Libarchive.pm  view on Meta::CPAN 

$ffi->attach( archive_liblzma_version => [] => 'string' );
$ffi->attach( archive_version_details => [] => 'string' );
$ffi->attach( archive_version_number =>  [] => 'int'    );
$ffi->attach( archive_version_string =>  [] => 'string' );
$ffi->attach( archive_zlib_version =>    [] => 'string' );
$ffi->ignore_not_found(1);
$ffi->attach( archive_libzstd_version => [] => 'string' );
$ffi->ignore_not_found(0);


sub versions ($class)
{
  my %v = (

 view all matches for this distribution


Archive-Peek-Libarchive
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||

ppport.h  view on Meta::CPAN 

watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn

ppport.h  view on Meta::CPAN 

#  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

 view all matches for this distribution


Archive-RPM
1 match

 view release on metacpan or  search on metacpan

xt/author/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;

xt/author/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/Archive/RPM.pm');

 view all matches for this distribution


Archive-Raw
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
noperl_die|||vn
not_a_number|||
not_incrementable|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||

ppport.h  view on Meta::CPAN 

watch|||
whichsig_pvn||5.015004|
whichsig_pv||5.015004|
whichsig_sv||5.015004|
whichsig|||
win32_croak_not_implemented|||n
with_queued_errors|||
wrap_op_checker||5.015008|
write_to_stderr|||
xs_boot_epilog|||
xs_handshake|||vn

ppport.h  view on Meta::CPAN 

#  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

 view all matches for this distribution


Archive-Rgssad
1 match

 view release on metacpan or  search on metacpan

t/boilerplate.t  view on Meta::CPAN 

use warnings FATAL => 'all';
use Test::More;

plan tests => 6;

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/Archive/Rgssad.pm');
  module_boilerplate_ok('lib/Archive/Rgss3a.pm');

 view all matches for this distribution


Archive-StringToZip
1 match

 view release on metacpan or  search on metacpan

t/boilerplate.t  view on Meta::CPAN 


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

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

    my %violated;

t/boilerplate.t  view on Meta::CPAN 

    } else {
        pass("$filename contains no boilerplate text");
    }
}

not_in_file_ok(README =>
    "The README is used..."       => qr/The README is used/,
    "'version information here'"  => qr/to provide version information/,
);

not_in_file_ok(Changes =>
    "placeholder date/time"       => qr(Date/time)
);

sub module_boilerplate_ok {
    my ($module) = @_;
    not_in_file_ok($module =>
        'the great new $MODULENAME'   => qr/ - The great new /,
        'boilerplate description'     => qr/Quick summary of what the module/,
        'stub function definition'    => qr/function[12]/,
    );
}

 view all matches for this distribution


Archive-Tar-Builder
1 match

 view release on metacpan or  search on metacpan

src/ppport.h  view on Meta::CPAN 

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

src/ppport.h  view on Meta::CPAN 

#  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

 view all matches for this distribution


Archive-Unzip-Burst
8 results

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

nextchar|||
ninstr|||
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsCV|||

ppport.h  view on Meta::CPAN 

#  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

 view all matches for this distribution


Archive-Zip-Crypt
1 match

 view release on metacpan or  search on metacpan

t/boilerplate.t  view on Meta::CPAN 

use 5.006;
use strict;
use warnings;
use Test::More tests => 3;

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

    my %violated;

t/boilerplate.t  view on Meta::CPAN 

    }
}

sub module_boilerplate_ok {
    my ($module) = @_;
    not_in_file_ok($module =>
        'the great new $MODULENAME'   => qr/ - The great new /,
        'boilerplate description'     => qr/Quick summary of what the module/,
        'stub function definition'    => qr/function[12]/,
    );
}

TODO: {
  local $TODO = "Need to replace the boilerplate text";

  not_in_file_ok(README =>
    "The README is used..."       => qr/The README is used/,
    "'version information here'"  => qr/to provide version information/,
  );

  not_in_file_ok(Changes =>
    "placeholder date/time"       => qr(Date/time)
  );

  module_boilerplate_ok('lib/Archive/Zip/Crypt.pm');

 view all matches for this distribution


Archive-Zip
3 results

 view release on metacpan or  search on metacpan

t/04_readmember.t  view on Meta::CPAN 


$member = $zip->memberNamed('string.txt');
$fh     = $member->readFileHandle();
ok($fh);

my ($line, $not_ok, $ret, $buffer);
while (defined($line = $fh->getline())) {
    $not_ok = 1 if ($line ne $data[$fh->input_line_number() - 1]);
}
SKIP: {
    if ($^O eq 'MSWin32') {
        skip("Ignoring failing test on Win32", 1);
    }
    ok(!$not_ok);
}

my $member_read = Archive::Zip::MemberRead->new($zip, 'string.txt');
$line = $member_read->getline({'preserve_line_ending' => 1});
is($line, "Line 1\n", 'Preserve line ending');

 view all matches for this distribution


Arcus-Client
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

__ASSERT_|5.019007|5.008008|p
ASSERT_CURPAD_ACTIVE|5.008001||Viu
ASSERT_CURPAD_LEGAL|5.008001||Viu
ASSERT_IS_LITERAL|||Viu
ASSERT_IS_PTR|||Viu
assert_not_glob|5.009004||Viu
ASSERT_NOT_PTR|5.035004||Viu
assert_not_ROK|5.008001||Viu
assert_uft8_cache_coherent|5.013003||Viu
assignment_type|5.021005||Viu
ASSUME|5.019006|5.003007|p
atfork_lock|5.007003|5.007003|nu
atfork_unlock|5.007003|5.007003|nu

ppport.h  view on Meta::CPAN 

noperl_die|5.021006||vVniu
NORETURN_FUNCTION_END|5.009003||Viu
NORMAL|5.003007||Viu
NOSTR|5.027010||Viu
NO_TAINT_SUPPORT|5.017006||Viu
not_a_number|5.005000||Viu
NOTE3|5.027001||Viu
NOTHING|5.003007||Viu
NOTHING_t8|5.035004||Viu
NOTHING_t8_p8|5.033003||Viu
NOTHING_t8_pb|5.033003||Viu
NOTHING_tb|5.035004||Viu
NOTHING_tb_p8|5.033003||Viu
NOTHING_tb_pb|5.033003||Viu
nothreadhook|5.008000|5.008000|
notify_parser_that_changed_to_utf8|5.025010||Viu
not_incrementable|5.021002||Viu
NOT_IN_PAD|5.005000||Viu
NOT_REACHED|5.019006|5.003007|poVnu
NPOSIXA|5.017003||Viu
NPOSIXA_t8|5.035004||Viu
NPOSIXA_t8_p8|5.033003||Viu

ppport.h  view on Meta::CPAN 

WHILEM_t8_pb|5.033003||Viu
WHILEM_tb|5.035004||Viu
WHILEM_tb_p8|5.033003||Viu
WHILEM_tb_pb|5.033003||Viu
WIDEST_UTYPE|5.015004|5.003007|poVnu
win32_croak_not_implemented|5.017006||Vniu
WIN32SCK_IS_STDSCK|5.007001||Viu
win32_setlocale|5.027006||Viu
withinCOUNT|5.031004||Viu
withinCOUNT_KNOWN_VALID|5.033005||Viu
WITH_LC_NUMERIC_SET_TO_NEEDED|5.031003|5.031003|

ppport.h  view on Meta::CPAN 

#    include <patchlevel.h>
#  endif
#  if     ! defined(PERL_VERSION)                                               \
     &&   ! defined(PERL_VERSION_MAJOR)                                         \
     && ( ! defined(SUBVERSION) || ! defined(PATCHLEVEL) )
#    include <could_not_find_Perl_patchlevel.h>
#  endif
#endif

#ifdef PERL_VERSION_MAJOR
#  define D_PPP_MAJOR  PERL_VERSION_MAJOR

 view all matches for this distribution


Arepa
1 match

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN 

templates/dashboard/index.html.ep
templates/error.html.ep
templates/exception.html.ep
templates/keys/index.html.ep
templates/layouts/default.html.ep
templates/not_found.html.ep
templates/queue/build_log.html.ep
templates/repository/index.html.ep
users.yml-sample
web/cgi/arepa.cgi
web/css/main.css

 view all matches for this distribution


Argv
1 match

 view release on metacpan or  search on metacpan

Argv.html  view on Meta::CPAN 

<p>Without exhaustive testing, this is believed to work in a well-behaved
manner on Unix.</p>
<p>However, on Windows a few caveats apply. These appear to be limitations
in the underlying implementation of both Perl and Windows.</p>
<ol>
<li><strong><a name="windows_has_no_concept_of_sigpipe_thus_just_closing_the_pipe_handle_will_not_necessarily_cause_the_child_process_to_quit_bummer" class="item">Windows has no concept of SIGPIPE. Thus, just closing the pipe handle
will not necessarily cause the child process to quit. Bummer :-(.</a></strong>

</li>
<li><strong><a name="stderr" class="item">Sometimes an extra process is inserted. For example, if stderr
has been redirected using $obj-&gt;<code>stderr(1)</code> (send stderr to stdout), this

 view all matches for this distribution


Arithmetic-PaperAndPencil
1 match

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


  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/Arithmetic/PaperAndPencil.pm');

 view all matches for this distribution


Ark
2 results

 view release on metacpan or  search on metacpan

lib/Ark/Form.pm  view on Meta::CPAN 


sub messages {
    my $self = shift;

    return {
        not_null => '[_1] is required',
        map({ $_ => '[_1] is invalid' } qw/
                int ascii date duplication length regex uint
                http_url
                email_loose
                hiragana jtel jzip katakana

 view all matches for this distribution


Array-APX
1 match

 view release on metacpan or  search on metacpan

lib/Array/APX.pm  view on Meta::CPAN 


# Binary operators with trick (0 instead of '' or undef) - these will be generated
# automatically, too:
my %special_binary_operators = (
    '==' => 'numeric_equal',
    '!=' => 'numeric_not_equal',
    '<'  => 'numeric_less_than',
    '<=' => 'numeric_less_or_equal',
    '>'  => 'numeric_greater_than',
    '>=' => 'numeric_greater_or_equal',
    'eq' => 'string_equal',
    'ne' => 'string_not_equal',
    'lt' => 'string_less_than',
    'le' => 'string_less_or_equal',
    'gt' => 'string_greater_than',
    'ge' => 'string_greater_or_equal',
);

 view all matches for this distribution


Array-AsObject
5 results

 view release on metacpan or  search on metacpan

lib/Array/AsObject.pm  view on Meta::CPAN 

      return 0  if ($obj1->count($ele) != $obj2->count($ele));
   }
   return 1;
}

sub not_equal {
   return 1 - is_equal(@_);
}

sub is_subset {
   my($obj1,$obj2,$unique) = @_;

lib/Array/AsObject.pm  view on Meta::CPAN 

      return 0  if ($obj2->count($ele) > $obj1->count($ele));
   }
   return 1;
}

sub not_subset {
   return 1 - is_subset(@_);
}

sub symmetric_difference {
   my($obj1,$obj2,$unique) = @_;

 view all matches for this distribution


Array-Columnize
2 results

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN 


	* Build.PL, Changes: Add the PERL_MB_NOSIGN env var.  This is to disable signing a package.

2011-10-29  Shlomi Fish <shlomif@iglu.org.il>

	* Build.PL, META.yml: Made Build.PL non-executable.  See: http://cpants.perl.org/kwalitee.html#buildtool_not_executable for why.

2011-10-28  rocky <rocky@cpan.org>

	* Build.PL, lib/Array/Columnize.pm: build_requires =>
	configure_requires

 view all matches for this distribution


Array-Merge-Unique
1 match

 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/Array/Merge/Unique.pm');

 view all matches for this distribution


Array-Objectify
1 match

 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/Array/Objectify.pm');

 view all matches for this distribution


Array-Shuffle
1 match

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN 

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

ppport.h  view on Meta::CPAN 

#  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

 view all matches for this distribution


Array-Splice
2 results

 view release on metacpan or  search on metacpan

t/boilerplate.t  view on Meta::CPAN 


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

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

    my %violated;

t/boilerplate.t  view on Meta::CPAN 

    } else {
        pass("$filename contains no boilerplate text");
    }
}

not_in_file_ok(README =>
    "The README is used..."       => qr/The README is used/,
    "'version information here'"  => qr/to provide version information/,
);

not_in_file_ok(Changes =>
    "placeholder date/time"       => qr(Date/time)
);

sub module_boilerplate_ok {
    my ($module) = @_;
    not_in_file_ok($module =>
        'the great new $MODULENAME'   => qr/ - The great new /,
        'boilerplate description'     => qr/Quick summary of what the module/,
        'stub function definition'    => qr/function[12]/,
    );
}

 view all matches for this distribution


Artifactory-Client
3 results

 view release on metacpan or  search on metacpan

lib/Artifactory/Client.pm  view on Meta::CPAN 

sub bad_checksum_search {
    my ( $self, %args ) = @_;
    return $self->_handle_search_props( 'badChecksum', %args );
}

=head2 artifacts_not_downloaded_since( notUsedSince => 12345, createdBefore => 12345, repos => [ 'repo1', 'repo2' ] )

Retrieve all artifacts not downloaded since the specified Java epoch in msec.

=cut

sub artifacts_not_downloaded_since {
    my ( $self, %args ) = @_;
    return $self->_handle_search_props( 'usage', %args );
}

=head2 artifacts_with_date_in_date_range( from => 12345, repos => [ 'repo1', 'repo2' ], dateFields => [ 'created' ] )

 view all matches for this distribution


Ascii-Text
1 match

 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/Ascii/Text.pm');

 view all matches for this distribution


Ask
1 match

 view release on metacpan or  search on metacpan

articles/ask-introduction.pod  view on Meta::CPAN 

   
   my $existance = single_choice(
      "To be, or not to be; that is the question.",
      choices => [
         [ be     => "Be" ],
         [ not_be => "Don't be" ],
      ],
   );

Ask also has functions for file selection, text entry (including hidden
text - passwords) and displaying information, warnings and errors.

 view all matches for this distribution


Asm-X86
1 match

 view release on metacpan or  search on metacpan

t/boilerplate.t  view on Meta::CPAN 


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

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

    my %violated;

t/boilerplate.t  view on Meta::CPAN 

    } else {
        pass("$filename contains no boilerplate text");
    }
}

not_in_file_ok(README =>
    "The README is used..."       => qr/The README is used/,
    "'version information here'"  => qr/to provide version information/,
);

not_in_file_ok(Changes =>
    "placeholder date/time"       => qr(Date/time)
);

sub module_boilerplate_ok {
    my ($module) = @_;
    not_in_file_ok($module =>
        'the great new $MODULENAME'   => qr/ - The great new /,
        'boilerplate description'     => qr/Quick summary of what the module/,
        'stub function definition'    => qr/function[12]/,
    );
}

 view all matches for this distribution


( run in 0.557 second using v1.01-cache-2.11-cpan-cc502c75498 )