Replace page-specific usage by global default.
<h2>Duplication (2ⁿ)</h2>
<table>
<:
-use 5.010;
sub showint {
my ($int, $radix) = @_;
my @digits;
<(common.inc.plp)><:
-use 5.010;
-use utf8;
use List::Util qw(sum max first);
no if $] >= 5.018, warnings => 'experimental::smartmatch';
data => [qw( unicode-cover.inc.pl ttfsupport unicode-char.inc.pl )],
});
-use 5.010;
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;
<(common.inc.plp)><:
-use 5.014;
Html({
title => 'charset cheat sheet',
<:
+use 5.014;
use utf8;
-use strict;
use warnings;
no warnings 'qw'; # you know what you doing
no warnings 'uninitialized'; # save some useless checks for more legible code
<(common.inc.plp)><:
-use 5.010; # state
my $mode = ($ENV{PATH_INFO} // '') eq '/xorg' || exists $get{xorg};
my $modename = $mode ? 'X.Org' : 'RFC-1345';
<:
-use strict;
+use 5.014;
use warnings;
use open IO => ':utf8';
<(common.inc.plp)><:
-use 5.014;
my $font = $ENV{PATH_INFO} =~ s{^/}{}r;
<(common.inc.plp)><:
-use 5.014;
Html({
title => 'latin alphabet cheat sheet',
-use strict;
-use 5.010;
+use 5.014;
use Shiar_Sheet::Colour 1.05;
+{
<div class="section">
<:
-use 5.010;
use Shiar_Sheet::Colour 1.04;
use List::Util qw( min max );
use POSIX qw( ceil );
<div class="diinfo">
<:
-use 5.010;
use Shiar_Sheet::FormatChar;
my $glyphs = Shiar_Sheet::FormatChar->new;