view release on metacpan or search on metacpan
lib/Acme/CPANLists/Import/PerlAdvent/2017.pm view on Meta::CPAN
package Acme::CPANLists::Import::PerlAdvent::2017;
our $DATE = '2018-01-01'; # DATE
our $VERSION = '0.001'; # VERSION
our @Module_Lists = ({description=>"This list is generated by extracting module names mentioned in [http://perladvent.org/2017/] (retrieved on 2018-01-01). Visit the URL for the full contents.",entries=>[{module=>"App::GHPT::Wrapper::Ourperl"},{modul...
1;
# ABSTRACT: Modules mentioned in Perl Advent Calendar 2017
__END__
lib/Acme/CPANLists/Import/PerlAdvent/2017.pm view on Meta::CPAN
=item * L<WWW::YouTube::Download>
=item * L<Path::Tiny>
=item * L<utf8>
=item * L<DBIx::Class>
=item * L<Test::Perl::Critic>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/HTMLTable.pm view on Meta::CPAN
package Acme::CPANModules::HTMLTable;
use 5.010001;
use strict;
use warnings;
#use utf8;
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-HTMLTable'; # DIST
our $VERSION = '0.002'; # VERSION
view release on metacpan or search on metacpan
devdata/davidgaramond view on Meta::CPAN
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<!-- The above 3 meta tags *must* come first in the head; any other head content must come *after* these tags -->
view release on metacpan or search on metacpan
devdata/perlancar view on Meta::CPAN
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<!-- The above 3 meta tags *must* come first in the head; any other head content must come *after* these tags -->
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-29'; # DATE
our $DIST = 'Acme-CPANModules-Import-CPANRatings-User-stevenharyanto'; # DIST
our $VERSION = '0.002'; # VERSION
our $LIST = {description=>"This list is generated by scraping CPANRatings (cpanratings.perl.org) user page.",entries=>[{description=>"\n(REMOVED)\n",module=>"Log::Any",rating=>undef},{description=>"\nProvides a thin/lightweight OO interface for \$?, ...
1;
# ABSTRACT: List of modules mentioned by CPANRatings user stevenharyanto
__END__
lib/Acme/CPANModules/Import/CPANRatings/User/stevenharyanto.pm view on Meta::CPAN
Author: L<LAWALSH|https://metacpan.org/author/LAWALSH>
I personally don't mind the namespace choice. There are other single-letter CPAN modules too like B, L, U, V. If you have a beef with regard to namespace, don't single out P and perhaps downvote the other modules too.
<br><br>Having said that, I would like to comment on the design and implementation of this module.
<br><br>1) The choice of Unicode character U+2204 as representation of undef. Unless one does something like 'binmode STDOUT, ":utf8"', with 'say P undef' I am just trading one warning ("Use of uninitialized value") with another (...
<br><br>2) P loads utf8 by default. For ultra-lightweight cases, this is sometimes not desirable. There is currently no way to turn this off.
<br><br>3) The arbitrary choice of three levels deep when printing references. This can be customized but with an unusual syntax. But again, the arbitrary choice of three.
<br><br>4) The "complex" rules of newline printing. p() is like puts, it can optionally add a newline. But unlike puts, the doc says it can also remove newlines. The behavior can also change if the string to be printed ends with 0x83.
<br><br>I might use P for a sprintf/printf replacement, but for debugging values, I'd prefer something "dumber" like Data::Dump::Color (or Data::Printer, if that's your thing).
view release on metacpan or search on metacpan
lib/Acme/CPANModules/OrderedHash.pm view on Meta::CPAN
The above result presented as chart:
=begin html
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAtAAAAH4CAMAAABUnipoAAAAIGNIUk0AAHomAACAhAAA+gAAAIDoAAB1MAAA6mAAADqYAAAXcJy6UTwAAADDUExURf///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA...
=end html
Result formatted as table (split, part 3 of 4):
view release on metacpan or search on metacpan
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
package Acme::CPANModules::TextTable;
use 5.010001;
use strict;
use warnings;
use utf8;
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-10-31'; # DATE
our $DIST = 'Acme-CPANModules-TextTable'; # DIST
our $VERSION = '0.016'; # VERSION
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
_
bench_code => sub {
my ($table) = @_;
my $t = Text::ANSITable->new(
use_utf8 => 0,
use_box_chars => 0,
use_color => 0,
columns => $table->[0],
border_style => 'ASCII::SingleLine',
);
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
The above result presented as chart:
=begin html
<img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAtAAAAH4CAMAAABUnipoAAAJJmlDQ1BpY2MAAEiJlZVnUJNZF8fv8zzphUASQodQQ5EqJYCUEFoo0quoQOidUEVsiLgCK4qINEWQRQEXXJUia0UUC4uCAhZ0gywCyrpxFVFBWXDfGZ33HT+8/5l7z2/+c+bec8/5cAEgiINlwct7YlK6wNvJjhkYFMwE3yiMn5...
=end html
Result formatted as table (split, part 2 of 5):
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/MojoliciousAdvent/2017.pm view on Meta::CPAN
package Acme::CPANModules::Import::MojoliciousAdvent::2017;
our $DATE = '2018-12-30'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {description=>"This list is generated by extracting module names mentioned in [https://mojolicious.io/page/advent/2017/] (retrieved on 2018-12-30). Visit the URL for the full contents.",entries=>[{module=>"App::cpanminus"},{module=>"Mojo:...
1;
# ABSTRACT: Modules mentioned in Mojolicious Advent Calendar 2017
__END__
lib/Acme/CPANModules/Import/MojoliciousAdvent/2017.pm view on Meta::CPAN
=item * L<feature>
=item * L<strict>
=item * L<utf8>
=item * L<warnings>
=item * L<Class::Method::Modifiers>
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_ view on Meta::CPAN
<!--[if lt IE 8 ]><html class="no-js ie ie7" lang="en"> <![endif]-->
<!--[if IE 8 ]><html class="no-js ie ie8" lang="en"> <![endif]-->
<!--[if (gte IE 8)|!(IE)]><!--><html class="no-js" lang="en"> <!--<![endif]-->
<head>
<meta charset="utf-8">
<meta content="" name="description">
<meta content="width=device-width, initial-scale=1, maximum-scale=1" name="viewport">
<link href="/theme/css/default.css" rel="stylesheet">
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlAdvent/2011.pm view on Meta::CPAN
{ module => "DBD::SQLite" },
{ module => "Encode" },
{ module => "Encode::DoubleEncodedUTF8" },
{ module => "Unicode::Tussle" },
{ module => "perl5i" },
{ module => "utf8" },
{ module => "utf8::all" },
{ module => "Apache::DBI" },
{ module => "DBIx::Class" },
{ module => "DBIx::Connector" },
{ module => "Rose::DB" },
{ module => "Params::Util" },
lib/Acme/CPANModules/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>
view release on metacpan or search on metacpan
lib/Acme/CPANModules/Import/PerlAdvent/2017.pm view on Meta::CPAN
package Acme::CPANModules::Import::PerlAdvent::2017;
our $DATE = '2018-02-18'; # DATE
our $VERSION = '0.001'; # VERSION
our $LIST = {description=>"This list is generated by extracting module names mentioned in [http://perladvent.org/2017/] (retrieved on 2018-02-18). Visit the URL for the full contents.",entries=>[{module=>"App::GHPT::Wrapper::Ourperl"},{module=>"Term:...
1;
# ABSTRACT: Modules mentioned in Perl Advent Calendar 2017
__END__
lib/Acme/CPANModules/Import/PerlAdvent/2017.pm view on Meta::CPAN
=item * L<Perl::Critic>
=item * L<Devel::MAT>
=item * L<utf8>
=item * L<Emoji::NationalFlag>
=item * L<DBIx::Class>
view release on metacpan or search on metacpan
devdata/http_advent.perldancer.org_2018_13 view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-type" content="text/html; charset=utf-8" />
<title> The Twelve Days of Dancer | PerlDancer Advent Calendar</title>
<link rel="stylesheet" href="/css/style.css" />
<link rel="alternate" type="application/rss+xml" title="All Articles " href="/feed/2018" />
view release on metacpan or search on metacpan
lib/Acme/CPANModulesUtil/Bencher.pm view on Meta::CPAN
module => 'Text::ANSITable',
...
bench_code => sub {
my ($table) = @_;
my $t = Text::ANSITable->new(
use_utf8 => 0,
use_box_chars => 0,
use_color => 0,
columns => $table->[0],
border_style => 'Default::single_ascii',
);
lib/Acme/CPANModulesUtil/Bencher.pm view on Meta::CPAN
module => 'Text::ANSITable',
...
bench_code => sub {
my ($table) = @_;
my $t = Text::ANSITable->new(
use_utf8 => 0,
use_box_chars => 0,
use_color => 0,
columns => $table->[0],
border_style => 'Default::single_ascii',
);
view release on metacpan or search on metacpan
lib/Acme/Cake.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Cake - A CPAN cake on CPAN.
view release on metacpan or search on metacpan
lib/Acme/Capture.pm view on Meta::CPAN
no warnings 'redefine';
eval <<'EOT' or die "Can't redefine _relayer() ==> $@";
sub Capture::Tiny::_relayer {
my ($fh, $layers) = @_;
my $unix_utf8_crlf = @$layers > 4
&& $layers->[0] eq 'unix'
&& $layers->[1] eq 'crlf'
&& $layers->[2] eq 'utf8'
&& $layers->[3] eq 'unix'
&& $layers->[4] eq 'encoding(utf8)' ? 1 : 0;
if ($unix_utf8_crlf and $^O eq 'MSWin32') {
binmode($fh, ':unix:encoding(utf8):crlf');
}
else {
# _debug("# requested layers (@{$layers}) for @{[fileno $fh]}\n");
my %seen = ( unix => 1, perlio => 1 ); # filter these out
my @unique = grep { !$seen{$_}++ } @$layers;
view release on metacpan or search on metacpan
lib/Acme/ChuckNorris.pod view on Meta::CPAN
=encoding utf8
=head1 NAME
Acme::ChuckNorris - Perl prefers to code in Chuck Norris
view release on metacpan or search on metacpan
lib/Acme/CoC/Dice.pm view on Meta::CPAN
package Acme::CoC::Dice;
use strict;
use warnings;
use utf8;
use Acme::CoC::Util;
use Acme::CoC::Types;
use Carp qw/croak/;
lib/Acme/CoC/Dice.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
=head1 NAME
Acme::CoC::Dice - Dice role module for CoC TRPG.
view release on metacpan or search on metacpan
inc/Module/Install/Repository.pm view on Meta::CPAN
}
1;
__END__
=encoding utf-8
#line 128
view release on metacpan or search on metacpan
lib/Acme/ConspiracyTheory/Random.pm view on Meta::CPAN
__END__
=pod
=encoding utf-8
=head1 NAME
Acme::ConspiracyTheory::Random - random theories
view release on metacpan or search on metacpan
inc/Module/Install/TestBase.pm view on Meta::CPAN
$self->requires('Filter::Util::Call');
}
1;
=encoding utf8
#line 70
view release on metacpan or search on metacpan
t/01-simple.t view on Meta::CPAN
# Scramble everything
my $text1 = $sc->scramble;
ok( length($text1) > 0 );
$sc->feed( "Java" => io("t/text/java.txt")->utf8->all );
$sc->feed( "Perl" => io("t/text/perl.txt")->utf8->all );
$sc->feed( "XML" => io("t/text/xml.txt")->utf8->all );
$sc->feed( "Dream" => io("t/text/dream.txt")->utf8->all );
# Scramble only XML with Perl
my $text2 = $sc->scramble(qw( XML Perl) );
ok( length($text2) > 0 );
view release on metacpan or search on metacpan
slides/index.html view on Meta::CPAN
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title></title>
<meta name="Content-Type" content="text/html; charset=utf-8" />
<meta name="generator" content="Spork v0.20" />
<link rel='icon' href='favicon.png' />
<link rel="stylesheet" type="text/css" href="" />
<style type="text/css"><!--
/* BEGIN index.css */
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Class::DBI::TempEssential;
use Class::DBI::Template;
use Class::DBI::Test::TempDB;
use Class::DBI::ToSax;
use Class::DBI::Untaint;
use Class::DBI::utf;
use Class::DBI::UUID;
use Class::DBI::v;
use Class::DBI::View;
use Class::DBI::ViewLoader;
use Class::DBI::ViewLoader::Pg;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Curses::UI::Volume;
use CursesWidgets;
use C::Utility;
use Cwd::Ext;
use Cwd::Guard;
use Cwd::utf;
use cyrillic;
use Daemon::Control;
use Daemon::Control::Plugin::HotStandby::tar;
use Daemon::Daemonize;
use Daemon::DaemonizeLight;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use File::Find::Rule::VCS;
use File::Find::Rule::WellFormed;
use File::Find::Rule::XPath;
use File::FindSimilars;
use File::Find::Upwards;
use File::Find::utf;
use File::Find::Wanted;
use File::Fingerprint;
use File::Fingerprint::Huge;
use File::Flat;
use File::Flock;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use PerlIO::locale;
use PerlIO::rewindable;
use PerlIO::subfile;
use PerlIO::text;
use PerlIO::unicodeeol;
use PerlIO::utf_strict;
use PerlIO::Util;
use PerlIO::via::ANSIColor;
use PerlIO::via::as_is;
use PerlIO::via::Babelfish;
use PerlIO::via::Bastardize;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Test::URI;
use Test::Usage;
use Test::UseAllModules;
use Test::UsedModules;
use Test::Uses;
use Test::utf;
use Test::Valgrind;
use Test::VariousBits;
use Test::Varnish;
use Test::Vars;
use Test::VCR::LWP;
view release on metacpan or search on metacpan
lib/Acme/Dump/And/Dumper.pm view on Meta::CPAN
1;
__END__
=encoding utf8
=for stopwords Dump'n'Dumper clonable pneumonic
=head1 NAME
view release on metacpan or search on metacpan
use 5.008_001;
use strict;
use warnings;
use utf8;
use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
view release on metacpan or search on metacpan
lib/Acme/Emoticarp.pm view on Meta::CPAN
## use critic (RequireUseStrict)
use strict;
use warnings;
use parent 'Exporter';
use utf8;
use Carp ();
our @EXPORT = ('o_O', 'ಠ_ಠ');
lib/Acme/Emoticarp.pm view on Meta::CPAN
};
sub import {
my ( $class, @arguments ) = @_;
$^H |= $utf8::hint_bits; ## no critic (Bangs::ProhibitBitwiseOperators)
$class->export_to_level(1, @_);
}
1;
=pod
=encoding utf-8
=head1 NAME
Acme::Emoticarp - Carp and cluck in a more fun way.
lib/Acme/Emoticarp.pm view on Meta::CPAN
version 0.02
=head1 SYNOPSIS
use Acme::Emoticarp; # also uses 'use utf8'
ಠ_ಠ'No user for this session!' unless defined $user;
o_O 'No arguments provided.' unless @ARGV;
=head1 DESCRIPTION
This module exports aliases for L<Carp/cluck> and L<Carp/croak>
that are more amusing to use. Because some emoticons use UTF-8
names, L<utf8> is automatically turned on in the importing environment.
=head1 FUNCTIONS
=head2 o_O
view release on metacpan or search on metacpan
lib/Acme/EnclosedChar.pm view on Meta::CPAN
package Acme::EnclosedChar;
use strict;
use warnings;
use utf8;
use parent qw/Exporter/;
our @EXPORT_OK = qw/
enclose
enclose_katakana
enclose_week_ja
view release on metacpan or search on metacpan
lib/Acme/EvaTitlenize.pm view on Meta::CPAN
package Acme::EvaTitlenize;
use 5.008005;
use strict;
use warnings;
use utf8;
use Text::VisualWidth::UTF8;
our $VERSION = "0.01";
lib/Acme/EvaTitlenize.pm view on Meta::CPAN
1;
__END__
=encoding utf-8
=head1 NAME
Acme::EvaTitlenize - Generate strings like title of Evangelion
view release on metacpan or search on metacpan
lib/Acme/Evil.pm view on Meta::CPAN
our $VERSION = 0.003002;
1;
__END__
=encoding utf-8
=head1 NAME
Acme::Evil - Empty module
view release on metacpan or search on metacpan
t/19_surrounds.t view on Meta::CPAN
# package main;
# tie *STDOUT, 'MyStdout';
# See, for example, TieOut.pm in the t/lib directory of ExtUtils-MakeMaker.
# (TieOut.pm is a little invention of chromatic's).
my $outf = 'out.tmp';
my $errf = 'err.tmp';
-f $outf and (unlink($outf) or die "error: unlink '$outf': $!");
-f $errf and (unlink($errf) or die "error: unlink '$errf': $!");
my $itest = 0;
sub test_one {
my ($e, $rtests) = @_;
local *SAVERR; open(SAVERR, ">&STDERR"); # save original STDERR
local *SAVOUT; open(SAVOUT, ">&STDOUT"); # save original STDOUT
open(STDOUT, '>'.$outf) or die "Could not create '$outf': $!";
open(STDERR, '>'.$errf) or die "Could not create '$errf': $!";
my $status = Test::Harness::runtests(@{$rtests});
# XXX: Test harness does not like the next two closes.
# close(STDOUT) or die "error: close STDOUT: $!";
# close(STDERR) or die "error: close STDERR: $!";
t/19_surrounds.t view on Meta::CPAN
open(STDOUT, ">&SAVOUT") or die "error: restore STDOUT: $!";
# XXX: is this necessary to prevent leaks?
close(SAVOUT) or die "error: close SAVOUT: $!";
close(SAVERR) or die "error: close SAVERR: $!";
my $outstr = Acme::EyeDrops::_slurp_tfile($outf);
my $errstr = Acme::EyeDrops::_slurp_tfile($errf);
print STDERR "\nstdout of TestHarness::runtests:\n$outstr\n";
print STDERR "stderr of TestHarness::runtests:\n$errstr\n";
t/19_surrounds.t view on Meta::CPAN
for my $t (@ztests) { unlink($t) or die "error: unlink '$t': $!" }
rm_f_dir($genbase);
unlink($outf) or die "error: unlink '$outf': $!";
unlink($errf) or die "error: unlink '$errf': $!";