X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/33c5eed096ac28e1063b00adb58c85857c8936cb..133b9fc3c05af0a4a38d3e875d1627dcc8f8f256:/countries.plp diff --git a/countries.plp b/countries.plp index 2bbe1f7..c11a3e8 100644 --- a/countries.plp +++ b/countries.plp @@ -2,22 +2,21 @@ Html({ title => 'country code cheat sheet', - version => 'v1.1', + version => '1.3', description => "Table of ISO-3166-1 country codes with the names of reserved territories.", keywords => [qw'country code cc tld cctld continent territory land table'], - stylesheet => [qw'light dark circus mono red'], - data => ['countries.inc.pl'], + data => ['data/countries.inc.pl'], }); :>

ISO-3166-1α2 Country codes

<: -my $cc = do 'countries.inc.pl'; +my $cc = Data('data/countries'); { - printf ''; + printf '
'; print ''; for my $section (qw{thead}) { print "<$section>
↳"; @@ -46,7 +45,7 @@ my $cc = do 'countries.inc.pl'; } $cell = showflag($code) // join(' ', - map { showflag($_) || $_ } split / /, $ref + map { showflag($_) || $_ } split(/ /, $ref) ); } else { @@ -57,7 +56,7 @@ my $cc = do 'countries.inc.pl'; } print "\n"; } - print "
\n"; + say ''; } :> @@ -89,3 +88,26 @@ my $cc = do 'countries.inc.pl'; +<: exit unless exists $get{v}; :> + +