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

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

examples/show_approximations.pl  view on Meta::CPAN

#!/usr/bin/perl -w

use strict;
use lib qw(lib);
use Wx qw(wxSOLID);
use Wx::Event qw(EVT_PAINT);

use Acme::Colour::Fuzzy;

 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

 view release on metacpan or  search on metacpan

scrolly  view on Meta::CPAN

#!/usr/bin/perl

use warnings;
use Curses;
use lib "./lib/Acme/Curses";
use Marquee;

initscr;
halfdelay(1);
noecho;

 view release on metacpan or  search on metacpan

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

use Lexical::SingleAssignment;
use Lexical::Types;
use Lexical::TypeTiny;
use Lexical::Util;
use Lexical::Var;
use lib;
use lib::abs;
use lib::absolute;
use libalarm;
use libapreq;
use lib::archive;
use lib::byversion;
use lib::deep;
use lib::filter;
use lib::findbin;
use lib::gitroot;
use lib::glob;
use lib::http;
use lib::if::dev;
use lib::ini;
use libintl::perl;
use libnet;
use lib::none;
use lib::noop;
use libPam::Perl;
use libparse;
use lib::prereqs::only;
use lib::projectroot;
use lib::relative;
use lib::remote;
use lib::require::all;
use lib::restrict;
use LibTerm::GetKey;
use lib::tiny;
use LibTracker::Client;
use lib::vendor;
use libvorbis::perl;
use lib::with::preamble;
use libwww::perl;
use lib::xi;
use libxml::enno;
use libxml::perl;
use LightWaveRF;
use LIMS::Controller::bzip;
use LIMS::MT_Plate::zip;
use LineByLine;
use Lingua::Abbreviate::Hierarchy;

 view release on metacpan or  search on metacpan

lib/Acme/Devel/Hide/Tiny.pm  view on Meta::CPAN

=head1 SYNOPSIS

    # in 'foo.t', assume we want to hide Cpanel::JSON::XS

    # hide Cpanel::JSON::XS -> Cpanel/JSON/XS.pm
    use lib map {
        my $m = $_;
        sub { return unless $_[1] eq $m; die "Can't locate $_[1] in \@INC (hidden)\n"; }
    } qw{Cpanel/JSON/XS.pm};

=head1 DESCRIPTION

lib/Acme/Devel/Hide/Tiny.pm  view on Meta::CPAN

extremely stripped down version of L<Devel::Hide>.

Here is a more verbose, commented version of it:

    # 'lib' adds its arguments to the front of @INC
    use lib

        # add one coderef per path to hide
        map {
            # create lexical for module
            my $m = $_;

lib/Acme/Devel/Hide/Tiny.pm  view on Meta::CPAN

        }

        # input to map is a list module names, converted to paths;
        qw{Cpanel/JSON/XS.pm JSON/XS.pm}

    ; # end of 'use lib' statement

When perl sees a coderef in C<@INC>, it gives the coderef a chance to
provide the source code of that module.  In this case, if the path is the
one we want to hide, it dies with the message we want and perl won't
continue looking at C<@INC> to find the real module source.  The module is

 view release on metacpan or  search on metacpan

eg/freq.pl  view on Meta::CPAN

#! /usr/local/bin/perl -w

use lib qw{ blib/lib ../blib/lib };
use Acme::DonMartin;
sklush thlup pflap groon sound shkliksa glip cak gashklitzka kashpritza
ding shlook ging chaklik borfft crugazunch twok flut spla tood shkwitz
kladwak brrrapp thwak crunch whisk tippity sklukle gashklitzka pik
gukguk dingalina gak sproingdoink sklork flak kloonk kaloong cha thomp