• Your recent searches
Result:
found more than 450 distributions - search limited to the first 2001 files matching your query ( run in 1.170 )


Acme-Geo-Whitwell-Name
1 match

 view release on metacpan or  search on metacpan

xt/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-Ghost
1 match

 view release on metacpan or  search on metacpan

t/00-pod-coverage.t  view on Meta::CPAN 

my $ver = 1.08;
eval "use Test::Pod::Coverage $ver";
plan skip_all => "Test::Pod::Coverage $ver required for testing POD coverage" if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $verpc = 0.18;
eval "use Pod::Coverage $verpc";
plan skip_all => "Pod::Coverage $verpc required for testing POD coverage" if $@;

plan skip_all => "Currently a developer-only test" unless -d '.svn' || -d ".git";

 view all matches for this distribution


Acme-Gosub
2 results

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN 

        - Remove \t from the distribution.

0.1.5   2014-01-25
        - Add a minimal version of perl.
            - Kwalitee.
        - Add t/style-trailing-space.t
            - Remove trailing space.
        - Add t/cpan-changes.t
            - Check for CPAN changes validity.

0.1.4   2009-07-01

 view all matches for this distribution


Acme-Grep2D
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-GuessNumber
1 match

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN 

2021-02-07
	Acme-GuessNumber is now hosted on GitHub.
	 1. Added MANIFEST.SKIP.
	 2. COPYING: Removed the redundant and irrelevant GPL license copy.
	 3. INSTALL, README, TODO, README.md: Replaced the messy
	    GNU-styled documents with a single Markdown README.md.
	 4. Revised the URL in README.
	 5. Added the CPAN distribution metadata to Makefile.PL and
	    Build.PL.

2013-05-10	version 0.04

 view all matches for this distribution


Acme-Has-Tiny
1 match

 view release on metacpan or  search on metacpan

CONTRIBUTING  view on Meta::CPAN 

        For translations of error messages and other strings embedded in the
        code, check with me first. Sometimes the English strings may not in
        a stable state, so it would be a waste of time translating them.

  Coding Style
    I tend to write using something approximating the Allman style, using
    tabs for indentation and Unix-style line breaks.

    *   <http://en.wikipedia.org/wiki/Indent_style#Allman_style>

    *   <http://www.derkarl.org/why_to_tabs.html>

    I nominally encode all source files as UTF-8, though in practice most of
    them use a 7-bit-safe ASCII-compatible subset of UTF-8.

 view all matches for this distribution


Acme-Hidek
1 match

 view release on metacpan or  search on metacpan

inc/Module/Install/XSUtil.pm  view on Meta::CPAN 

        # unless PERL_ONLY is true.
        $default = !$ENV{PERL_ONLY} if not defined $default;

        foreach my $arg(@ARGV){

            my ($k, $v) = split '=', $arg; # MM-style named args
            if ($k eq 'PUREPERL_ONLY' && defined $v) {
                return $want_xs = !$v;
            }
            elsif($arg eq '--pp'){ # old-style
                return $want_xs = 0;
            }
            elsif($arg eq '--xs'){
                return $want_xs = 1;
            }

inc/Module/Install/XSUtil.pm  view on Meta::CPAN 

    my $tmpfile = File::Temp->new(SUFFIX => '.c');

    $tmpfile->print(<<'C99');
// include a C99 header
#include <stdbool.h>
inline // a C99 keyword with C99 style comments
int test_c99() {
    int i = 0;
    i++;
    int j = i - 1; // another C99 feature: declaration after statement
    return j;

 view all matches for this distribution


Acme-Holy-Shit-Here-Come-s-An-S
1 match

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN 

Revision hi'story for perl module Acme::Holy'Shit::Here::Come's::An'S

0.002 - 2017-03-28

 - Fix POD to comply with project 'style

0.001 - 2016-09-07

 - 'Support perl's before 5.18

 view all matches for this distribution


Acme-Hospital-Bed
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-IAMB
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-ICan-tSpell
2 results

 view release on metacpan or  search on metacpan

t/01-test.t  view on Meta::CPAN 


use Acme::ICan::tSpell;
use Test::MockObject;

my $responses = [{ 
            content => '<div class="med"><p class="sp_cnt card-section"><span class="spell">Showing results for</span> <a class="spell" href="/search?q=tanks&amp;spell=1&amp;sa=X&amp;ved=0ahUKEwiswcrA4erSAhUDfRoKHSjgC-kQvwUIGSgA"><b><i>tanks</i></b><...
            success => 1 
        }, { content => '', success => 1 }];

(my $tiny = Test::MockObject->new)->mock(
    'get', sub {

 view all matches for this distribution


Acme-ID-CompanyName
1 match

 view release on metacpan or  search on metacpan

script/gen-generic-ind-company-names  view on Meta::CPAN 

#long-running daemons to inside routines with tight loops.
#
#=item * Flexible
#
#B<Customizable levels and routine/method names.> Can be used in a procedural or
#OO style. Log::ger can mimic the interface of L<Log::Any>, L<Log::Contextual>,
#L<Log::Log4perl>, or some other popular logging frameworks, to ease migration or
#adjust with your personal style.
#
#B<Per-package settings.> Each importer package can use its own format/layout,
#output. For example, a module that is migrated from Log::Any uses Log::Any-style
#logging, while another uses native Log::ger style, and yet some other uses block
#formatting like Log::Contextual. This eases code migration and teamwork. Each
#module author can preserve her own logging style, if wanted, and all the modules
#still use the same framework.
#
#B<Dynamic.> Outputs and levels can be changed anytime during run-time and logger
#routines will be updated automatically. This is useful in situation like a
#long-running server application: you can turn on tracing logs temporarily to

script/gen-generic-ind-company-names  view on Meta::CPAN 

#use String::TtyLength 0.02  qw/ tty_width /;
#
#our @EXPORT_OK = qw/ generate_table /;
#
## Legacy package globals, that can be used to customise the look.
## These are only used in the "classic" style.
## I wish I could drop them, but I don't want to break anyone's code.
#our $COLUMN_SEPARATOR     = '|';
#our $ROW_SEPARATOR        = '-';
#our $CORNER_MARKER        = '+';
#our $HEADER_ROW_SEPARATOR = '=';

script/gen-generic-ind-company-names  view on Meta::CPAN 

#    rows => "the rows, including a possible header row, of the table",
#    header_row => "if true, indicates that the first row is a header row",
#    separate_rows => "if true, a separate rule will be drawn between each row",
#    top_and_tail => "if true, miss out top and bottom edges of table",
#    align => "either single alignment, or an array per of alignments per col",
#    style => "styling of table, one of classic, boxrule, or norule",
#    indent => "indent every row of the table a certain number of spaces",
#    compact => "narrow columns (no space either side of content)",
#);
#
#my %charsets = (

script/gen-generic-ind-company-names  view on Meta::CPAN 

#
#    my $rows    = $param{rows} or croak "you must pass the 'rows' argument!";
#    my @rows    = @$rows;
#    my @widths  = _calculate_widths($rows);
#
#    $param{style}  //= 'classic';
#
#    $param{indent} //= '';
#    $param{indent} = ' ' x $param{indent} if $param{indent} =~ /^[0-9]+$/;
#
#    my $style   = $param{style};
#    croak "unknown style '$style'" if not exists($charsets{ $style });
#    my $char    = $charsets{$style};
#
#    if ($style eq 'classic') {
#        $char->{TLC} = $char->{TRC} = $char->{TT} = $char->{LT} = $char->{RT} = $char->{HC} = $char->{BLC} = $char->{BT} = $char->{BRC} = $CORNER_MARKER;
#        $char->{HR}  = $ROW_SEPARATOR;
#        $char->{VR}  = $COLUMN_SEPARATOR;
#        $char->{FLT} = $char->{FRT} = $char->{FHC} = $HEADER_CORNER_MARKER;
#        $char->{FHR} = $HEADER_ROW_SEPARATOR;

script/gen-generic-ind-company-names  view on Meta::CPAN 

#
#Added in 1.00.
#
#=item *
#
#style
#
#Specifies the format of the output table.
#The default is C<'classic'>,
#but other options are C<'boxrule'> and C<'norule'>.
#
#If you use the C<boxrule> style,
#you'll probably need to run C<binmode(STDOUT, ':utf8')>.
#
#Added in 1.00.
#
#

script/gen-generic-ind-company-names  view on Meta::CPAN 

# | Abra       | Psychic | 5     |
# | Ekans      | Poison  | 123   |
# | Feraligatr | Water   | 5678  |
#
#If you want a more stylish looking table,
#set the C<style> parameter to C<'boxrule'>:
#
# binmode(STDOUT,':utf8');
# generate_table(rows => $rows, header_row => 1, style => 'boxrule');
#
#This uses the ANSI box rule characters.
#Note that you will need to ensure UTF output.
#
# ┌────────────┬─────────┬───────┐

script/gen-generic-ind-company-names  view on Meta::CPAN 

# │ Abra       │ Psychic │     5 │
# │ Ekans      │ Poison  │   123 │
# │ Feraligatr │ Water   │  5678 │
# └────────────┴─────────┴───────┘
#
#If you're using the boxrule style,
#you might feel you can remove the padding on either side of every column,
#done by setting C<compact> to a true value:
#
# ┌──────────┬───────┬─────┐
# │Pokemon   │Type   │Count│

script/gen-generic-ind-company-names  view on Meta::CPAN 

# │Feraligatr│Water  │ 5678│
# └──────────┴───────┴─────┘
#
#You can also ask for a rule between each row,
#in which case the header rule becomes stronger.
#This works best when combined with the boxrule style:
#
# generate_table( ... , separate_rows => 1 );
#
#Which results in the following:
#

script/gen-generic-ind-company-names  view on Meta::CPAN 

# │ Ekans      │ Poison  │   123 │
# ├────────────┼─────────┼───────┤
# │ Feraligatr │ Water   │  5678 │
# └────────────┴─────────┴───────┘
#
#You can use this with the other styles,
#but I'm not sure you'd want to.
# 
#If you just want columnar output,
#use the C<norule> style:
#
# generate_table( ... , style => 'norule' );
#
#which results in:
#
#  
#  Pokemon      Type      Count

 view all matches for this distribution


Acme-Inabajun-Utils
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-Include-Data
2 results

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN 

Acme::Include::Data - how to include data files with a CPAN module

This is a demonstration module which demonstrates how to include a
data file with a Perl module and how to read it in at run time.

If you are a CPAN author or use the CPAN-style tools to distribute
your data, you may have wondered how to include data with your Perl
distribution.

Any file under lib in the distribution is bundled into the
distribution by "Makefile.PL". So if your distribution is called

 view all matches for this distribution


Acme-Innuendo
1 match

 view release on metacpan or  search on metacpan

lib/Acme/Innuendo.pm  view on Meta::CPAN 

our @EXPORT = qw(
  special_place nudge_nudge wink_wink walk_the_dog
);

our $VERSION = '0.03';
$VERSION = eval $VERSION;  # see L<perlmodstyle>

sub special_place {
  my $namespace = shift || 'main';
  if (defined $namespace) {
    $namespace .= '::';

 view all matches for this distribution


Acme-InputRecordSeparatorIsRegexp
3 results

 view release on metacpan or  search on metacpan

lib/Acme/InputRecordSeparatorIsRegexp.pm  view on Meta::CPAN 

This module provides a mechanism to read records from a file
using a regular expression as a record separator.

A common use case for this module is to read a text file 
that you don't know whether it uses Unix (C<\n>), 
Windows/DOS (C<\r\n>), or Mac (C<\r>) style line-endings, 
or even if it might contain all three. To properly parse
this file, you could tie its file handle to this package with
the appropriate regular expression:

    my $fh = Symbol::gensym;

 view all matches for this distribution


Acme-Insult-Glax
2 results

 view release on metacpan or  search on metacpan

lib/Acme/Insult/Glax.pm  view on Meta::CPAN 


=over

=item C<lang>

Insult's language style. Expected styles include:

=over

=item C<en>

lib/Acme/Insult/Glax.pm  view on Meta::CPAN 


=over

=item C<lang>

Language style. Expected values include:

=over

=item C<en>

 view all matches for this distribution


Acme-JANEZHANG
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-JJCARMAN
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-Jrush
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-KJAM
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-KeyboardMarathon
1 match

 view release on metacpan or  search on metacpan

t/wild.txt  view on Meta::CPAN 

breakable about them.

With the newcomers hopeless and forlorn, and the old team worn out by
twenty-five hundred miles of continuous trail, the outlook was anything
but bright. The two men, however, were quite cheerful. And they were
proud, too. They were doing the thing in style, with fourteen dogs. They
had seen other sleds depart over the Pass for Dawson, or come in from
Dawson, but never had they seen a sled with so many as fourteen dogs. In
the nature of Arctic travel there was a reason why fourteen dogs should
not drag one sled, and that was that one sled could not carry the food
for fourteen dogs. But Charles and Hal did not know this. They had

 view all matches for this distribution


Acme-KnowledgeWisdom
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
    if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
    if $@;

 view all matches for this distribution


Acme-LSD
2 results

 view release on metacpan or  search on metacpan

lib/Acme/LSD.pm  view on Meta::CPAN 


... will produce 

=begin html

<div style="display: flex">
<div style="margin: 3px; flex: 1 1 50%">
<img alt="Screenshot of Acme::LSD sample output" src="https://raw.githubusercontent.com/thibaultduponchelle/Acme-LSD/master/acmelsd.png" style="max-width: 100%" width="600">
</div>
</div>

=end html

 view all matches for this distribution


Acme-Lexical-Thief
1 match

 view release on metacpan or  search on metacpan

CONTRIBUTING  view on Meta::CPAN 

        For translations of error messages and other strings embedded in the
        code, check with me first. Sometimes the English strings may not in
        a stable state, so it would be a waste of time translating them.

  Coding Style
    I tend to write using something approximating the Allman style, using
    tabs for indentation and Unix-style line breaks.

    *   <http://en.wikipedia.org/wiki/Indent_style#Allman_style>

    *   <http://www.derkarl.org/why_to_tabs.html>

    I nominally encode all source files as UTF-8, though in practice most of
    them use a 7-bit-safe ASCII-compatible subset of UTF-8.

 view all matches for this distribution


Acme-List-CarCdr
1 match

 view release on metacpan or  search on metacpan

t/pod-coverage.t  view on Meta::CPAN 

plan skip_all =>
  "Test::Pod::Coverage $min_tpc required for testing POD coverage"
  if $@;

# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
  if $@;

 view all matches for this distribution


Acme-Locals
1 match

 view release on metacpan or  search on metacpan

devel/curversion  view on Meta::CPAN 

use File::Spec;
use Getopt::LL qw(getoptions);

our $VERSION = 1.0;

my $options  = getoptions(undef, { style => 'GNU' });
my $updir    = File::Spec->updir();
my $distmeta = File::Spec->catfile($Bin, $updir, 'META.yml');
my $META     = LoadFile($distmeta);

my $version  = $META->{version};

 view all matches for this distribution


Acme-Loopy
1 match

 view release on metacpan or  search on metacpan

CONTRIBUTING  view on Meta::CPAN 

        For translations of error messages and other strings embedded in the
        code, check with me first. Sometimes the English strings may not in
        a stable state, so it would be a waste of time translating them.

  Coding Style
    I tend to write using something approximating the Allman style, using
    tabs for indentation and Unix-style line breaks.

    *   <http://en.wikipedia.org/wiki/Indent_style#Allman_style>

    *   <http://www.derkarl.org/why_to_tabs.html>

    I nominally encode all source files as UTF-8, though in practice most of
    them use a 7-bit-safe ASCII-compatible subset of UTF-8.

 view all matches for this distribution


Acme-Lou
3 results

 view release on metacpan or  search on metacpan

lib/Acme/Lou.pm  view on Meta::CPAN 

    print lou("人生には、大切な三つの袋があります。");
    # => ライフには、インポータントな三つのバッグがあります。

=head1 DESCRIPTION

Translate Japanese text into Lou Ohshiba (Japanese comedian) style. 

=head1 METHODS

=head2 $lou = Acme::Lou->new()

 view all matches for this distribution


Acme-MITHALDU-BleedingOpenGL
2 results

 view release on metacpan or  search on metacpan

BleedingOpenGL.pm  view on Meta::CPAN 

    # This AUTOLOAD is used to 'autoload' constants from the constant()
    # XS function.  If a constant is not found then control is passed
    # to the AUTOLOAD in AutoLoader.

    # NOTE: THIS AUTOLOAD FUNCTION IS FLAWED (but is the best we can do for now).
    # Avoid old-style ``&CONST'' usage. Either remove the ``&'' or add ``()''.
    if (@_ > 0) {

	# Is it an old OpenGL-0.4 function? If so, remap it to newer variant
    local($constname);
    ($constname = $AUTOLOAD) =~ s/.*:://;

 view all matches for this distribution


( run in 1.170 second using v1.01-cache-2.11-cpan-49f99fa48dc )