view release on metacpan or  search on metacpan

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

}

1;
__END__

=encoding utf8

=head1 NAME

Acme::Buga - Buga text encoding

 view release on metacpan or  search on metacpan

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

			(??{ $block })		# An embedded block
		)*
	}					# Close-curly
}x;

sub _butfirstify {

	# Continue to re-write our code until no more butfirst
	# sections exist.

	# We enclose each pair of blocks transposed inside their
	# own block.  This allows chained but-firsts and
	# butfirst modifiers on loops to work 'correctly'.

	1 while s{ ($block) \s* but \s* first \s* ($block) }
                 {{$2\n$1}}gxs;

};

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

#
# The downside of this is that we may modify some *real* strings
# as well as code.


FILTER_ONLY executable => \&_butfirstify;

1;
__END__

=head1 NAME

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

	# Print our lines, but first reverse them, but first convert
	# them into upper case.

	while (<>) {
		print;
	} butfirst {
		$_ = reverse $_;
	} butfirst {
		$_ = uc $_;
	}

=head1 DESCRIPTION

C<Acme::ButFirst> allows you to execute a block of code, but first do
something else.  Perfect for when you wish to add to the start
of a long block of code, but don't have the energy to scroll
upwards in your editor.

C<Acme::ButFirst> recognises both C<butfirst> and C<but first> as
keywords.

Usage of C<Acme::ButFirst> is lexically scoped.  ButFirstification
can be explicitly disabled by using C<no Acme::ButFirst>.

 view release on metacpan or  search on metacpan

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

                 print scalar(@new)
                     . " new Acme::CPANAuthors authors to add\n";
                 return if !@new;
                 require MetaCPAN::API;
                 my $mcpan = MetaCPAN::API->new();
                 binmode(STDOUT, ':utf8');

                 for my $id (sort @new) {
                     my $author = $mcpan->author($id);
                     printf "    %s => q[%s], # %s\n", $id, $author->{name},
                         join ', ', map { 'A::C::' . $_ } @{$authors{$id}};

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::AnyEvent;

use 5.005;
use utf8;
use strict;
use warnings;

=encoding utf-8

=head1 NAME

Acme::CPANAuthors::AnyEvent - We are CPAN Authors of AnyEvent!

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Australian;

use 5.008;
use strict;
use warnings;
use utf8;

BEGIN {
	$Acme::CPANAuthors::Australian::AUTHORITY = 'cpan:TOBYINK';
	$Acme::CPANAuthors::Australian::VERSION   = '0.002';
}

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

__END__

=pod

=encoding utf-8

=head1 NAME

Acme::CPANAuthors::Australian - we are Australian CPAN authors

 view release on metacpan or  search on metacpan

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

use 5.008;
use strict;
use warnings;
use utf8;

package Acme::CPANAuthors::Austrian;
our $VERSION = 1.131810;
# ABSTRACT: We are Austrian CPAN authors

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Brazilian;

use strict;
use warnings;
use utf8;

our $VERSION = '0.29';

use Acme::CPANAuthors::Register (
    ACPGUEDES => 'Aureliano Coelho Proença Guedes',

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

);

1;

__END__
=encoding utf8

=head1 NAME

Acme::CPANAuthors::Brazilian - We are brazilian CPAN authors

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Catalonian;

use warnings;
use strict;
use utf8;

our $VERSION = '0.02';

use Acme::CPANAuthors::Register ( ALEXM     => 'Alex Muntada',
                                  BREQUESEN => 'Bernat Requesens',

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Chinese;

use strict;
use warnings;
use utf8;

our $VERSION = '0.43';

use Acme::CPANAuthors::Register (
    ABBYPAN     => 'Abby Pan',

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

1;

__END__

=encoding utf8

=head1 NAME

Acme::CPANAuthors::Chinese - We are Chinese CPAN authors

 view release on metacpan or  search on metacpan

Czech.pm  view on Meta::CPAN

package Acme::CPANAuthors::Czech;

use strict;
use utf8;
use warnings;

our $VERSION = 0.32;

# Modules.

Czech.pm  view on Meta::CPAN

__END__

=pod

=encoding utf8

=head1 NAME

Acme::CPANAuthors::Czech - We are Czech CPAN authors.

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Danish;
# ABSTRACT: We are Danish CPAN authors
$Acme::CPANAuthors::Danish::VERSION = '0.04';
use strict;
use warnings;
use utf8;

use Acme::CPANAuthors::Register (
    ABH      => 'Ask Bjørn Hansen',
    GRUBER   => 'Anton Berezon',
    WARMING  => 'Casper Warming',

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

__END__

=pod

=encoding utf-8

=head1 NAME

Acme::CPANAuthors::Danish - We are Danish CPAN authors

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::French;
use utf8;
use strict;
use warnings;

{
    no strict "vars";

 view release on metacpan or  search on metacpan

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

}
# ABSTRACT: We are German CPAN authors

use strict;
use warnings;
use utf8;

use Acme::CPANAuthors::Register (
    AGROLMS  => 'Achim Grolms',
    ANNO     => 'Anno Siegel',
    CFAERBER => 'Claus Färber',

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

1;

__END__
=pod

=encoding utf-8

=head1 NAME

Acme::CPANAuthors::German - We are German CPAN authors

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::GitHub;

use strict;
use warnings;
use utf8;

our $VERSION = '0.09';
$VERSION = eval $VERSION;

use Acme::CPANAuthors::Register(

 view release on metacpan or  search on metacpan

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

  $Acme::CPANAuthors::Icelandic::VERSION = '0.04';
}

use strict;
use warnings FATAL => 'all';
use utf8;

use Acme::CPANAuthors::Register (
    ADDI      => 'Arnar Mar Hrafnkelsson',
    AVAR      => 'Ævar Arnfjörð Bjarmason',
    BALDUR    => 'Baldur Kristinsson',

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

    HRAFNKELL => 'Hrafnkell Freyr Hlöðversson',
);

1;

=encoding utf8

=head1 NAME

Acme::CPANAuthors::Icelandic - We are Icelandic CPAN authors

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::India;

use 5.006;
use strict;
use warnings FATAL => 'all';
use utf8;

# PODNAME: Acme::CPANAuthors::India
our $VERSION = '0.07'; # VERSION
# ABSTRACT: We are the Indian CPAN Authors. Coming from that big peninsula in the center of Asia, the original Indians. The ones columbus was looking for. :)
#

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Korean;

use strict;
use warnings;
our $VERSION = '0.16';
use utf8;

use Acme::CPANAuthors::Register (
    AANOAA    => "Hyungsuk Hong",
    AERO      => "C.H. Kang",
    AMORETTE  => "Hojung Youn",

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

1;

__END__

=encoding utf8

=head1 NAME

Acme::CPANAuthors::Korean - We are Korean CPAN Authors! (우리는 CPAN Author 다!)

 view release on metacpan or  search on metacpan

inc/expand_author_list.pm  view on Meta::CPAN

use HTML::Entities;
use Math::Random::MT;

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

 view release on metacpan or  search on metacpan

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

1;

__END__

=encoding utf-8

=head1 NAME

Acme::CPANAuthors::Malaysian - We are Malaysian CPAN authors (Kami para penulis
CPAN Malaysia).

 view release on metacpan or  search on metacpan

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

# ABSTRACT: We are non-human CPAN authors
# KEYWORDS: acmeism cpan authors animals fun

our $VERSION = '0.026';

use utf8;

# this data was generated at build time via __DATA__ section
# and Dist::Zilla::Plugin::MungeFile::WithDataSection 0.009
my %authors = (
    ETHER => 'Karen Etheridge',

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Norwegian;
use utf8; # encoding="utf-8"

use warnings;
use strict;

our $VERSION = '0.2';

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Polish;
use utf8;

use strict;
use warnings;

our $VERSION = '0.04';

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Russian;
use utf8; # encoding="utf-8"

use warnings;
use strict;

our $VERSION = '1.07';

 view release on metacpan or  search on metacpan

Slovak.pm  view on Meta::CPAN

package Acme::CPANAuthors::Slovak;

use strict;
use utf8;
use warnings;

our $VERSION = 0.28;

# Modules.

Slovak.pm  view on Meta::CPAN

__END__

=pod

=encoding utf8

=head1 NAME

Acme::CPANAuthors::Slovak - We are Slovak CPAN authors.

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Spanish;

use warnings;
use strict;
use utf8;

our $VERSION = '0.06';

use Acme::CPANAuthors::Register ( ALEXM     => 'Alex Muntada',
                                  AMONTERO  => 'Alberto Montero Asenjo',

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Swedish;

use strict;
use warnings;
use utf8;

our $VERSION = '0.10';

use Acme::CPANAuthors::Register (
  ABERGMAN  => 'Artur Bergman',

 view release on metacpan or  search on metacpan

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

$Acme::CPANAuthors::Taiwanese::VERSION = '0.09';
# ABSTRACT: We are Taiwanese CPAN Authors!
use 5.008;
use strict;
use warnings;
use utf8;

use Acme::CPANAuthors::Register (
    AUDREYT   => "唐鳳",
    BLUET     => "練喆明",
    CLKAO     => "高嘉良",

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Turkish;
$Acme::CPANAuthors::Turkish::VERSION = '0.24';
use strict;
use warnings;
use utf8;

use Acme::CPANAuthors::Register (
    AULUSOY => 'Ayhan Ulusoy',
    BDD     => 'Berk D. Demir',
    BURAK   => 'Burak Gürsoy',

 view release on metacpan or  search on metacpan

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

package Acme::CPANAuthors::Ukrainian;
use utf8; # encoding="utf-8"

use warnings;
use strict;

our $VERSION = '0.16';

 view release on metacpan or  search on metacpan

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

package Acme::CPANLists::Import::PerlAdvent::2011;

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

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

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

__END__

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

=item * L<Unicode::Tussle>

=item * L<perl5i>

=item * L<utf8>

=item * L<utf8::all>

=item * L<Apache::DBI>

=item * L<DBIx::Class>