Aion-Format

 view release on metacpan or  search on metacpan

i18n/Aion/Format.ru-en.po  view on Meta::CPAN

"* [Date::Roman](https://metacpan.org/pod/Date::Roman) — это объектно-ориентированное расширение Perl для обработки дат в римском стиле, но с арабскими цифрами (id 3...
"* [DateTime::Format::Roman](https://metacpan.org/pod/DateTime::Format::Roman) – средство форматирования римских дат, но с арабскими цифрами (5 Kal Jun 2003)."
msgstr ""
"* [Roman](https://metacpan.org/pod/Roman) is a simple converter.\n"
"* [Math::Roman](https://metacpan.org/pod/Math::Roman) is another converter.\n"
"* [Convert::Number::Roman](https://metacpan.org/pod/Convert::Number::Roman) has an OOP interface.\n"
"* [Number::Convert::Roman](https://metacpan.org/pod/Number::Convert::Roman) – another OOP interface.\n"
"* [Text::Roman](https://metacpan.org/pod/Text::Roman) converts standard and milharic Roman numerals.\n"
"* [Roman::Unicode](https://metacpan.org/pod/Roman::Unicode) uses the numbers ↁ (5000), ↂ (1000) and so on.\n"
"* [Acme::Roman](https://metacpan.org/pod/Acme::Roman) adds support for Roman numerals in Perl code (`I + II -> III`), but only uses the `+`, `-` and `*` operators.\n"
"* [Date::Roman](https://metacpan.org/pod/Date::Roman) is an object-oriented Perl extension for handling Roman-style dates but with Arabic numerals (id 3,702).\n"
"* [DateTime::Format::Roman](https://metacpan.org/pod/DateTime::Format::Roman) - Roman date formatter, but with Arabic numerals (5 Kal Jun 2003)."

msgid "Округляет число до указанного десятичного знака."
msgstr "Rounds a number to the specified decimal place."

msgid "Создает человекочитаемый интервал."
msgstr "Creates human-readable spacing."

msgid "Ширина результата — 12 символов."
msgstr "The width of the result is 12 characters."

lib/Aion/Format.pm  view on Meta::CPAN

=item * L<Convert::Number::Roman> has an OOP interface.

=item * L<Number::Convert::Roman> – another OOP interface.

=item * L<Text::Roman> converts standard and milharic Roman numerals.

=item * L<Roman::Unicode> uses the numbers ↁ (5000), ↂ (1000) and so on.

=item * L<Acme::Roman> adds support for Roman numerals in Perl code (C<< I + II -E<gt> III >>), but only uses the C<+>, C<-> and C<*> operators.

=item * L<Date::Roman> is an object-oriented Perl extension for handling Roman-style dates but with Arabic numerals (id 3,702).

=item * L<DateTime::Format::Roman> - Roman date formatter, but with Arabic numerals (5 Kal Jun 2003).

=back

=head2 round ($number, $decimal)

Rounds a number to the specified decimal place.

	round 1.234567, 2  # -> 1.23

lib/Aion/Format/Html.pm  view on Meta::CPAN

		"";
		
		my $s2 = $pre? $+{s2}: ($+{s2} eq "" || $s1? "": " ");
		
		$x =~ /\n/ ? $x: join "", $s1, $x, $s2
	};

	s{
		(?<s1> \s*) (
		
			  <(script|style|template)\b [^<>]*> .*? </ \g1 \s* >
			| <xhr \b [^<>]*> (?<xhr> .*? ) </xhr \s* >
			| < (?<tag> [a-z]\w* ) [^<>]*? (?<close> / )? \s*>
			| </ (?<ctag> [a-z]\w* ) \s*>
			| <!--.*?-->
		
		) (?<s2> \s*)
		| (?<space> [\ \t\n\r\f]+)
		| (?<nbsp> \xa0)
	}{$to->()}genisx;

	$_
}

# Все, кроме запрещённых:
#  applet, script, style, embed, object, param,
#  video, audio, source, track, frame, frameset, iframe, comment
#  html, head, body, title, meta, base, basefont, bgsound, link
#  form, keygen, output, textarea, select, option, optgroup, legend, label, input
#  plaintext, xmp
# А так же удаляет атрибуты начинающиеся на "on", name, for, formaction и др..
my %SAFE_TAG = map {$_=>1} qw/
a
abbr
acronym
address

lib/Aion/Format/Html.pm  view on Meta::CPAN

var

wbr
/;

my %SAFE_ATTR = map {$_=>1} qw/
pubdate datetime
open optimum

dir lang language style tabindex title high low hreflang icon

max min

href media ping rel rev name type

class

src

alt crossorigin decoding height width importance  intrinsicsize loading sizes srcset