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


Acme-CPANAuthors-Indonesian
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANAuthors-Israeli
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANAuthors-MBTI
5 results

 view release on metacpan or  search on metacpan

inc/expand_author_list.pm  view on Meta::CPAN 

sub tempdir { return state $tempdir = Path::Tiny->tempdir() }
sub http    { return state $http    = HTTP::Tiny->new() }
sub json    { return state $json    = JSON::MaybeXS->new( utf8 => 0 ) }

sub rng {
  return state $rng = Math::Random::MT->new( map { unpack 'L', $_ } q[Kent], q[ is ], q[a du], q[ll b], q[oy  ] );
}

sub dolog { *STDERR->print("$_[0]\n") }

sub mirror_whois {

inc/expand_author_list.pm  view on Meta::CPAN 

  for my $author ( @{ $config{data} } ) {
    $authors     .= "    $author->{id} => '$author->{name}',\n";
    $avatar_urls .= "    $author->{id} => '$author->{avatar}',\n";
  }

  my @display_authors = map { $config{data}->[ rng->irand() % scalar @{ $config{data} } ] } 1;

  return <<"EOF";
# Code inserted by inc/expand_author_list#authors_to_code
# by $plugin_name $plugin_version
## no critic (ValuesAndExpressions::RestrictLongStrings)

inc/expand_author_list.pm  view on Meta::CPAN 


  my $plugin         = $config{plugin};
  my $plugin_name    = $config{plugin_name} // ref $config{plugin};
  my $plugin_version = $config{plugin_version} // $plugin_name->VERSION;
  my @items          = @{ $config{'data'} };
  my @authors        = map { $items[ rng->irand() % scalar @items ] } 1 .. 3;

  return ( <<"EOF" =~ s/^(\S)/    $1/msgr );
use Acme::CPANAuthors;
use Acme::CPANAuthors::$config{category};
# Or just use Acme::CPANAuthors::MBTI

 view all matches for this distribution


Acme-CPANAuthors-Malaysian
5 results

 view release on metacpan or  search on metacpan

lib/Acme/CPANAuthors/Malaysian.pm  view on Meta::CPAN 

    my $url      = $authors->avatar_url('KIANMENG');
    my $kwalitee = $authors->kwalitee('KIANMENG');

=head1 DESCRIPTION

This module provides a list of Malaysian CPAN author's Pause ID mapped to name
for L<Acme::CPANAuthors|Acme::CPANAuthors>.

=head1 MAINTENANCE

Send email, open a ticket, or make a pull request to add your own Pause ID and

 view all matches for this distribution


Acme-CPANAuthors-MetaSyntactic
1 match

 view release on metacpan or  search on metacpan

t/authors.t  view on Meta::CPAN 


# get both lists
my %seen;
my @current = sort keys %{ Acme::CPANAuthors::MetaSyntactic->authors };
my @latest  = sort grep !$seen{$_}++,
    map { $_->{uri} =~ m{cpan:///distfile/([A-Z]+)/} }
    $index->search_packages( { package => qr{^Acme::MetaSyntactic::[a-z]} } );

# compare both lists
my $ok = is_deeply( \@current, \@latest, "The list is complete" );

 view all matches for this distribution


Acme-CPANAuthors-Misanthrope
5 results

 view release on metacpan or  search on metacpan

inc/Module/AutoInstall.pm  view on Meta::CPAN 

use vars qw{$VERSION};
BEGIN {
	$VERSION = '1.03';
}

# special map on pre-defined feature sets
my %FeatureMap = (
    ''      => 'Core Features',    # XXX: deprecated
    '-core' => 'Core Features',
);

inc/Module/AutoInstall.pm  view on Meta::CPAN 


    my $maxlen = length(
        (
            sort   { length($b) <=> length($a) }
              grep { /^[^\-]/ }
              map  {
                ref($_)
                  ? ( ( ref($_) eq 'HASH' ) ? keys(%$_) : @{$_} )
                  : ''
              }
              map { +{@args}->{$_} }
              grep { /^[^\-]/ or /^-core$/i } keys %{ +{@args} }
        )[0]
    );

    # We want to know if we're under CPAN early to avoid prompting, but

inc/Module/AutoInstall.pm  view on Meta::CPAN 

            my $cur = _load($mod);
            if (_version_cmp ($cur, $arg) >= 0)
            {
                print "loaded. ($cur" . ( $arg ? " >= $arg" : '' ) . ")\n";
                push @Existing, $mod => $arg;
                $DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
            }
            else {
                if (not defined $cur)   # indeed missing
                {
                    print "missing." . ( $arg ? " (would need $arg)" : '' ) . "\n";

inc/Module/AutoInstall.pm  view on Meta::CPAN 

                ) =~ /^[Yy]/
            )
          )
        {
            push( @Missing, @required );
            $DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
        }

        elsif ( !$SkipInstall
            and $default
            and $mandatory
            and
            _prompt( qq{==> The module(s) are mandatory! Really skip?}, 'n', )
            =~ /^[Nn]/ )
        {
            push( @Missing, @required );
            $DisabledTests{$_} = 1 for map { glob($_) } @skiptests;
        }

        else {
            $DisabledTests{$_} = 1 for map { glob($_) } @tests;
        }
    }

    if ( @Missing and not( $CheckOnly or $UnderCPAN ) ) {
        require Config;

inc/Module/AutoInstall.pm  view on Meta::CPAN 


sub install {
    my $class = shift;

    my $i;    # used below to strip leading '-' from config keys
    my @config = ( map { s/^-// if ++$i; $_ } @{ +shift } );

    my ( @modules, @installed );
    while ( my ( $pkg, $ver ) = splice( @_, 0, 2 ) ) {

        # grep out those already installed

inc/Module/AutoInstall.pm  view on Meta::CPAN 

    }

    $args{test}{TESTS} ||= 't/*.t';
    $args{test}{TESTS} = join( ' ',
        grep { !exists( $DisabledTests{$_} ) }
          map { glob($_) } split( /\s+/, $args{test}{TESTS} ) );

    my $missing = join( ',', @Missing );
    my $config =
      join( ',', UNIVERSAL::isa( $Config, 'HASH' ) ? %{$Config} : @{$Config} )
      if $Config;

 view all matches for this distribution


Acme-CPANAuthors-Nonhuman
5 results

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN 


my %configure_requires = (
    'Module::Build::Tiny' => '0.034',
);

my %errors = map {
    eval "require $_; $_->VERSION($configure_requires{$_}); 1";
    $_ => $@,
} keys %configure_requires;

if (!grep { $_ } values %errors)

 view all matches for this distribution


Acme-CPANAuthors-Not
1 match

 view release on metacpan or  search on metacpan

lib/Acme/CPANAuthors/Not.pm  view on Meta::CPAN 

        my $id = _random_id($length_freq, $letter_freq);
        push @invalid_ids, $id unless exists $ids{$id};
    }

    # Pick a name for each author
    my $name_table = _name_table([ map { $_->name } $authors->authors ]);
    return map { $_ => _pick_name($_, $name_table) } @invalid_ids;
}

use Acme::CPANAuthors::Register(_generate());

1;

 view all matches for this distribution


Acme-CPANAuthors-POE
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANAuthors-Russian
1 match

 view release on metacpan or  search on metacpan

script/cpan-author.pl  view on Meta::CPAN 

	
	qr/[а-я]+/,
];

print
	map  { @$_ }
	grep { warn scalar @$_ }
	[
		# for module
		map  { sprintf "%-9s => '%s',\n", grep { defined } @$_{'pause', 'name', 'email'} }
		sort { $a->{'pause'} cmp $b->{'pause'} }
		
		# for list
		#~ map  { join("\t", grep { defined } @$_{'id', 'name', 'pause', 'author', 'email', 'url'}), "\n" }
		
		# check email
		#~ map  { qq{"$_->{'pause'}" $_->{'email'}\n} }
		#~ grep { $_->{'email'} && $_->{'email'} !~ /CENSORED/ && $_->{'email'} !~ /\.ru$/ }
		
		# cpan author
		grep { $_->{'author'} }

script/cpan-author.pl  view on Meta::CPAN 

	
		# no
		# grep { $_->{pause} !~ /^BDULFER$/ }
		# grep { $_->{pause} =~ /^KIRILLM|KJETIL|SJN|MRAMBERG|KRN|ANDREMAR|TRONDMM|ARNE|EIDOLON|NICOMEN|COSIMO|AFF|ESPIZO$/ || $_->{'email'} =~ /no$/ }
		
		map  {
			my($url,  $name ) = $_->[ 1] =~ /<a href="([^"]+)">([^<]+)/; $name  ||= $_->[ 1]; $name =~ s/\s+$//; $name =~ s/&[^;]+;//sg;
			my($url2, $pause) = $_->[-1] =~ /<a href="([^"]+)">([^<]+)/; $pause ||= $_->[-1];
			
			+{
				'id'     => $_->[0],

script/cpan-author.pl  view on Meta::CPAN 

				'email'  => $_->[2],
				'pause'  => $pause,
				'author' => $url2 ? 1 : 0,
			};
		}
		map  {
			[m{^ (\d+)\. \s ([^<]+ | <a.*?/a> | \s) .*? <a \s href="mailto:([^"]*)" .* -- \s+ (.*) $}x]
		}
		map  { split m{\s*<br />\s*} }
		grep { utf8::decode($_);1 }
		do { local $/; open my $fh, '<', 'get_utf8.html'; <$fh> } =~ m{Archives</a></h3>(.*)<h3><a id="mailinglists"}s
		# map  { $_->is_success ? $_->content =~ m{Archives</a></h3>(.*)<h3><a id="mailinglists"}s : () }
		# LWPUserAgent->new('timeout' => 15)->get('http://pause.perl.org/pause/query?ACTION=who_is')
	]
;

package LWPUserAgent; # XXX: bad UTF-8 encoding

 view all matches for this distribution


Acme-CPANAuthors-Slovak
5 results

 view release on metacpan or  search on metacpan

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

		# Normalise multipart versions
		$s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
	}
	$s =~ s/^(\d+)\.?//;
	my $l = $1 || 0;
	my @v = map {
		$_ . '0' x (3 - length $_)
	} $s =~ /(\d{1,3})\D?/g;
	$l = $l . '.' . join '', @v if @v;
	return $l + 0;
}

 view all matches for this distribution


Acme-CPANAuthors-ToBeLike
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANAuthors-Turkish
1 match

 view release on metacpan or  search on metacpan

t/00-report-prereqs.t  view on Meta::CPAN 

        }

        if ( @reports ) {
            push @full_reports, "=== $title ===\n\n";

            my $ml = _max( map { length $_->[0] } @reports );
            my $wl = _max( map { length $_->[1] } @reports );
            my $hl = _max( map { length $_->[2] } @reports );

            if ($type eq 'modules') {
                splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
            }
            else {
                splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
            }

            push @full_reports, "\n";
        }
    }

 view all matches for this distribution


Acme-CPANAuthorsBundle-CPAN-Streaks
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANLists-Import-PerlAdvent-2006
2 results

 view release on metacpan or  search on metacpan

lib/Acme/CPANLists/Import/PerlAdvent/2006.pm  view on Meta::CPAN 

package Acme::CPANLists::Import::PerlAdvent::2006;

our $DATE = '2016-11-07'; # DATE
our $VERSION = '0.001'; # VERSION

our @Module_Lists = ({description=>"This list is generated by extracting module names mentioned in [http://perladvent.org/2006/] (retrieved on 2016-11-07). Visit the URL for the full contents.",entries=>[{module=>"Devel::FastProf"},{module=>"Devel::S...

1;
# ABSTRACT: Modules mentioned in Perl Advent Calendar 2006

__END__

lib/Acme/CPANLists/Import/PerlAdvent/2006.pm  view on Meta::CPAN 


=item * L<File::Finder>

=item * L<Text::CSV>

=item * L<Treemap>

=item * L<XML::Simple>

=item * L<CGI::Minimal>

 view all matches for this distribution


Acme-CPANLists-Import-PerlAdvent-2017
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANLists-Import-RSAVAGE
1 match

 view release on metacpan or  search on metacpan

lib/Acme/CPANLists/Import/RSAVAGE/ClassesRolesWithMooAndMoos.pm  view on Meta::CPAN 

package Acme::CPANLists::Import::RSAVAGE::ClassesRolesWithMooAndMoos;

our $DATE = '2016-02-21'; # DATE
our $VERSION = '0.02'; # VERSION

our @Module_Lists = ({description=>"This list is generated by extracting module names mentioned in the article [http://savage.net.au/Module-reviews/html/gci.2012.url.mapper.modules.html] (retrieved on 2016-02-21). For the full article, visit the URL....

1;
# ABSTRACT: Classes and Roles with Moo and Moos (2012)

__END__

lib/Acme/CPANLists/Import/RSAVAGE/ClassesRolesWithMooAndMoos.pm  view on Meta::CPAN 


This document describes version 0.02 of Acme::CPANLists::Import::RSAVAGE::ClassesRolesWithMooAndMoos (from Perl distribution Acme-CPANLists-Import-RSAVAGE), released on 2016-02-21.

=head1 DESCRIPTION

This module is generated by extracting module names mentioned in the article L<http://savage.net.au/Module-reviews/html/gci.2012.url.mapper.modules.html> (retrieved on 2016-02-21). For the full article, visit the URL.

=head1 MODULE LISTS

=head2 Classes and Roles with Moo and Moos (2012)

This list is generated by extracting module names mentioned in the article [http://savage.net.au/Module-reviews/html/gci.2012.url.mapper.modules.html] (retrieved on 2016-02-21). For the full article, visit the URL.


=over

=item * L<CGI::Application::Plugin::ActionDispatch>

 view all matches for this distribution


Acme-CPANLists-Import
2 results

 view release on metacpan or  search on metacpan

lib/Acme/CPANLists/Import/Caching.pm  view on Meta::CPAN 

package Acme::CPANLists::Import::Caching;

our $DATE = '2016-12-28'; # DATE
our $VERSION = '0.03'; # VERSION

our @Module_Lists = ({description=>"This list is generated by extracting module names mentioned in the article [http://cpan.robm.fastmail.fm/cache_perf.html] (retrieved on 2016-07-19). For the full article, visit the URL.",entries=>[{module=>"Cache::...

1;
# ABSTRACT: Comparison of different Perl caching modules (2002-2005)

__END__

lib/Acme/CPANLists/Import/Caching.pm  view on Meta::CPAN 

This list is generated by extracting module names mentioned in the article [http://cpan.robm.fastmail.fm/cache_perf.html] (retrieved on 2016-07-19). For the full article, visit the URL.


=over

=item * L<Cache::FastMmap>

=item * L<Cache::FileCache>

=item * L<Cache::Mmap>

=item * L<Cache::SharedMemoryCache>

=item * L<Cache::SizeAwareFileCache>

 view all matches for this distribution


Acme-CPANLists-PERLANCAR-FooThis
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANLists-PERLANCAR-Self
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANLists-PERLANCAR
3 results

 view release on metacpan or  search on metacpan

lib/Acme/CPANLists/PERLANCAR/ArrayClassBuilder.pm  view on Meta::CPAN 


This list catalogs class builders for classes that use array (instead of the
popular hash) as their backend storage.

Hash is the vastly popular backend for object due to its flexibility and
convenient mapping of hash keys to object attributes, but actually Perl objects
can be references to any kind of data (array, scalar, glob). Storing objects as
other kinds of references can be useful in terms of attribute access speed,
memory size, or other aspects. But they are not as versatile and generic as
hash.

lib/Acme/CPANLists/PERLANCAR/ArrayClassBuilder.pm  view on Meta::CPAN 


This list catalogs class builders for classes that use array (instead of the
popular hash) as their backend storage.

Hash is the vastly popular backend for object due to its flexibility and
convenient mapping of hash keys to object attributes, but actually Perl objects
can be references to any kind of data (array, scalar, glob). Storing objects as
other kinds of references can be useful in terms of attribute access speed,
memory size, or other aspects. But they are not as versatile and generic as
hash.

 view all matches for this distribution


Acme-CPANModules-API-Dead-Currency
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANModules-API-Domain-Registrar
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANModules-AliasingModuleName
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANModules-ArrayClassBuilder
3 results

 view release on metacpan or  search on metacpan

lib/Acme/CPANModules/ArrayClassBuilder.pm  view on Meta::CPAN 


This list catalogs class builders for classes that use array (instead of the
popular hash) as their backend storage.

Hash is the vastly popular backend for object due to its flexibility and
convenient mapping of hash keys to object attributes, but actually Perl objects
can be references to any kind of data (array, scalar, glob). Storing objects as
other kinds of references can be useful in terms of attribute access speed,
memory size, or other aspects. But they are not as versatile and generic as
hash.

lib/Acme/CPANModules/ArrayClassBuilder.pm  view on Meta::CPAN 


This list catalogs class builders for classes that use array (instead of the
popular hash) as their backend storage.

Hash is the vastly popular backend for object due to its flexibility and
convenient mapping of hash keys to object attributes, but actually Perl objects
can be references to any kind of data (array, scalar, glob). Storing objects as
other kinds of references can be useful in terms of attribute access speed,
memory size, or other aspects. But they are not as versatile and generic as
hash.

 view all matches for this distribution


Acme-CPANModules-ArrayData
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANModules-Assert
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANModules-BPOM-FoodRegistration
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANModules-BloomFilters
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


Acme-CPANModules
1 match

 view release on metacpan or  search on metacpan

t/00-compile.t  view on Meta::CPAN 

for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';

 view all matches for this distribution


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