view release on metacpan or search on metacpan
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
align_row => {value=>0},
box_char => {value=>0},
color_data => {value=>0},
color_theme => {value=>0},
colspan => {value=>0},
custom_border => {value=>1, summary=>"Limited choice of 1 ASCII style and 1 UTF style"},
custom_color => {value=>0},
multiline_data => {value=>0},
rowspan => {value=>0},
speed => {value=>'fast', summary=>'Slightly slower than Text::Table::Tiny'},
valign_cell => {value=>0},
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
{
module => 'Text::UnicodeBox::Table',
description => <<'_',
The main feature of this module is the various border style it provides drawn
using Unicode box-drawing characters. It allows per-row style. The rendering
speed is particularly slow compared to other modules.
_
bench_code => sub {
my ($table) = @_;
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
my $t = Text::ANSITable->new(
use_utf8 => 0,
use_box_chars => 0,
use_color => 0,
columns => $table->[0],
border_style => 'ASCII::SingleLine',
);
$t->add_row($table->[$_]) for 1..@$table-1;
$t->draw;
},
features => {
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
=item L<Text::UnicodeBox::Table>
Author: L<EWATERS|https://metacpan.org/author/EWATERS>
The main feature of this module is the various border style it provides drawn
using Unicode box-drawing characters. It allows per-row style. The rendering
speed is particularly slow compared to other modules.
=item L<Text::Table::Manifold>
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
=item 21. vpad: Whether module allows customizing cell vertical padding
=item 22. Depends on backend
=item 23. Limited choice of 1 ASCII style and 1 UTF style
=item 24. Slightly slower than Text::Table::Tiny
=item 25. But this module can pass rendering to other module like Text::UnicodeBox::Table
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
| Text::Table::CSV | 200 | 4.9 | 21769.21% | 63.09% | 4.3e-05 | 20 |
| Text::Table::Sprintf | 300 | 4 | 28690.71% | 23.88% | 7.4e-05 | 20 |
| Text::Table::Any | 300 | 3 | 35566.44% | 0.00% | 3.3e-05 | 20 |
+-------------------------------+-----------+-----------+-----------------------+-----------------------+-----------+---------+
The above result formatted in L<Benchmark.pm|Benchmark> style:
Rate Text::UnicodeBox::Table Text::ANSITable Text::Table::More Text::ASCIITable Text::Table::TinyColorWide Text::FormatTable Text::Table::TinyWide Text::SimpleTable Text::Table::Manifold Text::Table::Tiny ...
Text::UnicodeBox::Table 0.92/s -- -49% -63% -90% -93% -93% -95% -96% -97% -97% ...
Text::ANSITable 1.8/s 96% -- -28% -82% -87% -87% -91% -93% -94% -94% ...
Text::Table::More 2.5/s 175% 39% -- -75% -82% -82% -87% -90% -92% -92% ...
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
| Text::Table::CSV | 1730 | 0.579 | 23360.70% | 49.91% | 2.3e-07 | 20 |
| Text::Table::Any | 2500 | 0.4 | 33906.20% | 3.42% | 4.3e-07 | 20 |
| Text::Table::Sprintf | 2590 | 0.386 | 35069.88% | 0.00% | 1.6e-07 | 20 |
+-------------------------------+-----------+-----------+-----------------------+-----------------------+-----------+---------+
The above result formatted in L<Benchmark.pm|Benchmark> style:
Rate Text::UnicodeBox::Table Text::ANSITable Text::Table::More Text::ASCIITable Text::FormatTable Text::Table::TinyColorWide Text::Table::TinyWide Text::SimpleTable Text::Table::Manifold Text::TabularDispl...
Text::UnicodeBox::Table 7.4/s -- -58% -65% -92% -94% -95% -96% -97% -97% -9...
Text::ANSITable 17/s 141% -- -15% -82% -86% -87% -91% -93% -94% -9...
Text::Table::More 21/s 185% 18% -- -79% -83% -85% -89% -91% -93% -9...
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
| Text::Table::Org | 51700 | 0.0193 | 32959.88% | 67.68% | 8.2e-09 | 21 |
| Text::Table::Any | 74100 | 0.0135 | 47322.43% | 16.90% | 8.8e-09 | 20 |
| Text::Table::Sprintf | 86700 | 0.0115 | 55334.94% | 0.00% | 5.7e-09 | 21 |
+-------------------------------+-----------+-----------+-----------------------+-----------------------+-----------+---------+
The above result formatted in L<Benchmark.pm|Benchmark> style:
Rate Text::UnicodeBox::Table Text::ANSITable Text::Table::More Text::Table::TinyWide Text::Table::TinyBorderStyle Text::ASCIITable Text::TabularDisplay Text::FormatTable Text::Table::Manifold Text::Table:...
Text::UnicodeBox::Table 200/s -- -75% -83% -95% -95% -96% -97% -97% -97% ...
Text::ANSITable 690/s 300% -- -33% -80% -82% -86% -89% -90% -90% ...
Text::Table::More 990/s 500% 50% -- -70% -74% -79% -84% -85% -86% ...
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
| Text::Table::Any | 191000 | 0.00525 | 52985.72% | 53.74% | 2.6e-09 | 20 |
| Text::Table::Sprintf | 272000 | 0.00367 | 75724.38% | 7.63% | 1.7e-09 | 22 |
| Text::Table::CSV | 293000 | 0.00341 | 81511.84% | 0.00% | 2.1e-09 | 21 |
+-------------------------------+-----------+-----------+-----------------------+-----------------------+---------+---------+
The above result formatted in L<Benchmark.pm|Benchmark> style:
Rate Text::UnicodeBox::Table Text::ANSITable Text::Table::More Text::Table::TinyBorderStyle Text::Table::Manifold Text::ASCIITable Text::Table::HTML::DataTables Text::Table::TinyWide Text::Table Text::Ma...
Text::UnicodeBox::Table 400/s -- -80% -89% -92% -97% -98% -98% -98% -98% ...
Text::ANSITable 2000/s 400% -- -46% -63% -87% -90% -91% -91% -92% ...
Text::Table::More 3100/s 837% 87% -- -31% -76% -82% -83% -84% -85% ...
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
| Text::Table::Org | 7800 | 0.13 | 23583.00% | 69.77% | 2.8e-07 | 20 |
| Text::Table::CSV | 11000 | 0.088 | 34210.03% | 17.19% | 1.6e-07 | 20 |
| Text::Table::Any | 13300 | 0.0751 | 40107.73% | 0.00% | 4.5e-08 | 20 |
+-------------------------------+-----------+-----------+-----------------------+-----------------------+-----------+---------+
The above result formatted in L<Benchmark.pm|Benchmark> style:
Rate Text::UnicodeBox::Table Text::ANSITable Text::Table::More Text::ASCIITable Text::FormatTable Text::Table::TinyColorWide Text::Table::TinyBorderStyle Text::Table Text::Table::TinyWide Text::Table::Tin...
Text::UnicodeBox::Table 33/s -- -66% -70% -92% -95% -96% -96% -97% -97% -97...
Text::ANSITable 70/s 200% -- -9% -78% -85% -88% -90% -91% -91% -92...
Text::Table::More 100/s 233% 11% -- -75% -83% -86% -88% -90% -90% -91...
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
| Text::Table::CSV | 8.7 | -0.300000000000001 | 2029.97% | 1.10% | 3.8e-05 | 20 |
| perl -e1 (baseline) | 9 | 0 | 2053.49% | 0.00% | 8.9e-05 | 20 |
+-------------------------------+-----------+----------------------+-----------------------+-----------------------+-----------+---------+
The above result formatted in L<Benchmark.pm|Benchmark> style:
Rate Text::UnicodeBox::Table Text::Table::Manifold Text::ANSITable Text::MarkdownTable Text::Table::TinyColorWide Text::Table::TinyWide Text::Table::More Text::Table Text::Table::Tiny Text::ASCIITable Te...
Text::UnicodeBox::Table 5.3/s -- -42% -74% -75% -78% -81% -85% -85% -88% -89% ...
Text::Table::Manifold 9.1/s 72% -- -56% -58% -63% -67% -74% -74% -80% -81% ...
Text::ANSITable 20.8/s 295% 129% -- -4% -16% -25% -41% -41% -56% -58% ...
lib/Acme/CPANModules/TextTable.pm view on Meta::CPAN
=item * L</Text::Table::HTML::DataTables>
<html>
<head>
<link rel="stylesheet" type="text/css" href="file:///home/u1/perl5/perlbrew/perls/perl-5.38.0/lib/site_perl/5.38.0/auto/share/dist/Text-Table-HTML-DataTables/datatables-1.10.22/datatables.css">
<script src="file:///home/u1/perl5/perlbrew/perls/perl-5.38.0/lib/site_perl/5.38.0/auto/share/dist/Text-Table-HTML-DataTables/jquery-2.2.4/jquery-2.2.4.min.js"></script>
<script src="file:///home/u1/perl5/perlbrew/perls/perl-5.38.0/lib/site_perl/5.38.0/auto/share/dist/Text-Table-HTML-DataTables/datatables-1.10.22/datatables.js"></script>
<script>var dt_opts = {"buttons":["colvis","print"],"dom":"lQfrtip"}; $(document).ready(function() { $("table").DataTable(dt_opts); $("select[name=DataTables_Table_0_length]").val(1000); $("select[name=DataTables_Table_0_length]").trigger("change");...
</head>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/CPANModules/UUID.pm view on Meta::CPAN
| UUID::FFI | 870 | 1.2 | 2848.45% | 46.48% | 1.8e-06 | 20 |
| Data::UUID | 1000 | 0.8 | 4218.76% | 0.00% | 9.3e-06 | 21 |
+---------------------------------------+-----------+-----------+-----------------------+-----------------------+-----------+---------+
The above result formatted in L<Benchmark.pm|Benchmark> style:
Rate URS:g URS:g_r U:R U:T U C:M URP:g_r U:F URP:g D:U
URS:g 30/s -- -33% -70% -73% -80% -88% -93% -96% -96% -97%
URS:g_r 40/s 50% -- -55% -60% -70% -83% -90% -94% -95% -96%
U:R 100/s 233% 122% -- -11% -35% -62% -78% -86% -88% -91%
lib/Acme/CPANModules/UUID.pm view on Meta::CPAN
| UUID::Random::PERLANCAR | 8.94 | 2.39 | 964.20% | 36.46% | 7.2e-06 | 20 |
| perl -e1 (baseline) | 6.55 | 0 | 1352.22% | 0.00% | 6.3e-06 | 20 |
+-------------------------+-----------+-------------------+-----------------------+-----------------------+-----------+---------+
The above result formatted in L<Benchmark.pm|Benchmark> style:
Rate UR:S U:F U:T C:M D:U U UR:P U:R perl -e1 (baseline)
UR:S 10.5/s -- -44% -71% -78% -78% -88% -90% -90% -93%
U:F 18.9/s 79% -- -49% -60% -62% -78% -83% -83% -87%
U:T 37.5/s 255% 98% -- -21% -25% -57% -66% -66% -75%
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/CPANModules/VersionNumber/Perl.pm view on Meta::CPAN
some aspects. Modules mentioned here include: <pm:Perl::Version>,
<pm:Versioning::Scheme::Perl>.
## Version numbers in Perl
There are two styles of version numbers used in the Perl world (i.e. for the
versioning of perl interpreter itself and for versioning Perl modules): decimal
(x.y) or dotted decimals (x.y.z or even more parts; the "v" prefix forces dotted
decimal to avoid ambiguity when there is only a single dot, e.g. v1.2).
The former variant offers simplicity since version number can mostly be
lib/Acme/CPANModules/VersionNumber/Perl.pm view on Meta::CPAN
going smoothly to dotted decimal if you decide to do it one day.
The numification is also problematic when a number part is > 999, e.g. 1.2.1234.
This breaks version comparison when comparison is done with version->parse().
Aside from the abovementioned two styles, there is another: CPAN
distributions/modules can add an underscore in the last part of the version
number to signify alpha/dev/trial release, e.g. 1.2.3_01. PAUSE will not index
such releases, so testers will need to specify an explicit version number to
install, e.g. `cpanm Foo@1.2.3_01`. In some cases you need to pay attention when
comparing this kind of version numbers.
lib/Acme/CPANModules/VersionNumber/Perl.pm view on Meta::CPAN
some aspects. Modules mentioned here include: L<Perl::Version>,
L<Versioning::Scheme::Perl>.
=head2 Version numbers in Perl
There are two styles of version numbers used in the Perl world (i.e. for the
versioning of perl interpreter itself and for versioning Perl modules): decimal
(x.y) or dotted decimals (x.y.z or even more parts; the "v" prefix forces dotted
decimal to avoid ambiguity when there is only a single dot, e.g. v1.2).
The former variant offers simplicity since version number can mostly be
lib/Acme/CPANModules/VersionNumber/Perl.pm view on Meta::CPAN
going smoothly to dotted decimal if you decide to do it one day.
The numification is also problematic when a number part is > 999, e.g. 1.2.1234.
This breaks version comparison when comparison is done with version->parse().
Aside from the abovementioned two styles, there is another: CPAN
distributions/modules can add an underscore in the last part of the version
number to signify alpha/dev/trial release, e.g. 1.2.3_01. PAUSE will not index
such releases, so testers will need to specify an explicit version number to
install, e.g. C<cpanm Foo@1.2.3_01>. In some cases you need to pay attention when
comparing this kind of version numbers.
view all matches for this distribution
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2017_12_01_day-1-getting-started view on Meta::CPAN
<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">
<link href="/theme/css/layout.css" rel="stylesheet">
<link href="/theme/css/media-queries.css" rel="stylesheet">
<link href="/theme/css/statocles.css" rel="stylesheet">
<!-- twitter and opengraph -->
<meta content="summary" name="twitter:card">
<meta content="@joelaberger" name="twitter:creator">
<meta content="https://mojolicious.io/blog/2017/12/01/day-1-getting-started/" property="og:url">
devdata/https_mojolicious.io_blog_2017_12_01_day-1-getting-started view on Meta::CPAN
<meta content="https://mojolicious.io/blog/2017/12/01/day-1-getting-started/1280px-Colorado_Springs_Hot_Air_Balloon_Competition.jpg" property="og:image">
<meta content="summary_large_image" name="twitter:card">
<script src="/theme/js/modernizr.js"></script>
<link href="//cdnjs.cloudflare.com/ajax/libs/highlight.js/9.12.0/styles/sunburst.min.css" rel="stylesheet">
<title>Day 1: Getting Started - mojolicious.io</title>
<meta content="Joel Berger" name="author">
<meta content="Statocles 0.093" name="generator">
<link href="/static/favicon.ico" rel="shortcut icon">
devdata/https_mojolicious.io_blog_2017_12_01_day-1-getting-started view on Meta::CPAN
<div class="twelve columns">
<div class="logo">
<a href="/index.html">
<h3 style="color: #fff">mojolicious.io</h3>
</a>
</div>
<nav id="nav-wrap">
devdata/https_mojolicious.io_blog_2017_12_01_day-1-getting-started view on Meta::CPAN
</ul>
<ul class="copyright">
<li>Copyright é 2017 Joel Berger</li>
<li><a href="https://github.com/MojoliciousDotIO/mojolicious.io">Contribute to this site on Github</a></li>
<li>Design by <a href="http://www.styleshout.com/">Styleshout</a></li>
<li>Made with <a href="http://preaction.me/statocles">Statocles</a></li>
<li>Powered by <a href="http://www.perl.org">Perl</a></li>
</ul>
</div>
<div id="go-top" style="display: block;"><a href="#" title="Back to Top">Go To Top</a></div>
</div>
</footer>
view all matches for this distribution
view release on metacpan or search on metacpan
devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_ view on Meta::CPAN
<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">
<link href="/theme/css/layout.css" rel="stylesheet">
<link href="/theme/css/media-queries.css" rel="stylesheet">
<link href="/theme/css/statocles.css" rel="stylesheet">
<!-- twitter and opengraph -->
<meta content="summary" name="twitter:card">
<meta content="@joelaberger" name="twitter:creator">
<meta content="https://mojolicious.io/blog/2018/12/01/welcome-mojoconf-recap/" property="og:url">
devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_ view on Meta::CPAN
<meta content="https://mojolicious.io/blog/2018/12/01/welcome-mojoconf-recap/banner.jpg" property="og:image">
<meta content="summary_large_image" name="twitter:card">
<script src="/theme/js/modernizr.js"></script>
<link href="//cdnjs.cloudflare.com/ajax/libs/highlight.js/9.12.0/styles/sunburst.min.css" rel="stylesheet">
<title>Day 1: Welcome & MojoConf Recap - mojolicious.io</title>
<meta content="Joel Berger" name="author">
<meta content="Statocles 0.093" name="generator">
<link href="/static/favicon.ico" rel="shortcut icon">
devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_ view on Meta::CPAN
<div class="twelve columns">
<div class="logo">
<a href="/index.html">
<h3 style="color: #fff">mojolicious.io</h3>
</a>
</div>
<nav id="nav-wrap">
devdata/https_mojolicious.io_blog_2018_12_01_welcome-mojoconf-recap_ view on Meta::CPAN
</ul>
<ul class="copyright">
<li>Copyright é 2017 Joel Berger</li>
<li><a href="https://github.com/MojoliciousDotIO/mojolicious.io">Contribute to this site on Github</a></li>
<li>Design by <a href="http://www.styleshout.com/">Styleshout</a></li>
<li>Made with <a href="http://preaction.me/statocles">Statocles</a></li>
<li>Powered by <a href="http://www.perl.org">Perl</a></li>
</ul>
</div>
<div id="go-top" style="display: block;"><a href="#" title="Back to Top">Go To Top</a></div>
</div>
</footer>
view all matches for this distribution
view release on metacpan or search on metacpan
devdata/http_advent.perldancer.org_2018_13 view on Meta::CPAN
"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" />
<!-- Grab Google CDN's jQuery. fall back to local if necessary -->
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.4.2/jquery.min.js" type="text/javascript"></script>
<script type="text/javascript">/* <![CDATA[ */
!window.jQuery && document.write('<script src="/javascripts/jquery.js"><\/script>')
/* ]]> */</script>
<!-- Prettyfy -->
<link href="/css/prettify.css" type="text/css" rel="stylesheet" />
<script type="text/javascript" src="/javascripts/prettify.js"></script>
</head>
<body onload="prettyPrint()">
<div id="page">
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/CPANModulesUtil/Bencher.pm view on Meta::CPAN
my $t = Text::ANSITable->new(
use_utf8 => 0,
use_box_chars => 0,
use_color => 0,
columns => $table->[0],
border_style => 'Default::single_ascii',
);
$t->add_row($table->[$_]) for 1..@$table-1;
$t->draw;
},
lib/Acme/CPANModulesUtil/Bencher.pm view on Meta::CPAN
my $t = Text::ANSITable->new(
use_utf8 => 0,
use_box_chars => 0,
use_color => 0,
columns => $table->[0],
border_style => 'Default::single_ascii',
);
$t->add_row($table->[$_]) for 1..@$table-1;
$t->draw;
},
view all matches for this distribution
view release on metacpan or search on metacpan
t/pod-coverage.t view on Meta::CPAN
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
t/pod-coverage.t view on Meta::CPAN
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
FreedomFighter.pm view on Meta::CPAN
__END__
=head1 NAME
Acme::Code::FreedomFighter - Defends our right to code in any style
waiting for the right moment to strike back at the evil oppressors.
=head1 SYNOPSIS
#!/usr/bin/perl
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/Comment.pm view on Meta::CPAN
single => '(?:\*)|(?:&&)',
}
};
### the comment styles for ADA and Basic are the same ###
for my $type(qw|ADA|) { $Conf->{$type} = $Conf->{'BASIC'} }
for my $type(qw|POSTSCRIPT|) { $Conf->{$type} = $Conf->{'LATEX'} }
for my $type(qw|ADVSYS LISP SCHEME|) { $Conf->{$type} = $Conf->{'ORTHOGONAL'} }
lib/Acme/Comment.pm view on Meta::CPAN
if(@_%2){
die "Incomplete set of arguments to $package\n"
}
### see if there are any arguments, if not, we default to the C comment style ###
if( keys %args ) {
### check if the user requested a certain type of comments ###
if( $args{type} ) {
lib/Acme/Comment.pm view on Meta::CPAN
? $args{one_line}
: 0;
}
### no arguments, Let's take the default C comment style ###
}
}
sub parse {
lib/Acme/Comment.pm view on Meta::CPAN
Unlike the pseudo multi-line comment C<if (0) {}>, the code being
commented out need not be syntactically valid.
=head1 USE
Acme::Comment contains several different commenting styles.
Styles may be specified by the C<types> argument, or by C<start> and
C<end> and manipulated with C<own_line> and C<one_line>.
Styles may contain multi-line comments and single-line comments.
lib/Acme/Comment.pm view on Meta::CPAN
You cannot specify both C<type> and C<start> and C<end>, and C<start>
and C<end> must both be provided if you provide one of them.
=head2 types
The C<types> argument specifies what language style should be used.
Only one language style may be specified.
=over 4
=item * Ada
lib/Acme/Comment.pm view on Meta::CPAN
Single-line comments use either C<==> or C<-->.
=item * C
The default for Acme::Comment is C-style multi-line commenting
with C</*> and C<*/>. However, if you wish to change C<one_line>
or C<own_line>, you must explicitly specify the type.
=item * C++
C++ multi-line style uses C</*> and C<*/>. Single-line uses C<//>.
=item * C#
C# multi-line style uses C</*> and C<*/>. Single-line uses C<//>.
=item * Chill
Multi-line comments use C</*> and C<*/>.
=item * Clean
Clean multi-line style uses C</*> and C<*/>. Single-line uses C<//>.
=item * E
Single-line comments use C<#>.
lib/Acme/Comment.pm view on Meta::CPAN
Single-line comments start with C<-->.
=item * Elastic
Elastic multi-line style uses C</*> and C<*/>. Single-line uses C<//>.
=item * Focal
Single-line comments start with C<comment>.
lib/Acme/Comment.pm view on Meta::CPAN
Single-line comments use C<!>.
=item * Guile
Guile multi-line style uses C</*> and C<*/>. Single-line uses C<//>.
=item * Haskell
Single-line comments start with C<-->.
=item * HTML
HTML style has multi-line commenting in the form of C<E<lt>!--> and
C<--E<gt>>.
=item * Hugo
Multi-line comments begin with C<!\> and end with C<\!>. Single-line
lib/Acme/Comment.pm view on Meta::CPAN
be preceded by a line number in the following syntax:
C<(23) DO NOTE THAT>.
=item * Java
Java multi-line style uses C</*> and C<*/>. Single-line uses C<//>.
=item * Joy
Multi-line comments use C<(*> and C<*)>.
lib/Acme/Comment.pm view on Meta::CPAN
Single-line comments use C<#>.
=item * PHP
PHP multi-line style uses C</*> and C<*/>. Single-line uses C<//>.
=item * Pilot
Single-line comments in the syntax C<\/\/> are supported.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/Constructor/Pythonic.pm view on Meta::CPAN
__END__
=head1 NAME
Acme::Constructor::Pythonic - import Python-style constructor functions
=head1 SYNOPSIS
use Acme::Constructor::Pythonic qw(
LWP::UserAgent
view all matches for this distribution
view release on metacpan or search on metacpan
inc/IO/Scalar.pm view on Meta::CPAN
### Stringification, courtesy of B. K. Oxley (binkley): :-)
use overload '""' => sub { ${*{$_[0]}->{SR}} };
use overload 'bool' => sub { 1 }; ### have to do this, so object is true!
### The package version, both in 1.23 style *and* usable by MakeMaker:
$VERSION = "2.110";
### Inheritance:
@ISA = qw(IO::Handle);
view all matches for this distribution
view release on metacpan or search on metacpan
xt/release/pod-coverage.t view on Meta::CPAN
plan skip_all =>
"Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
slides/index.html view on Meta::CPAN
<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 */
hr {
color: #202040;
height: 0px;
border-top: 0px;
slides/index.html view on Meta::CPAN
margin-right: 6pt;
}
small {
font-size: 9pt;
font-style: italic;
}
#topbar {
background: lightblue;
color: blue;
slides/index.html view on Meta::CPAN
background-image: url(/logo.png);
background-repeat: no-repeat;
}
/* END index.css */
--></style>
<script type="text/javascript">
// BEGIN controls.js
function nextSlide() {
window.location = 'start.html';
}
slides/index.html view on Meta::CPAN
<!-- BEGIN bottom -->
<div id="bottombar">
<table width="100%">
<tr>
<td align="left" valign="middle">
<div style="display:none">
<a accesskey='p' href="">< < Previous</a> |
<a accesskey='i' href="">Index</a> |
<a accesskey='n' href="start.html">Next >></a>
</div>
</td>
view all matches for this distribution
view release on metacpan or search on metacpan
perl Build.PL
perl Build
perl Build test
perl Build install
If you wish, you may use the old MakeMaker style instead:
perl Makefile.PL
make
make test
make install
view all matches for this distribution
view release on metacpan or search on metacpan
fix-up window when font cycling:
resize && mvwin w/ pre-calc'd vals
alternate through a set of dup'd wins
Multiple style "delays"?
cond > 0 ? every(seconds=>cond) : offset = 0
selectively recompile subroutines?
modify $RE{balanced}{-begin=>'sub\s+$NAME.*?{'}{-end=>'}'}
view all matches for this distribution
view release on metacpan or search on metacpan
t/pod-coverage.t view on Meta::CPAN
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
t/pod-coverage.t view on Meta::CPAN
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/DeepThoughts.pm view on Meta::CPAN
When you're riding in a time machine way far into the future, don't stick your elbow out the window, or it'll turn into a fossil.
It takes a big man to cry, but it takes a bigger man to laugh at that man.
One thing kids like is to be tricked. For instance, I was going to take my little nephew to Disneyland, but instead I drove him to an old burned-out warehouse. "Oh, no," I said. "Disneyland burned down." He cried and cried, but I think that deep down...
A good way to threaten somebody is to light a stick of dynamite. Then you call the guy and hold the burning fuse up to the phone. "Hear that?" you say. "That's dynamite, baby."
Why do people in ship mutinies always ask for "better treatment"? I'd ask for a pinball machine, because with all that rocking back and forth you'd probably be able to get a lot of free games.
I'd like to be buried Indian-style, where they put you up on a high rack, above the ground. That way, you could get hit by meteorites and not even feel it.
If I lived back in the Wild West days, instead of carrying a six-gun in my holster, I'd carry a soldering iron. That way, if some smart-aleck cowboy said something like "Hey, look. He's carrying a soldering iron!" and started laughing, and everybody ...
I bet when the Neanderthal kids would make a snowman, someone would always end up saying, "Don't forget the thick, heavy brows." Then they would all get embarrassed because they remembered they had the big hunky brows too, and they'd get mad and eat ...
There should be a detective show called 'Johnny Monkey'. That way every week a criminal could say, "I ain't gonna get caught by no monkey," but then he would, and I don't think I'd ever get tired of that.
Fear can sometimes be a useful emotion. For instance, let's say you're an astronaught on the moon and you fear that your partner has been turned into Dracula. The next time he goes out for the moon pieces, wham! You just slam the door behind him and ...
Too bad you can't buy a voodoo globe so that you could make the earth spin real fast and freak everybody out.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Alice;
use Alien;
use Alien::ActiveMQ;
use Alien::Alien;
use Alien::AntTweakBar;
use Alien::astyle;
use Alien::autoconf;
use Alien::automake;
use Alien::Autotools;
use Alien::Base::ModuleBuild;
use Alien::BatToExeConverter;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Module::CGI::Install;
use Module::Changes;
use Module::Changes::ADAMK;
use Module::Check_Args;
use Module::CheckDep::Version;
use Module::Checkstyle;
use Module::CheckVersion;
use Module::Cloud;
use Module::Collect;
use Module::Collection;
use Module::Compile;
lib/Acme/DependOnEverything.pm view on Meta::CPAN
use Xymon::Server::History;
use Xymon::Server::Status;
use Yahoo::Answers;
use Yahoo::BBAuth;
use Yahoo::CAS;
use Yahoo::Lifestyle;
use Yahoo::Marketing;
use Yahoo::Marketing::APT;
use Yahoo::Music::Ratings;
use Yahoo::Search;
use Yahoo::Weather;
view all matches for this distribution
view release on metacpan or search on metacpan
CONTRIBUTING.mkdn view on Meta::CPAN
$ prove -lv t/some_test_file.t
For most of my distributions, `prove` is entirely sufficient for you to test any
patches you have. I use `prove` for 99% of my testing during development.
### Code style and tidying
Please try to match any existing coding style. If there is a `.perltidyrc`
file, please install Perl::Tidy and use perltidy before submitting patches.
If there is a `tidyall.ini` file, you can also install Code::TidyAll and run
`tidyall` on a file or `tidyall -a` to tidy all files.
view all matches for this distribution
view release on metacpan or search on metacpan
t/pod-coverage.t view on Meta::CPAN
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
DoubleHelix.pm view on Meta::CPAN
use Acme::DoubleHelix;
print "Hello";
=head1 DESCRIPTION
Acme::DoubleHelix obfuscates codes in Double-helix style. This is inspired by MeowChow's double helix obfuscation at Perlmonks and Conway's Acme::Bleach.
=head1 DIAGNOSTICS
=over 2
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/Dump/And/Dumper.pm view on Meta::CPAN
P.S.: eventually I ended up using L<Data::Rmap> instead of the Freezer.
=begin html
<img src="http://zoffix.com/CPAN/Acme-Dump-and-Dumper.jpg"
style="border: 2px solid #aaa!important; display: block!important; margin: 20px 0!important;"
alt="Dumb and Dumber">
=end html
=head1 REPOSITORY
view all matches for this distribution
view release on metacpan or search on metacpan
t/pod-coverage.t view on Meta::CPAN
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
t/pod-coverage.t view on Meta::CPAN
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
t/pod-coverage.t view on Meta::CPAN
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
t/pod-coverage.t view on Meta::CPAN
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Acme/EyeDrops.pm view on Meta::CPAN
Hospel and `/anick; colourful but not very suspenseful
tpr Vertical banner of "The Perl Review"
uml A UML diagram
undies A pair of underpants
window A window
writing_perl Perl in camel-style by Takanori KAWAI (Japanese)
yanick Caricature of `/anick's noggin
yanick2 Uttered by `/anick during TPR02
yanick3 Pictorial version of yanick2
yanick4 Abbreviated version of shape yanick
view all matches for this distribution