Result:
found more than 916 distributions - search limited to the first 2001 files matching your query
( run in 0.541 )
App-genpw-base64
view release on metacpan or search on metacpan
script/_genpw-base64 view on Meta::CPAN
#@plural{@no_change} = @no_change;
#
#
#
#
#my @not_plural = (qw/
#Aries
#Charles
#Gonzales
#Hades
#Hercules
script/_genpw-base64 view on Meta::CPAN
#yes
#nucleus
#synchronous
#/);
#
#my %not_plural;
#
#@not_plural{@not_plural} = (1) x @not_plural;
#
#
#
#
#
script/_genpw-base64 view on Meta::CPAN
#
#sub to_singular
#{
# my ($word) = @_;
# my $singular = $word;
# if (! $not_plural{$word}) {
# if ($plural{$word}) {
# $singular = $plural{$word};
# }
# elsif ($word =~ /s$/) {
# if ($word =~ /'s$/) {
App-genpw-id
view release on metacpan or search on metacpan
script/_genpw-id 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/_genpw-id 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/_genpw-id 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-genpw-ind
view release on metacpan or search on metacpan
script/_genpw-ind 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/_genpw-ind 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/_genpw-ind 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-grep-email
view release on metacpan or search on metacpan
lib/App/grep/email.pm view on Meta::CPAN
comment_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
comment_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
comment_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
address_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
address_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
address_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
host_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
host_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
host_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
user_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
user_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
user_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
name_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
name_not_contains => {
schema => 'str*',
tags => ['category:email-criteria'],
},
name_matches => {
schema => 're*',
lib/App/grep/email.pm view on Meta::CPAN
index($email->comment , $fargs->{comment_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{comment_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->comment), lc($fargs->{comment_not_contains})) < 0 :
index($email->comment , $fargs->{comment_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{comment_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
index($email->address , $fargs->{address_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{address_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->address), lc($fargs->{address_not_contains})) < 0 :
index($email->address , $fargs->{address_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{address_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
index($email->host , $fargs->{host_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{host_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->host), lc($fargs->{host_not_contains})) < 0 :
index($email->host , $fargs->{host_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{host_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
index($email->user , $fargs->{user_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{user_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->user), lc($fargs->{user_not_contains})) < 0 :
index($email->user , $fargs->{user_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{user_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
index($email->name , $fargs->{name_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{name_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($email->name), lc($fargs->{name_not_contains})) < 0 :
index($email->name , $fargs->{name_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{name_matches}) {
lib/App/grep/email.pm view on Meta::CPAN
=item * B<address_contains> => I<str>
=item * B<address_matches> => I<re>
=item * B<address_not_contains> => I<str>
=item * B<color> => I<str> (default: "auto")
=item * B<comment_contains> => I<str>
=item * B<comment_matches> => I<re>
=item * B<comment_not_contains> => I<str>
=item * B<count> => I<true>
Supress normal output, return a count of matching lines.
lib/App/grep/email.pm view on Meta::CPAN
=item * B<host_contains> => I<str>
=item * B<host_matches> => I<re>
=item * B<host_not_contains> => I<str>
=item * B<ignore_case> => I<bool>
=item * B<invert_match> => I<bool>
lib/App/grep/email.pm view on Meta::CPAN
=item * B<name_contains> => I<str>
=item * B<name_matches> => I<re>
=item * B<name_not_contains> => I<str>
=item * B<quiet> => I<true>
=item * B<user_contains> => I<str>
=item * B<user_matches> => I<re>
=item * B<user_not_contains> => I<str>
=back
Returns an enveloped result (an array).
App-grep-url
view release on metacpan or search on metacpan
lib/App/grep/url.pm view on Meta::CPAN
scheme_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
scheme_not_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
scheme_matches => {
schema => 're*',
lib/App/grep/url.pm view on Meta::CPAN
host_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
host_not_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
host_matches => {
schema => 're*',
lib/App/grep/url.pm view on Meta::CPAN
path_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
path_not_contains => {
schema => 'str*',
tags => ['category:url-criteria'],
},
path_matches => {
schema => 're*',
lib/App/grep/url.pm view on Meta::CPAN
query_param_contains => {
schema => ['hash*', of=>'str*'],
tags => ['category:url-criteria'],
},
query_param_not_contains => {
schema => ['hash*', of=>'str*'],
tags => ['category:url-criteria'],
},
query_param_matches => {
schema => ['hash*', of=>'str*'], # XXX of re
lib/App/grep/url.pm view on Meta::CPAN
index($url->scheme , $fargs->{scheme_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{scheme_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($url->scheme), lc($fargs->{scheme_not_contains})) < 0 :
index($url->scheme , $fargs->{scheme_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{scheme_matches}) {
lib/App/grep/url.pm view on Meta::CPAN
index($url->host , $fargs->{host_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{host_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($url->host), lc($fargs->{host_not_contains})) < 0 :
index($url->host , $fargs->{host_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{host_matches}) {
lib/App/grep/url.pm view on Meta::CPAN
index($url->path , $fargs->{path_contains}) >= 0) {
} else {
next;
}
}
if (defined $fargs->{path_not_contains}) {
if ($fargs->{ignore_case} ?
index(lc($url->path), lc($fargs->{path_not_contains})) < 0 :
index($url->path , $fargs->{path_not_contains}) < 0) {
} else {
next;
}
}
if (defined $fargs->{path_matches}) {
lib/App/grep/url.pm view on Meta::CPAN
} else {
next URL;
}
}
}
if (defined $fargs->{query_param_not_contains}) {
for my $param (keys %{ $fargs->{query_param_not_contains} }) {
if ($fargs->{ignore_case} ?
index((lc($url->query_param($param)) // ''), lc($fargs->{query_param_not_contains}{$param})) < 0 :
index(($url->query_param($param) // '') , $fargs->{query_param_not_contains}{$param}) < 0) {
} else {
next URL;
}
}
}
lib/App/grep/url.pm view on Meta::CPAN
=item * B<host_contains> => I<str>
=item * B<host_matches> => I<re>
=item * B<host_not_contains> => I<str>
=item * B<ignore_case> => I<bool>
=item * B<invert_match> => I<bool>
lib/App/grep/url.pm view on Meta::CPAN
=item * B<path_contains> => I<str>
=item * B<path_matches> => I<re>
=item * B<path_not_contains> => I<str>
=item * B<query_param_contains> => I<hash>
=item * B<query_param_matches> => I<hash>
=item * B<query_param_not_contains> => I<hash>
=item * B<quiet> => I<true>
=item * B<scheme_contains> => I<str>
=item * B<scheme_matches> => I<re>
=item * B<scheme_not_contains> => I<str>
=item * B<schemes> => I<array[str]> (default: ["http","file"])
=back
App-hopen
view release on metacpan or search on metacpan
lib/App/hopen.pm view on Meta::CPAN
my $merger = Hash::Merge->new('RETAINMENT_PRECEDENT');
# == Set up code pieces related to phase control ==
my ($set_phase, $cannot_set_phase, $cannot_set_phase_warn);
my $setting_phase_allowed = false;
# Note: all phase-setting functions succeed if there was nothing
# for them to do!
lib/App/hopen.pm view on Meta::CPAN
$App::hopen::BuildSystemGlobals::Phase = $new_phase;
$App::hopen::_did_set_phase = true;
) .
($opts{quiet} ? '' : 'say "Running $new_phase phase";') . "}\n";
$cannot_set_phase = q(
sub can_set_phase { false }
sub set_phase {
my $new_phase = shift // '';
return if $App::hopen::BuildSystemGlobals::Phase eq $new_phase;
croak "I'm sorry, but this file (``$FILENAME'') is not allowed to set the phase"
}
);
$cannot_set_phase_warn = q(
sub can_set_phase { false }
sub set_phase {
my $new_phase = shift // '';
return if $App::hopen::BuildSystemGlobals::Phase eq $new_phase;
) .
lib/App/hopen.pm view on Meta::CPAN
if(ref $fn eq 'HASH') { # it's a -e
hlog { 'Processing', $fn->{name} };
$file_text = $fn->{text};
$friendly_name = $fn->{name};
$pkg_name = 'CmdLineE' . $fn->{num} . '_' . $_hf_pkg_idx++;
$phase_text .= defined($opts{phase}) ? $cannot_set_phase : $set_phase;
# -e's can set phase unless --phase was specified
} else {
hlog { 'Processing', $fn };
$file_text = file($fn)->slurp;
lib/App/hopen.pm view on Meta::CPAN
} else {
# For MY.hopen.pl, when --phase is set, set_phase doesn't croak.
# If this were not the case, every second or subsequent run
# of hopen(1) would croak if --phase were specified!
$phase_text .= isMYH($fn) ? $cannot_set_phase_warn : $cannot_set_phase;
# TODO? permit regular hopen files to set the the phase if
# neither MYH nor the command line did, and we're at the first
# phase. This is so the hopen file can say `set_phase 'Gen';`
# if there's nothing to do during Check.
}
App-hr
view release on metacpan or search on metacpan
## 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
#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/
#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};
# 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) {
# } 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-htmlcat
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
App-ipchgmon
view release on metacpan or search on metacpan
t/20-file.t view on Meta::CPAN
# If the directory is not writable, the tests cannot pass,
# so ignore them
plan skip_all => 'Unable to write files' unless -w $RealBin;
my $fqname = $RealBin . '/test.txt';
file_not_exists_ok($fqname, 'File should not exist yet');
my $rtn = qx($invoke --file $fqname --server example.com 2>&1);
file_exists_ok($fqname, 'File should be created if it doesn\'t exist ...');
file_not_empty_ok($fqname, '... and should contain something.');
unlink $fqname or warn "Unable to delete $fqname at end of tests.";
done_testing;
App-japerl
view release on metacpan or search on metacpan
local $/ = undef; # slurp mode
my $data = <FH>;
close FH;
#-----------------------------------------------------------------------------
# Kwalitee Indicator: buildtool_not_executable core
# The build tool (Build.PL/Makefile.PL) is executable. This is bad because
# you should specify which perl you want to use while installing.
#
# How to fix
# Change the permissions of Build.PL/Makefile.PL to not-executable.
# Test::Harness::runtests cannot work heavy load.
sub _runtests {
my @script = @_;
my @fail_testno = ();
my $ok_script = 0;
my $not_ok_script = 0;
my $total_ok = 0;
my $total_not_ok = 0;
# cygwin warning:
# MS-DOS style path detected: C:/cpan/Char-X.XX
# Preferred POSIX equivalent is: /cygdrive/c/cpan/Char-X.XX
# CYGWIN environment variable option "nodosfilewarning" turns off this warning.
for my $script (@script) {
next if not -e $script;
my $testno = 1;
my $ok = 0;
my $not_ok = 0;
if (my @result = qx{$^X $script}) {
if (my($tests) = shift(@result) =~ /^1..([0-9]+)/) {
for my $result (@result) {
if ($result =~ /^ok /) {
$ok++;
}
elsif ($result =~ /^not ok /) {
push @{$fail_testno[$scriptno]}, $testno;
$not_ok++;
}
$testno++;
}
if ($ok == $tests) {
printf("$script ok\n");
$ok_script++;
}
else {
printf("$script Failed %d/%d subtests\n", $not_ok, $ok+$not_ok);
$not_ok_script++;
}
}
}
$total_ok += $ok;
$total_not_ok += $not_ok;
$scriptno++;
}
if (scalar(@script) == $ok_script) {
printf <<'END', scalar(@script), $total_ok + $total_not_ok;
All tests successful.
Files=%d, Tests=%d
Result: PASS
END
}
print $script[$scriptno], "\n";
print ' Failed test: ', join(', ', @{$fail_testno[$scriptno]}), "\n";
}
$scriptno++;
}
printf("Files=%d, Tests=%d\n", scalar(@script), $total_ok + $total_not_ok);
printf("Result: FAIL\n");
printf("Failed %d/%d test programs. %d/%d subtests failed.\n", $not_ok_script, scalar(@script), $total_not_ok, $total_ok + $total_not_ok);
}
}
sub check_usascii {
my($file) = @_;
App-jl
view release on metacpan or search on metacpan
t/01_basic.t view on Meta::CPAN
ok $output =~ m!foo!;
});
{
my $like_json_not_json = '{"not":"JSON"';
jl_test('LIKE_JSON_NOT_JSON', $like_json_not_json, [], sub {
my ($output, $src) = @_;
is $output, $like_json_not_json;
});
}
jl_test('SORT_KEYS', encode_json({ z => 1, b => 1, a => 1 }), [], sub {
my ($output, $src) = @_;
App-makebeamerinfo
view release on metacpan or search on metacpan
is( $output, $turn_info, 'Output as expected' );
#===================
# Other tests
eval { $app->transition_set('does_not_exist') };
ok( $@, 'Selecting unknown transition set dies' );
like( $@, qr/Unknown transition set/, 'Error message' );
done_testing;
App-metasyn
view release on metacpan or search on metacpan
script/_metasyn 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/_metasyn 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/_metasyn 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-mgen
view release on metacpan or search on metacpan
inc/Test/More.pm view on Meta::CPAN
{
$tb->_unoverload_str( \$e1, \$e2 );
# Either they're both references or both not.
my $same_ref = !( !ref $e1 xor !ref $e2 );
my $not_ref = ( !ref $e1 and !ref $e2 );
if( defined $e1 xor defined $e2 ) {
$ok = 0;
}
elsif( !defined $e1 and !defined $e2 ) {
inc/Test/More.pm view on Meta::CPAN
$ok = 0;
}
elsif( $same_ref and( $e1 eq $e2 ) ) {
$ok = 1;
}
elsif($not_ref) {
push @Data_Stack, { type => '', vals => [ $e1, $e2 ] };
$ok = 0;
}
else {
if( $Refs_Seen{$e1} ) {
App-mimi
view release on metacpan or search on metacpan
mimi.fatpack view on Meta::CPAN
$fatpacked{"Exporter/Shiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXPORTER_SHINY';
package Exporter::Shiny;use 5.006001;use strict;use warnings;use Exporter::Tiny ();our$AUTHORITY='cpan:TOBYINK';our$VERSION='0.03';sub import {my$me=shift;my$caller=caller;(my$nominal_file=$caller)=~ s(::)(/)g;$INC{"$nominal_file\.pm"}||= __FILE__;...
EXPORTER_SHINY
$fatpacked{"Exporter/Tiny.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXPORTER_TINY';
package Exporter::Tiny;use 5.006001;use strict;use warnings;no warnings qw(void once uninitialized numeric redefine);our$AUTHORITY='cpan:TOBYINK';our$VERSION='0.03';our@EXPORT_OK=qw<mkopt mkopt_hash _croak _carp>;sub _croak ($;@) {require Carp;my$f...
EXPORTER_TINY
$fatpacked{"ExtUtils/Config.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'EXTUTILS_CONFIG';
package ExtUtils::Config;$ExtUtils::Config::VERSION='0.03';use strict;use warnings;use Config;use Data::Dumper ();sub new {my ($pack,$args)=@_;return bless {values=>($args ? {%$args }: {}),},$pack}sub get {my ($self,$key)=@_;return exists$self->{va...
EXTUTILS_CONFIG
App-mojopaste
view release on metacpan or search on metacpan
0.24 2016-10-13T10:01:53+0200
- Writing/reading files are more robust
0.23 2016-09-08T20:08:22+0200
- Fix rendering 404 for paste_not_found() and .txt extension
0.22 2016-09-06T21:18:39+0200
- Will never allow robots
- Will only graph csv data
App-mookview
view release on metacpan or search on metacpan
t/01_basic.t view on Meta::CPAN
isa_ok $app, 'App::mookview';
my $path = $app->local_or_share_path([qw/share/]);
ok $path;
my $not_found_response = $app->return_404();
ok $not_found_response;
my $css_response = $app->return_css('/css/screen.css');
ok $css_response;
my $code_block = $app->filter_markdown(<<'EOF');
App-mycnfdiff
view release on metacpan or search on metacpan
t/samples/percona-compiled.txt view on Meta::CPAN
--log-throttle-queries-not-using-indexes=#
Log at most this many 'not using index' warnings per
minute to the slow log. Any further warnings will be
condensed into a single summary line. A value of 0
disables throttling. Option has no effect unless
--log_queries_not_using_indexes is set.
--log-timestamps=name
UTC to timestamp log files in zulu time, for more concise
timestamps and easier correlation of logs from servers
from multiple time zones, or SYSTEM to use the system's
local time. This affects only log files, not log tables,
App-optex-rpn
view release on metacpan or search on metacpan
module_maker="ModuleBuildTiny"
static_install = "auto"
[release]
do_not_upload_to_cpan = true
App-osnames
view release on metacpan or search on metacpan
lib/App/osnames.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/osnames.pm view on Meta::CPAN
=item * B<tags.min> => I<str>
Only return records where the 'tags' field is greater than or equal to specified value.
=item * B<tags.not_contains> => I<str>
Only return records where the 'tags' field does not contain specified text.
=item * B<tags.not_in> => I<array[str]>
Only return records where the 'tags' field is not in the specified values.
=item * B<tags.xmax> => I<str>
lib/App/osnames.pm view on Meta::CPAN
=item * B<value.min> => I<str>
Only return records where the 'value' field is greater than or equal to specified value.
=item * B<value.not_contains> => I<str>
Only return records where the 'value' field does not contain specified text.
=item * B<value.not_in> => I<array[str]>
Only return records where the 'value' field is not in the specified values.
=item * B<value.xmax> => I<str>
App-perlbrew
view release on metacpan or search on metacpan
t/unit-files-are-the-same.t view on Meta::CPAN
for my $i (0..$#test_files) {
my $t = $test_files[$i];
my $u = $test_files[$i - 1];
my $should_be_same = files_are_the_same($t, $t);
my $should_not_be_same = files_are_the_same($t, $u);
note "Comparing $t with $u";
ok ($^O eq 'MSWin32' xor $should_be_same); # should return false on win32
ok !$should_not_be_same;
}
done_testing;
App-perlminlint
view release on metacpan or search on metacpan
t/boilerplate.t view on Meta::CPAN
use warnings FATAL => 'all';
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;
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.md' =>
"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/perlminlint.pm');
App-perlmv-u
view release on metacpan or search on metacpan
lib/App/perlmv/u.pm view on Meta::CPAN
}
my $all_dest_exist = 1;
for (keys %dest) {
unless ($exists{$_}) { $all_dest_exist = 0; last }
}
my $all_src_not_in_dest_not_exist = 1;
for (keys %src) {
next if $dest{$_};
if ($exists{$_}) { $all_src_not_in_dest_not_exist = 0; last }
}
if ($all_dest_exist && $all_src_not_in_dest_not_exist) {
# fixed
return [304, "All sources do not exist and ".
"all targets already exist"];
}
my $all_src_exist = 1;
for (keys %src) {
unless ($exists{$_}) { $all_src_exist = 0; last }
}
my $all_dest_not_in_src_not_exist = 1;
for (keys %dest) {
next if $src{$_};
if ($exists{$_}) { $all_dest_not_in_src_not_exist = 0; last }
}
if ($all_src_exist && $all_dest_not_in_src_not_exist) {
# fixable
my @do_actions;
my @undo_actions;
my @pairs;
for my $pair (reverse @{ $args{pairs} }) {
App-plackbench
view release on metacpan or search on metacpan
t/03_plackbench_pm.t view on Meta::CPAN
$bench->fixup(undef);
$bench->add_fixup_from_file("$Bin/fail_redirect");
is(Scalar::Util::reftype($bench->fixup()->[0]), 'CODE', 'should initialize fixup() if necessary');
eval {
$bench->add_fixup_from_file("$Bin/does_not_exist");
};
# Don't try and check that the error contains "No such file", cause that's
# a different error in German (just sayin', it's not it came up or
# anything...)
App-plx
view release on metacpan or search on metacpan
bin/plx-packed view on Meta::CPAN
$fatpacked{"App/cpanminus/Dependency.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_DEPENDENCY';
package App::cpanminus::Dependency;use strict;use CPAN::Meta::Requirements;sub from_prereqs {my($class,$prereqs,$phases,$types)=@_;my@deps;for my$type (@$types){push@deps,$class->from_versions($prereqs->merged_requirements($phases,[$type])->as_st...
APP_CPANMINUS_DEPENDENCY
$fatpacked{"App/cpanminus/script.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'APP_CPANMINUS_SCRIPT';
package App::cpanminus::script;use strict;use Config;use Cwd ();use App::cpanminus;use App::cpanminus::Dependency;use File::Basename ();use File::Find ();use File::Path ();use File::Spec ();use File::Copy ();use File::Temp ();use Getopt::Long ();...
It appears your cpanm executable was installed via `perlbrew install-cpanm`.
cpanm --self-upgrade won't upgrade the version of cpanm you're running.
Run the following command to get it upgraded.
bin/plx-packed view on Meta::CPAN
if ( $_[0]->{_incr_parser}->{incr_parsing} ) {
Carp::croak("incr_text can not be called when the incremental parser already started parsing");
}
$_[0]->{_incr_parser}->{incr_text};
}
} if ($] >= 5.006)}BEGIN {eval 'require Scalar::Util';unless($@){*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...
JSON_PP
$fatpacked{"JSON/PP/Boolean.pm"} = '#line '.(1+__LINE__).' "'.__FILE__."\"\n".<<'JSON_PP_BOOLEAN';
use JSON::PP ();use strict;1;
JSON_PP_BOOLEAN
App-podify
view release on metacpan or search on metacpan
t/InlineModule.pm view on Meta::CPAN
=cut
sub too_cool {
}
sub not_documented {
}
=head1 AUTHOR
Jan Henning Thorsen - C<jhthorsen@cpan.org>
App-podweaver
view release on metacpan or search on metacpan
lib/App/podweaver.pm view on Meta::CPAN
$dist_root = $options{ dist_root } || '.';
return(
File::Find::Rule->ignore_vcs
->not_name( qr/~$/ )
->perl_file
->in(
grep { -d $_ }
map { File::Spec->catfile( $dist_root, $_ ) }
qw/lib bin script/
App-ppgrep
view release on metacpan or search on metacpan
script/_ppgrep 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/_ppgrep 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/_ppgrep 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-remarkpl
view release on metacpan or search on metacpan
lib/App/remarkpl/public/remark.min.js view on Meta::CPAN
require=function e(t,a,r){function s(i,l){if(!a[i]){if(!t[i]){var o="function"==typeof require&&require;if(!l&&o)return o(i,!0);if(n)return n(i,!0);var c=new Error("Cannot find module '"+i+"'");throw c.code="MODULE_NOT_FOUND",c}var d=a[i]={exports:{}...
a.relevance>r.relevance&&(s=r,r=a)}),s.language&&(r.second_best=s),r}function u(e){return N.tabReplace||N.useBR?e.replace(x,function(e,t){return N.useBR&&"\n"===e?"<br>":N.tabReplace?t.replace(/\t/g,N.tabReplace):void 0}):e}function h(e,t,a){var r=t?...
}),e.COMMENT("#cs","#ce"),e.COMMENT("#comments-start","#comments-end")]},n={begin:"\\$[A-z0-9_]+"},i={className:"string",variants:[{begin:/"/,end:/"/,contains:[{begin:/""/,relevance:0}]},{begin:/'/,end:/'/,contains:[{begin:/''/,relevance:0}]}]},l={va...
beginKeywords:"class interface",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.TITLE_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE]},{beginKeywords:"namespace",end:/[{;=]/,illegal:/[^\s:]/,contains:[e.inherit(e.TITLE_MODE,{begin:"[a-zA-Z](\\.?\\w)*"}),...
},a={className:"params",begin:/\(/,end:/\)/,excludeBegin:!0,excludeEnd:!0},r={className:"symbol",variants:[{begin:/\=[lgenxc]=/},{begin:/\$/}]},s={className:"comment",variants:[{begin:"'",end:"'"},{begin:'"',end:'"'}],illegal:"\\n",contains:[e.BACKSL...
},{begin:":\\s*"+t}]}]}}},{name:"hsp",create:function(e){return{case_insensitive:!0,lexemes:/[\w\._]+/,keywords:"goto gosub return break repeat loop continue wait await dim sdim foreach dimtype dup dupptr end stop newmod delmod mref run exgoto on mca...
},contains:[t,{className:"keyword",begin:"\\bend\\sif\\b"},{className:"function",beginKeywords:"function",end:"$",contains:[t,s,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.BINARY_NUMBER_MODE,e.C_NUMBER_MODE,r]},{className:"function",begin:"\\bend\\s+",e...
contains:[{className:"comment",begin:/\(\*/,end:/\*\)/},e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,e.C_NUMBER_MODE,{begin:/\{/,end:/\}/,illegal:/:/}]}}},{name:"matlab",create:function(e){var t=[e.C_NUMBER_MODE,{className:"string",begin:"'",end:"'",contai...
illegal:"</",contains:[e.C_NUMBER_MODE,e.APOS_STRING_MODE,e.QUOTE_STRING_MODE,{className:"string",begin:"`",end:"`",contains:[e.BACKSLASH_ESCAPE]},{begin:"[\\$\\%\\@](\\^\\w\\b|#\\w+|[^\\s\\w{]|{\\w+}|\\w+)"},e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_M...
contains:[i]});return{aliases:["ps"],lexemes:/-?[A-z\.\-]+/,case_insensitive:!0,keywords:{keyword:"if else foreach return function do while until elseif begin for trap data dynamicparam end break throw param continue finally in switch exit filter try...
},{className:"meta",begin:"#\\!?\\[",end:"\\]",contains:[{className:"meta-string",begin:/"/,end:/"/}]},{className:"class",beginKeywords:"type",end:";",contains:[e.inherit(e.UNDERSCORE_TITLE_MODE,{endsParent:!0})],illegal:"\\S"},{className:"class",beg...
literal:"true false nil"},contains:[e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,e.NUMBER_MODE,a,t.preprocessor],illegal:/#/}}},{name:"sql",create:function(e){var t=e.COMMENT("--","$");return{case_insensitive:!0,illegal:/[<>{}*#]/,contains:[{beginKey...
return{aliases:["styl"],case_insensitive:!1,keywords:"if else for in",illegal:"("+o.join("|")+")",contains:[e.QUOTE_STRING_MODE,e.APOS_STRING_MODE,e.C_LINE_COMMENT_MODE,e.C_BLOCK_COMMENT_MODE,a,{begin:"\\.[a-zA-Z][a-zA-Z0-9_-]*"+i,returnBegin:!0,cont...
built_in:"ip eip rip al ah bl bh cl ch dl dh sil dil bpl spl r8b r9b r10b r11b r12b r13b r14b r15b ax bx cx dx si di bp sp r8w r9w r10w r11w r12w r13w r14w r15w eax ebx ecx edx esi edi ebp esp eip r8d r9d r10d r11d r12d r13d r14d r15d rax rbx rcx rdx...
"atelier-lakeside-light":".hljs-atelier-lakeside-light .hljs-comment,.hljs-atelier-lakeside-light .hljs-quote{color:#5a7b8c}.hljs-atelier-lakeside-light .hljs-variable,.hljs-atelier-lakeside-light .hljs-template-variable,.hljs-atelier-lakeside-light ...
grayscale:".hljs-grayscale .hljs{display:block;overflow-x:auto;padding:.5em;color:#333;background:#fff}.hljs-grayscale .hljs-comment,.hljs-grayscale .hljs-quote{color:#777;font-style:italic}.hljs-grayscale .hljs-keyword,.hljs-grayscale .hljs-selector...
"solarized-dark":".hljs-solarized-dark .hljs{display:block;overflow-x:auto;padding:.5em;background:#002b36;color:#839496}.hljs-solarized-dark .hljs-comment,.hljs-solarized-dark .hljs-quote{color:#586e75}.hljs-solarized-dark .hljs-keyword,.hljs-solari...
( run in 0.541 second using v1.01-cache-2.11-cpan-cc502c75498 )