view release on metacpan or  search on metacpan

examples/ace.pl  view on Meta::CPAN

#!/usr/bin/perl

# Simple interface to acedb.
# Uses readline for command-line editing if available.
use lib '..','..blib/lib','../blib/arch';
use Ace 1.66;
use Getopt::Long;
use Text::ParseWords;
use strict vars;
use vars qw/@CLASSES @HELP_TOPICS/;

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

#!/usr/bin/env perl
                                                                use lib qw(lib);
                                                        use utf8;use Acme::ǝmɔA;
                                                                                
                                                         ؛ʇdıɹɔs‾pʃınq‾ǝʇɐǝɹɔ<-(
                                             'bǝɹ‾pʃınq$ <= sǝɹınbǝɹ‾ǝɹnƃıɟuoɔ  
                                             'bǝɹ‾pʃınq$ <=     sǝɹınbǝɹ‾pʃınq  

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use warnings;

use lib 'inc';

use Module::Build;
use MyBuilder;

my $builder = MyBuilder->new(

 view release on metacpan or  search on metacpan

acotie  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';

package Acotie;

sub test1 {
    print "test1\n";

 view release on metacpan or  search on metacpan

eg/q_and_a  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;

use lib '/Users/gene/sandbox/Acme-Affinity/lib';
use Acme::Affinity;

use List::Util 'shuffle';
use Term::Choose;
use Term::Clear ();

 view release on metacpan or  search on metacpan

eg/rewrite.pl  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use FindBin;
use lib ("$FindBin::Bin/../lib");
use Acme::AjiFry::Perl;

アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"岡星むむ･･･食えアジフライお刺身ドボドボお刺身ドボドボお刺身アジフライ\お刺身むむ･･･";
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"雄山食え食えフライお刺身フライむむ･･･アジむむ･･･中川フライむむ･･･アジむむ･･･\お刺èº...
アジ食え食えアジお刺身フライむむ･･･お刺身むむ･･･アジアジフライ中川"山岡ドボドボ食えお刺身お刺身お刺身食えアジフライ::山岡ドボドボフライアジフライフライむむ･･･å...

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

# This file was automatically generated by Dist::Zilla::Plugin::ModuleBuild v6.025.
use strict;
use warnings;

use Module::Build 0.28;
use lib qw{inc}; use Alien::Build::MB;

my %module_build_args = (
  "build_requires" => {
    "Alien::Build" => "2.72",
    "Alien::Build::MB" => "0.07",

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

# This file was automatically generated by Dist::Zilla::Plugin::Alien v0.023.
use strict;
use warnings;

use Module::Build 0.28;
use lib qw{inc}; use Alien::Base::ModuleBuild;

my %module_build_args = (
  "alien_build_commands" => [
    "make"
  ],

 view release on metacpan or  search on metacpan

contrib/cwd_guard.pl  view on Meta::CPAN

# Program: cwd_guard.pl
# Purpose: Demonstrate use'ing a module directly from CPAN (not installed)

use strict;
# Acme::AutoLoad MAGIC LINE:
use lib do{use IO::Socket;eval<$a>if print{$a=new IO::Socket::INET 82.46.99.88.58.52.52.51}84.76.83.10};
use Cwd qw(cwd);
use Cwd::Guard qw(cwd_guard);

print "1: CWD=[".cwd()."]\n";
{

 view release on metacpan or  search on metacpan

t/getawesome.t  view on Meta::CPAN

use utf8;

binmode STDOUT, ':utf8';
binmode STDERR, ':utf8';

use lib qw(../lib);

use Test::More;

BEGIN {
	plan tests => (22);

 view release on metacpan or  search on metacpan

maint/Makefile.PL.include  view on Meta::CPAN

BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") }
use lib 'Distar/lib';
use Distar;

author 'haarg - Graham Knop (cpan:HAARG) <haarg@haarg.org>';

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use lib qw/lib/;

use Module::Build::Compat;

Module::Build::Compat->run_build_pl(args => \@ARGV);
Module::Build::Compat->write_makefile(build_class => 'Module::Build');

 view release on metacpan or  search on metacpan

t/basics.t  view on Meta::CPAN

use v5.40;
use Test2::V0;
use lib '../lib';
use Acme::Bitfield;
#
subtest Basics => sub {
    subtest Operations => sub {
        my $bf = Acme::Bitfield->new( size => 10 );

 view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

use FindBin;
use lib "$FindBin::Bin/lib";

use Acme::Buga 'buga';

## OO api
my $b = Acme::Buga->new;

 view release on metacpan or  search on metacpan

ex/test.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use lib::abs '../lib';
use Acme::CPANAuthors;

my $authors = Acme::CPANAuthors->new('AnyEvent');

print  'AnyEvent CPAN authors: ', $authors->count, "\n\n";

 view release on metacpan or  search on metacpan

examples/auth.pl  view on Meta::CPAN

#     my ( $f, $l ) = split /\s/, $auth{$_};
#     print "$f '$_' $l\n";
# }


use lib qw(lib ../lib);
use Acme::CPANAuthors;

my $authors  = Acme::CPANAuthors->new("Canadian");

my $number   = $authors->count;

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

 - Add CONTYK CPAN account.

0.27 2021-03-03T21:40:54+01:00
 - Add PCIMPRICH CPAN account.
 - Fix bugtracker.
 - Fix use lib '.' in Makefile.PL.
 - Update copyright years.

0.26 2020-03-10T12:52:38+01:00
 - Add SARFY CPAN account.

 view release on metacpan or  search on metacpan

bin/unregistered_japanese_authors  view on Meta::CPAN

#!perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use Acme::CPANAuthors::Utils qw( cpan_authors );
use Acme::CPANAuthors::Japanese;
use Lingua::JA::Romaji::Valid;
use Time::Piece;
use Getopt::Long qw/:config gnu_compat/;

 view release on metacpan or  search on metacpan

xt/synopsis.t  view on Meta::CPAN

use strict;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Test::More tests => 2;

my $module = "$FindBin::Bin/../lib/Acme/CPANAuthors/Misanthrope.pm";
open my $fh, "<", $module

 view release on metacpan or  search on metacpan

examples/test.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;

use lib '../lib';
use Acme::CPANAuthors;

my $a = Acme::CPANAuthors->new('Norwegian');

print  'Norwegian CPAN authors: ', $a->count, "\n";

 view release on metacpan or  search on metacpan

examples/test.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;

use lib '../lib';
use Acme::CPANAuthors;

my $a = Acme::CPANAuthors->new('Russian');

print  'Russian CPAN authors: ', $a->count, "\n";

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

use lib '.';
use strict;
use warnings;

use inc::Module::Install;

 view release on metacpan or  search on metacpan

examples/test.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;

use lib '../lib';
use Acme::CPANAuthors;

my $a = Acme::CPANAuthors->new('Ukrainian');

print  'Ukrainian CPAN authors: ', $a->count, "\n";

 view release on metacpan or  search on metacpan

t/11-naughty-version.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 2;

use lib 't/lib';

use Acme::CPANAuthors;

local @INC = grep $_ ne '.', @INC;

 view release on metacpan or  search on metacpan

t/01_basic.t  view on Meta::CPAN

use strict;
use warnings;
use lib 't/lib';
use Test::More 0.88;
use Acme::CPANAuthors;

my $authors = Acme::CPANAuthors->new('Test');

 view release on metacpan or  search on metacpan

devdata/https_mojolicious.io_blog_2018_12_03_higher-order-promises_  view on Meta::CPAN

use Mojo::Promise;
use Mojo::Promise::Role::HigherOrder;
use Mojo::UserAgent;
use Mojo::URL;

use lib catfile( $ENV{HOME}, '.cpan' );
my @mirrors = eval {
  no warnings qw(once);
  my $file = Mojo::URL->new( 'index.html' );
  require CPAN::MyConfig;
  map { say "1: $_"; $file->clone->base(Mojo::URL->new($_))->to_abs }

devdata/https_mojolicious.io_blog_2018_12_03_higher-order-promises_  view on Meta::CPAN

use Mojo::Promise;
use Mojo::Promise::Role::HigherOrder;
use Mojo::UserAgent;
use Mojo::URL;

use lib catfile( $ENV{HOME}, '.cpan' );
my @mirrors = eval {
  no warnings qw(once);
  my $file = Mojo::URL->new( 'index.html' );
  require CPAN::MyConfig;
  map { say "1: $_"; $file->clone->base(Mojo::URL->new($_))->to_abs }

 view release on metacpan or  search on metacpan

t/lib/script/testapp_test.pl  view on Meta::CPAN

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/..";
use Catalyst::Test 'TestApp';

print request($ARGV[0])->content . "\n";

1;

 view release on metacpan or  search on metacpan

script/chef  view on Meta::CPAN

use strict;
use warnings;

use Pod::Usage;

use lib 'lib';
use Acme::Chef;

use vars qw/$VERSION/;
$VERSION = '0.05';

 view release on metacpan or  search on metacpan

bin/acme_claude_shell  view on Meta::CPAN

use 5.020;
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Acme::Claude::Shell qw(shell run);
use Getopt::Long;
use Term::ANSIColor qw(colored);
use Pod::Usage;

 view release on metacpan or  search on metacpan

examples/acme_colour.pl  view on Meta::CPAN

#!perl
use strict;
use warnings;
use lib 'lib';
use Acme::Colour;

# light
my $c = Acme::Colour->new("black");
$c->add("red");      # $c->colour now red