Result:
found more than 916 distributions - search limited to the first 2001 files matching your query
( run in 0.469 )
App-remotediff
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/remotediff.pm');
App-renlikewd
view release on metacpan or search on metacpan
script/renlikewd view on Meta::CPAN
off dry-run mode.
_
args => {
file => {
schema => 'filename::default_only_file_not_dir_in_curdir*',
pos => 0,
},
parents => {
schema => 'posint*',
summary => 'Instead of working directory, use its parent directory (if parents=1) or grandparent directory (if parents=2) and so on',
App-reposdb
view release on metacpan or search on metacpan
script/_reposdb-inline view on Meta::CPAN
## References:
#
## http://wiki.answers.com/Q/What_are_some_examples_of_singular_nouns_ending_in_S
## http://virtuallinguist.typepad.com/the_virtual_linguist/2009/10/singular-nouns-ending-in-s.html
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_reposdb-inline view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
## A store of words which end in "oe" and whose plural ends in "oes".
#
## References
## http://www.scrabblefinder.com/ends-with/oe/
script/_reposdb-inline view on Meta::CPAN
#sub to_singular
#{
# my ($word) = @_;
# # The return value.
# my $singular = $word;
# if (! $not_plural{$word}) {
# # The word is not in the list of exceptions.
# if ($plural{$word}) {
# # The word has an irregular plural, like "children", or
# # "geese", so look up the singular in the table.
# $singular = $plural{$word};
App-revealup
view release on metacpan or search on metacpan
share/revealjs/plugin/highlight/highlight.esm.js view on Meta::CPAN
function e(t){return(e="function"==typeof Symbol&&"symbol"==typeof Symbol.iterator?function(e){return typeof e}:function(e){return e&&"function"==typeof Symbol&&e.constructor===Symbol&&e!==Symbol.prototype?"symbol":typeof e})(t)}function t(e,t){if(!(...
/*!
* reveal.js plugin that adds syntax highlight support.
*/
var of={id:"highlight",HIGHLIGHT_STEP_DELIMITER:"|",HIGHLIGHT_LINE_DELIMITER:",",HIGHLIGHT_LINE_RANGE_DELIMITER:"-",hljs:rf,init:function(e){var t=e.getConfig().highlight||{};t.highlightOnLoad="boolean"!=typeof t.highlightOnLoad||t.highlightOnLoad,t....
App-rsync-new2old
view release on metacpan or search on metacpan
script/rsync-new2old view on Meta::CPAN
return ($max_mtime, $max_path);
}
($mtime, $path);
}
my %Opts = (create_target_if_not_exists => 0);
Getopt::Long::Configure('bundling', 'pass_through', 'no_auto_abbrev', 'permute');
GetOptions(
'help|h|?' => sub {
print <<'_';
script/rsync-new2old view on Meta::CPAN
no warnings 'once';
print "rsync-new2old version ", ($main::VERSION || "dev"),
($main::DATE ? " ($main::DATE)" : ""), "\n";
exit 0;
},
'create-target-if-not-exists' => \$Opts{create_target_if_not_exists},
);
my ($source, $target);
for (@ARGV) {
if (/\A-/) {
script/rsync-new2old view on Meta::CPAN
die "rsync-new2old: Can't find source '$source', must already exist and a local path\n"
unless -e $source;
my ($abs_source, $source_leaf, $source_ends_in_slash) = process_path($source);
my ($abs_target, $target_leaf, $target_ends_in_slash) = process_path($target);
my $real_target = $source_ends_in_slash ? $target : "$abs_target/$source_leaf";
if ($Opts{create_target_if_not_exists}) {
unless (-e $real_target) {
if (-d $source) {
make_path($real_target) or die "rsync-new2old: Can't make_path '$real_target': $!\n";
} else {
open my $fh, ">", $real_target or die "rsync-new2old: Can't create file '$real_target': $!\n";
App-sh2p
view release on metacpan or search on metacpan
lib/App/sh2p/Builtins.pm view on Meta::CPAN
# There are a lot of functions in here,
# try to keep them in alphabetic order
#
########################################################
# For builtins/functionality that cannot be implemented
sub not_implemented {
error_out "The following line cannot be translated:";
error_out "@_";
return scalar(@_);
}
lib/App/sh2p/Builtins.pm view on Meta::CPAN
1;
__END__
=head1 Summary
package App::sh2p::Builtins;
sub not_implemented
# For builtins/functionality that cannot be implemented
sub one4one
sub general_arg_list
sub advise
sub do_autoload
App-smtpstatus
view release on metacpan or search on metacpan
lib/App/smtpstatus.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/smtpstatus.pm view on Meta::CPAN
=item * B<description.min> => I<str>
Only return records where the 'description' field is greater than or equal to specified value.
=item * B<description.not_contains> => I<str>
Only return records where the 'description' field does not contain specified text.
=item * B<description.not_in> => I<array[str]>
Only return records where the 'description' field is not in the specified values.
=item * B<description.xmax> => I<str>
lib/App/smtpstatus.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>
App-tonematch
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/tonematch.pm');
App-unbelievable
view release on metacpan or search on metacpan
lib/App/unbelievable/CLI.pm view on Meta::CPAN
# List the routes
# TODO get all GET routes from app
my @routes;
# Get and filter the routes from /content.
push @routes, File::Find::Rule->readable->file->not_name('.*')->relative
->in(_here('content'));
if($opts->{route_style} eq 'htmlfile') {
s{\.[^\.]+$}{.html} foreach @routes;
} elsif($opts->{route_style} eq 'dir') {
s{\.[^\.]+$}{/} foreach @routes;
App-uricolor
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/uricolor.pm');
App-used
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/used');
App-watchdo
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('lib/App/watchdo.pm');
App-winmaildat2tar
view release on metacpan or search on metacpan
module_maker = "ModuleBuildTiny"
static_install = "auto"
[release]
do_not_upload_to_cpan = 0
App-wmiirc
view release on metacpan or search on metacpan
lib/App/wmiirc/Tag.pm view on Meta::CPAN
sub event_urgent_tag {
my($self, $type, $tag) = @_;
wmiir "/lbar/$tag", $color{alert};
}
sub event_not_urgent_tag {
my($self, $type, $tag) = @_;
my($cur) = wmiir "/tag/sel/ctl";
wmiir "/lbar/$tag", $cur eq $tag ? $color{focus} : $color{norm};
}
App-wordlist
view release on metacpan or search on metacpan
script/_wordlist 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/_wordlist 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);
App-wrapspeak
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/App/wrapspeak.pm');
App-wsgetmail
view release on metacpan or search on metacpan
} ]}');
}
sub get_mocked_token_response {
return HTTP::Response->new('200', 'OK', ['Content-Type' => 'application/json'],
'{"token_type":"Bearer","scope":"email Mail.Read Mail.Read.Shared Mail.ReadWrite Mail.ReadWrite.Shared openid User.Read","expires_in":"3599","ext_expires_in":"3599","expires_on":"1591286563","not_before":"1591282663","r...
);
}
sub get_mocked_messages_response {
App-xml_grep2
view release on metacpan or search on metacpan
lib/App/Xml_grep2.pm view on Meta::CPAN
sub file_list
{ my $self= shift;
my $rules= File::Find::Rule->new;
if( $self->{include}) { $rules->name( $self->{include}); }
if( $self->{exclude}) { $rules->not_name( $self->{exclude}); }
unless( $self->{recursive}) { $rules->maxdepth( 0); }
$rules->not_directory();
my @files= $rules->in( @_);
return @files;
}
App-zipdetails
view release on metacpan or search on metacpan
bin/zipdetails view on Meta::CPAN
out1 "[Bit 26]", "1 'Set GID'"
if $rwx & 0x400 ;
out1 "[Bit 27]", "1 'Set UID'"
if $rwx & 0x800 ;
my $not_rwx = (($native_attrib >> 12) & 0xF);
if ($not_rwx)
{
state $masks = {
0x0C => 'Socket', # 0x0C 0b1100
0x0A => 'Symbolic Link', # 0x0A 0b1010
0x08 => 'Regular File', # 0x08 0b1000
bin/zipdetails view on Meta::CPAN
0x04 => 'Directory', # 0x04 0b0100
0x02 => 'Character Device', # 0x02 0b0010
0x01 => 'FIFO', # 0x01 0b0001
};
my $got = $masks->{$not_rwx} // 'Unknown Unix attrib' ;
out1 "[Bits 28-31]", Value_C($not_rwx) . " '$got'"
}
}
}
elsif ($native_attrib)
{
bin/zipdetails view on Meta::CPAN
out1 " [Bit 10]", "1 'Set GID'"
if $rwx & 0x400 ;
out1 " [Bit 11]", "1 'Set UID'"
if $rwx & 0x800 ;
my $not_rwx = (($native_attrib >> 12) & 0xF);
if ($not_rwx)
{
state $masks = {
0x0C => 'Socket', # 0x0C 0b1100
0x0A => 'Symbolic Link', # 0x0A 0b1010
0x08 => 'Regular File', # 0x08 0b1000
bin/zipdetails view on Meta::CPAN
0x04 => 'Directory', # 0x04 0b0100
0x02 => 'Character Device', # 0x02 0b0010
0x01 => 'FIFO', # 0x01 0b0001
};
my $got = $masks->{$not_rwx} // 'Unknown Unix attrib' ;
out1 " [Bits 12-15]", Value_C($not_rwx) . " '$got'"
}
}
}
Applify
view release on metacpan or search on metacpan
t/autoload.t view on Meta::CPAN
plan skip_all => 'Skipped on 5.10.1' unless eval 'require 5.12.0;1';
my $app = eval <<"HERE" or die $@;
package main;
sub not_app_method { 1 }
use Applify;
sub bar { 1 }
sub AUTOLOAD { 'Autoloaded' }
app { 0 };
HERE
Apporo
view release on metacpan or search on metacpan
inc/Devel/PPPort.pm view on Meta::CPAN
nextchar|||
ninstr|||n
no_bareword_allowed|||
no_fh_allowed|||
no_op|||
not_a_number|||
nothreadhook||5.008000|
nuke_stacks|||
num_overflow|||n
oopsAV|||
oopsHV|||
inc/Devel/PPPort.pm 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
AproJo
view release on metacpan or search on metacpan
lib/AproJo/Front.pm view on Meta::CPAN
my $self = shift;
my $name = $self->param('name');
# Render $page
$self->render_not_found
unless $self->render(template => "front/$name");
}
1;
Arabic
view release on metacpan or search on metacpan
lib/Arabic.pm view on Meta::CPAN
[:space:] [\s\x0B]
[:upper:] [\x41-\x5A]
[\x41-\x5A\x61-\x7A] (/i modifier)
[:word:] [\x30-\x39\x41-\x5A\x5F\x61-\x7A]
[:xdigit:] [\x30-\x39\x41-\x46\x61-\x66]
[:^alnum:] ${Earabic::not_alnum}
[:^alpha:] ${Earabic::not_alpha}
[:^ascii:] ${Earabic::not_ascii}
[:^blank:] ${Earabic::not_blank}
[:^cntrl:] ${Earabic::not_cntrl}
[:^digit:] ${Earabic::not_digit}
[:^graph:] ${Earabic::not_graph}
[:^lower:] ${Earabic::not_lower}
${Earabic::not_lower_i} (/i modifier)
[:^print:] ${Earabic::not_print}
[:^punct:] ${Earabic::not_punct}
[:^space:] ${Earabic::not_space}
[:^upper:] ${Earabic::not_upper}
${Earabic::not_upper_i} (/i modifier)
[:^word:] ${Earabic::not_word}
[:^xdigit:] ${Earabic::not_xdigit}
---------------------------------------------------------------
\b and \B are redefined as follows to backward compatibility.
---------------------------------------------------------------
lib/Arabic.pm view on Meta::CPAN
${Earabic::eW} qr{(?>[^0-9A-Z_a-z])};
${Earabic::eH} qr{(?>[^\x09\x20])};
${Earabic::eV} qr{(?>[^\x0A\x0B\x0C\x0D])};
${Earabic::eR} qr{(?>\x0D\x0A|[\x0A\x0D])};
${Earabic::eN} qr{(?>[^\x0A])};
${Earabic::not_alnum} qr{(?>[^\x30-\x39\x41-\x5A\x61-\x7A])};
${Earabic::not_alpha} qr{(?>[^\x41-\x5A\x61-\x7A])};
${Earabic::not_ascii} qr{(?>[^\x00-\x7F])};
${Earabic::not_blank} qr{(?>[^\x09\x20])};
${Earabic::not_cntrl} qr{(?>[^\x00-\x1F\x7F])};
${Earabic::not_digit} qr{(?>[^\x30-\x39])};
${Earabic::not_graph} qr{(?>[^\x21-\x7F])};
${Earabic::not_lower} qr{(?>[^\x61-\x7A])};
${Earabic::not_lower_i} qr{(?>[^\x41-\x5A\x61-\x7A])}; # Perl 5.16 compatible
# ${Earabic::not_lower_i} qr{(?>[\x00-\xFF])}; # older Perl compatible
${Earabic::not_print} qr{(?>[^\x20-\x7F])};
${Earabic::not_punct} qr{(?>[^\x21-\x2F\x3A-\x3F\x40\x5B-\x5F\x60\x7B-\x7E])};
${Earabic::not_space} qr{(?>[^\s\x0B])};
${Earabic::not_upper} qr{(?>[^\x41-\x5A])};
${Earabic::not_upper_i} qr{(?>[^\x41-\x5A\x61-\x7A])}; # Perl 5.16 compatible
# ${Earabic::not_upper_i} qr{(?>[\x00-\xFF])}; # older Perl compatible
${Earabic::not_word} qr{(?>[^\x30-\x39\x41-\x5A\x5F\x61-\x7A])};
${Earabic::not_xdigit} qr{(?>[^\x30-\x39\x41-\x46\x61-\x66])};
# This solution is not perfect. I beg better solution from you who are reading this.
${Earabic::eb} qr{(?:\A(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[0-9A-Z_a-z])|(?<=[0-9A-Z_a-z])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]|\z))};
${Earabic::eB} qr{(?:(?<=[0-9A-Z_a-z])(?=[0-9A-Z_a-z])|(?<=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF])(?=[\x00-\x2F\x40\x5B-\x5E\x60\x7B-\xFF]))};
---------------------------------------------------------------------------------------------------------------------------------------------------------
Archive-Any-Lite
view release on metacpan or search on metacpan
t/30_fork.t view on Meta::CPAN
$pm->start and next;
my $dir = tempdir(DIR => $tmp, CLEANUP => 1);
my $type = qw(lib)[int(rand(1))];
my $ext = qw(tar.gz tar.bz2 tgz zip)[int(rand(4))];
my ($ok, $not_ok) = (0, 0);
if (my $archive = Archive::Any::Lite->new("$FindBin::Bin/$type.$ext")) {
note "extracting $dir/$type.$ext";
$archive->extract($dir);
my @files = $archive->files;
for (@files) {
my $file = File::Spec->catfile($dir, $_);
if (-e $file) {
$ok++;
}
else {
$not_ok++;
diag "[$i] $type: $file does not exist";
}
}
}
else {
$not_ok = 1;
}
$pm->finish($not_ok, [$ok, $not_ok]);
}
$pm->wait_all_children;
ok !$fail, "pass: $pass fail: $fail";
Archive-Any-Plugin-Rar
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/Archive/Any/Plugin/Rar.pm');
Archive-Any
view release on metacpan or search on metacpan
t/Acme-POE-Knee-1.10.zip
t/Any.t
t/LoadHtml.5_0.tar.gz
t/fail.t
t/garbage.foo
t/im_not_really_a.zip
t/impolite.tar.gz
t/lib.tgz
t/lib.zip
t/naughty.hominawoof
t/naughty.tar
t/naughty.tar.gz
t/not_a_zip.zip
t/type.t
t/your-0.01.tar.gz
tidyall.ini
xt/author/pod-spell.t
xt/author/pod-syntax.t
Archive-Ar-Libarchive
view release on metacpan or search on metacpan
xs/ppport.h view on Meta::CPAN
ASCTIME_R_PROTO|5.008000|5.008000|Vn
assert|5.003007||Viu
__ASSERT_|5.019007|5.008008|p
ASSERT_CURPAD_ACTIVE|5.008001||Viu
ASSERT_CURPAD_LEGAL|5.008001||Viu
assert_not_glob|5.009004||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.007002|5.007002|nu
atfork_unlock|5.007002|5.007002|nu
xs/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_p8|5.033003||Viu
NOTHING_t8_pb|5.033003||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_p8|5.033003||Viu
NPOSIXA_t8_pb|5.033003||Viu
xs/ppport.h view on Meta::CPAN
WHILEM_tb_pb|5.033003||Viu
WIDEST_UTYPE|5.015004|5.003007|poVnu
WIFEXITED|5.008001||Viu
WIFSIGNALED|5.008001||Viu
WIFSTOPPED|5.008001||Viu
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|
xs/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
Archive-ByteBoozer
view release on metacpan or search on metacpan
lib/Archive/ByteBoozer.pm view on Meta::CPAN
sub crunch {
my $params = { @_ };
validate(
@_, {
source => { type => HANDLE, isa => 'IO::Handle', callbacks => {
is_not_the_same_as_target => sub { exists $_[1]->{target} && refaddr $_[0] != refaddr $_[1]->{target} },
} },
target => { type => HANDLE, isa => 'IO::Handle', callbacks => {
is_not_the_same_as_source => sub { exists $_[1]->{source} && refaddr $_[0] != refaddr $_[1]->{source} },
} },
attach_decruncher => { type => SCALAR, optional => 1, callbacks => {
is_valid_memory_address => sub { looks_like_number $_[0] && $_[0] >= 0x0000 && $_[0] <= 0xffff },
} },
make_executable => { type => SCALAR, optional => 1, callbacks => {
Archive-Extract-Libarchive
view release on metacpan or search on metacpan
lib/Archive/Extract/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|||
lib/Archive/Extract/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
Archive-Har
view release on metacpan or search on metacpan
t/firebug_cookies_n_cache.t view on Meta::CPAN
}
],
"content": {
"mimeType": "text/css",
"size": 33756,
"text": "/* Copyright 2012 Google Inc. All Rights Reserved. */\n.goog-inline-block{position:relative;display:-moz-inline-box;display:inline-block}* html .goog-inline-block{display:inline}*:first-child+html .goog-inline-block{display:inlin...
},
"redirectURL": "",
"headersSize": 387,
"bodySize": 5128
},
( run in 0.469 second using v1.01-cache-2.11-cpan-cc502c75498 )