utf results from the CPAN

Aion-Format

	%properties = %{_extends_ddp_properties(\%properties)};
	DDP::np $arg, %properties
}

#@category Ð›Ð¾Ð²ÑƒÑˆÐºÐ¸

# Ð›Ð¾Ð²ÑƒÑˆÐºÐ° Ð´Ð»Ñ STDERR
sub trapperr(&) {
	my $sub = shift;
	local *STDERR;
	open STDERR, '>:utf8', \my $f;
	$sub->();
	close STDERR;
	utf8::decode($f) unless utf8::is_utf8($f);
	$f
}

# Ð›Ð¾Ð²ÑƒÑˆÐºÐ° Ð´Ð»Ñ STDOUT
sub trappout(&) {
	my $sub = shift;
	local *STDOUT;
	open STDOUT, '>:utf8', \my $f;
	$sub->();
	close STDOUT;
	utf8::decode($f) unless utf8::is_utf8($f);
	$f
}

#@category Ð¦Ð²ÐµÑ‚

# ÐšÐ¾Ð»Ð¾Ñ€Ð¸Ð·Ð¸Ñ€ÑƒÐµÑ‚ Ñ‚ÐµÐºÑÑ‚ escape-Ð¿Ð¾ÑÐ»ÐµÐ´Ð¾Ð²Ð°Ñ‚ÐµÐ»ÑŒÐ½Ð¾ÑÑ‚ÑÐ¼Ð¸: coloring("#{BOLD RED}ya#{}100!#RESET"), Ð° Ð·Ð°Ñ‚ÐµÐ¼ - Ð·Ð°Ð¼ÐµÐ½ÑÐµÑ‚ Ñ„Ð¾Ñ€Ð¼Ð°Ñ‚ sprintf-Ð¾Ð¼
sub coloring(@) {
	my $s = shift;
	$s =~ s!#\{(?<x>[\w \t]*)\}|#(?<x>\w+)!
		my $x = $+{x};

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


	$s //= "N";
	$s =~ s/ \z//;
	$s
}

# Ð˜ÑÐ¿Ð¾Ð»ÑŒÐ·Ð¾Ð²Ð°Ð½Ñ‹ ÑÐ¸Ð¼Ð²Ð¾Ð»Ñ‹ Ð¸Ð· ÐºÐ¾Ð´Ð¸Ñ€Ð¾Ð²ÐºÐ¸ cp1251, Ñ‡Ñ‚Ð¾ Ð½ÑƒÐ¶Ð½Ð¾ Ð´Ð»Ñ ÐºÐ¾Ñ€Ñ€ÐµÐºÑ‚Ð½Ð¾Ð¹ Ð·Ð°Ð¿Ð¸ÑÐ¸ Ð² Ñ‚Ð°Ð±Ð»Ð¸Ñ†Ñ‹
our $CIF = join "", "0".."9", "A".."Z", "a".."z", "_-", # 64 ÑÐ¸Ð¼Ð²Ð¾Ð»Ð° Ð´Ð»Ñ 64-Ñ€Ð¸Ñ‡Ð½Ð¾Ð¹ ÑÐ¸ÑÑ‚ÐµÐ¼Ñ‹ ÑÑ‡Ð¸ÑÐ»ÐµÐ½Ð¸Ñ
	(map chr, ord "Ð" .. ord "Ð¯"), "ÐÐ‚ÐƒÐ‰ÐŠÐŒÐ‹ÐÐŽÐˆÒÐ„Ð‡Ð†Ð…",
	(map chr, ord "Ð°" .. ord "Ñ"), "Ñ‘Ñ’Ñ“Ñ™ÑšÑœÑ›ÑŸÑžÑ˜Ò‘Ñ”Ñ—Ñ–Ñ•",
	"â€šâ€žâ€¦â€ â€¡â‚¬â€°â€¹â€˜â€™â€œâ€â€¢â€“â€”â„¢â€ºÂ¤Â¦Â§Â©Â«Â¬ÂÂ®Â°Â±ÂµÂ¶Â·â„–Â»",	do { no utf8; chr 0xa0 }, # Ð½ÐµÐ±ÑƒÐºÐ²ÐµÐ½Ð½Ñ‹Ðµ ÑÐ¸Ð¼Ð²Ð¾Ð»Ñ‹ Ð¸Ð· cp1251
	"!\"#\$%&'()*+,./:;<=>?\@[\\]^`{|}~", # ÑÐ¸Ð¼Ð²Ð¾Ð»Ñ‹ Ð¿ÑƒÐ½ÐºÑ‚ÑƒÐ°Ñ†Ð¸Ð¸ ASCII
	" ", # Ð¿Ñ€Ð¾Ð±ÐµÐ»
	(map chr, 0 .. 0x1F, 0x7F), # ÑƒÐ¿Ñ€Ð°Ð²Ð»ÑÑŽÑ‰Ð¸Ðµ ÑÐ¸Ð¼Ð²Ð¾Ð»Ñ‹ ASCII
	# ÑÐ¸Ð¼Ð²Ð¾Ð» 152 (0x98) Ð² cp1251 Ð¾Ñ‚ÑÑƒÑ‚ÑÑ‚Ð²ÑƒÐµÑ‚.
;
# ÐŸÐµÑ€ÐµÐ²Ð¾Ð´Ð¸Ñ‚ Ð½Ð°Ñ‚ÑƒÑ€Ð°Ð»ÑŒÐ½Ð¾Ðµ Ñ‡Ð¸ÑÐ»Ð¾ Ð² Ð·Ð°Ð´Ð°Ð½Ð½ÑƒÑŽ ÑÐ¸ÑÑ‚ÐµÐ¼Ñƒ ÑÑ‡Ð¸ÑÐ»ÐµÐ½Ð¸Ñ
sub to_radix($;$) {
	use bigint;
	my ($n, $radix) = @_;
	$radix //= 64;

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


sub flesch_index_human($) {
	my ($flesch_index) = @_;
	$FLESCH_INDEX_NAMES{int($flesch_index / 10) * 10} // "Ð½ÐµÑÐ²ÑÐ·Ð½Ñ‹Ð¹ Ñ€ÑƒÑÑÐºÐ¸Ð¹ Ñ‚ÐµÐºÑÑ‚"
}

1;

__END__

=encoding utf-8

=head1 NAME

Aion::Format - a Perl extension for formatting numbers, coloring output, etc.

=head1 VERSION

0.1.0

=head1 SYNOPSIS

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


	s{<(/\s*)?([a-z][a-z\d:-]*)([^<>]*)>|<!--(?:.*?)-->}{ $f->() }igse;

	$_
}

1;

__END__

=encoding utf-8

=head1 NAME

Aion::Format::Html - library for HTML formatting

=head1 SYNOPSIS

	use Aion::Format::Html;
	
	from_html "<b>&excl;</b>" # => !

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


# Ð˜Ð· json
sub from_json(;$) {
	$JSON->decode(@_ == 0? $_: @_)
}

1;

__END__

=encoding utf-8

=head1 NAME

Aion::Format::Json - Perl extension for JSON formatting

=head1 SYNOPSIS

	use Aion::Format::Json;
	
	to_json {a => 10}    # => {\n   "a": 10\n}\n

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

	while($s =~ /[Ð°-ÑÑ‘]+/gi) {
		my $x = $&;
		if($x =~ /^[Ð-Ð¯ÐÐ°-ÑÑ‘][Ð°-ÑÑ‘]*$/) { $c += length $x } else { $c -= length $x }
	}
	$c
}

sub from_url_param(;$) {
	my ($param) = @_ == 0? $_: @_;

	utf8::encode($param) if utf8::is_utf8($param);

	{
		no utf8;
		use bytes;
		$param =~ tr!\+! !;
		$param =~ s!%([\da-f]{2})! chr hex $1 !iage;
	}

	eval { $param = Encode::decode_utf8($param, Encode::FB_CROAK) };

	if($@) { # Ð²Ð¸Ð´Ð¸Ð¼Ð¾ Ñ‚ÑƒÑ‚ ÐºÐ¾Ð´Ð¸Ñ€Ð¾Ð²ÐºÐ° cp1251 Ð¸Ð»Ð¸ koi8-r
		my $cp  = Encode::decode('cp1251', $param);
		my $koi = Encode::decode('koi8-r', $param);
		# Ð²Ñ‹Ð±Ð¸Ñ€Ð°ÐµÐ¼ Ð¿ÐµÑ€ÐµÐºÐ¾Ð´Ð¸Ñ€Ð¾Ð²ÐºÑƒ Ð² ÐºÐ¾Ñ‚Ð¾Ñ€Ð¾Ð¹ Ð¼ÐµÐ½ÑŒÑˆÐµ Ð±Ð¾Ð»ÑŒÑˆÐ¸Ñ… Ð±ÑƒÐºÐ² Ð²Ð½ÑƒÑ‚Ñ€Ð¸ ÑÐ»Ð¾Ð²Ð°
		$param = _bohemy($koi) > _bohemy($cp)? $koi: $cp;
	}

	$param
}

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


# ÐÐ¾Ñ€Ð¼Ð°Ð»Ð¸Ð·ÑƒÐµÑ‚ url
sub normalize_url($;$$) {
	parse_url($_[0], $_[1], $_[2])->{link}
}

1;

__END__

=encoding utf-8

=head1 NAME

Aion::Format::Url - utilities for encoding and decoding URLs

=head1 SYNOPSIS

	use Aion::Format::Url;
	
	to_url_params {a => 1, b => [[1,2],3,{x=>10}]} # => a&b[][]&b[][1]=2&b[1]=3&b[2][x]=10

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


# Ð˜Ð· yaml
sub from_yaml(;$) {
	scalar YAML::Syck::Load(@_ == 0? $_: @_)
}

1;

__END__

=encoding utf-8

=head1 NAME

Aion::Format::Yaml - converter from/to yaml

=head1 SYNOPSIS

	use Aion::Format::Yaml qw/from_yaml to_yaml/;
	
	to_yaml {foo => 'bar'} # -> "foo: bar\n"

t/aion/format.t view on Meta::CPAN

use common::sense; use open qw/:std :utf8/;  use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# # NAME
# 
# Aion::Format - Ñ€Ð°ÑÑˆÐ¸Ñ€ÐµÐ½Ð¸Ðµ Perl Ð´Ð»Ñ Ñ„Ð¾Ñ€Ð¼Ð°Ñ‚Ð¸Ñ€Ð¾Ð²Ð°Ð½Ð¸Ñ Ñ‡Ð¸ÑÐµÐ», Ñ€Ð°ÑÐºÑ€Ð°ÑˆÐ¸Ð²Ð°Ð½Ð¸Ñ Ð²Ñ‹Ð²Ð¾Ð´Ð° Ð¸ Ñ‚.Ð¿.
# 
# # VERSION
# 
# 0.0.10
# 
# # SYNOPSIS
#

t/aion/format/html.t view on Meta::CPAN

use common::sense; use open qw/:std :utf8/;  use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# # NAME
# 
# Aion::Format::Html - Ð±Ð¸Ð±Ð»Ð¸Ð¾Ñ‚ÐµÐºÐ° Ð´Ð»Ñ Ñ„Ð¾Ñ€Ð¼Ð°Ñ‚Ð¸Ñ€Ð¾Ð²Ð°Ð½Ð¸Ñ HTML
# 
# # SYNOPSIS
# 
subtest 'SYNOPSIS' => sub { 
use Aion::Format::Html;

local ($::_g0 = do {from_html "<b>&excl;</b>"}, $::_e0 = "!"); ::ok $::_g0 eq $::_e0, 'from_html "<b>&excl;</b>" # => !' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

t/aion/format/json.t view on Meta::CPAN

use common::sense; use open qw/:std :utf8/;  use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# # NAME
# 
# Aion::Format::Json - Ñ€Ð°ÑÑˆÐ¸Ñ€ÐµÐ½Ð¸Ðµ Perl Ð´Ð»Ñ Ñ„Ð¾Ñ€Ð¼Ð°Ñ‚Ð¸Ñ€Ð¾Ð²Ð°Ð½Ð¸Ñ JSON
# 
# # SYNOPSIS
# 
subtest 'SYNOPSIS' => sub { 
use Aion::Format::Json;

local ($::_g0 = do {to_json {a => 10}}, $::_e0 = "{\n   \"a\": 10\n}\n"); ::ok $::_g0 eq $::_e0, 'to_json {a => 10}    # => {\n   "a": 10\n}\n' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

t/aion/format/url.pm view on Meta::CPAN

use common::sense; use open qw/:std :utf8/;  use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# 
# use common::sense;
# 
# use List::Util qw//;
# use Encode qw//;
# 
# use Exporter qw/import/;
# our @EXPORT = our @EXPORT_OK = grep {
# 	ref \$Aion::Format::Url::{$_} eq "GLOB"
# 		&& *{$Aion::Format::Url::{$_}}{CODE} && !/^(_|(NaN|import)\z)/n

t/aion/format/url.pm view on Meta::CPAN

# 	while($s =~ /[Ð°-ÑÑ‘]+/gi) {
# 		my $x = $&;
# 		if($x =~ /^[Ð-Ð¯ÐÐ°-ÑÑ‘][Ð°-ÑÑ‘]*$/) { $c += length $x } else { $c -= length $x }
# 	}
# 	$c
# }
# 
# sub from_url_param(;$) {
# 	my ($param) = @_ == 0? $_: @_;
# 
# 	utf8::encode($param) if utf8::is_utf8($param);
# 
# 	{
# 		no utf8;
# 		use bytes;
# 		$param =~ s!\+! !g;
# 		$param =~ s!%([\da-f]{2})! chr hex $1 !age;
# 	}
# 
# 	eval { $param = Encode::decode_utf8($param, Encode::FB_CROAK) };
# 
# 	if($@) { # Ð²Ð¸Ð´Ð¸Ð¼Ð¾ Ñ‚ÑƒÑ‚ ÐºÐ¾Ð´Ð¸Ñ€Ð¾Ð²ÐºÐ° cp1251 Ð¸Ð»Ð¸ koi8-r
# 		my $cp  = Encode::decode('cp1251', $param);
# 		my $koi = Encode::decode('koi8-r', $param);
# 		# Ð²Ñ‹Ð±Ð¸Ñ€Ð°ÐµÐ¼ Ð¿ÐµÑ€ÐµÐºÐ¾Ð´Ð¸Ñ€Ð¾Ð²ÐºÑƒ Ð² ÐºÐ¾Ñ‚Ð¾Ñ€Ð¾Ð¹ Ð¼ÐµÐ½ÑŒÑˆÐµ Ð±Ð¾Ð»ÑŒÑˆÐ¸Ñ… Ð±ÑƒÐºÐ² Ð²Ð½ÑƒÑ‚Ñ€Ð¸ ÑÐ»Ð¾Ð²Ð°
# 		$param = _bohemy($koi) > _bohemy($cp)? $koi: $cp;
# 	}
# 
# 	$param
# }

t/aion/format/url.pm view on Meta::CPAN

# 
# # ÐÐ¾Ñ€Ð¼Ð°Ð»Ð¸Ð·ÑƒÐµÑ‚ url
# sub normalize_url($;$$) {
# 	parse_url($_[0], $_[1], $_[2])->{link}
# }
# 
# 1;
# 
# __END__
# 
# =encoding utf-8
# 
# =head1 NAME
# 
# Aion::Format::Url - utilities for encoding and decoding URLs
# 
# =head1 SYNOPSIS
# 
# 	use Aion::Format::Url;
# 	
# 	to_url_params {a => 1, b => [[1,2],3,{x=>10}]} # => a&b[][]&b[][]=2&b[]=3&b[][x]=10

t/aion/format/url.t view on Meta::CPAN

use common::sense; use open qw/:std :utf8/;  use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# # NAME
# 
# Aion::Format::Url - ÑƒÑ‚Ð¸Ð»Ð¸Ñ‚Ñ‹ Ð´Ð»Ñ ÐºÐ¾Ð´Ð¸Ñ€Ð¾Ð²Ð°Ð½Ð¸Ñ Ð¸ Ð´ÐµÐºÐ¾Ð´Ð¸Ñ€Ð¾Ð²Ð°Ð½Ð¸Ñ URL-Ð°Ð´Ñ€ÐµÑÐ¾Ð²
# 
# # SYNOPSIS
# 
subtest 'SYNOPSIS' => sub { 
use Aion::Format::Url;

local ($::_g0 = do {to_url_params {a => 1, b => [[1,2],3,{x=>10}]}}, $::_e0 = "a&b[][]&b[][1]=2&b[1]=3&b[2][x]=10"); ::ok $::_g0 eq $::_e0, 'to_url_params {a => 1, b => [[1,2],3,{x=>10}]} # => a&b[][]&b[][1]=2&b[1]=3&b[2][x]=10' or ::diag ::_string_d...

t/aion/format/yaml.t view on Meta::CPAN

use common::sense; use open qw/:std :utf8/;  use Carp qw//; use Cwd qw//; use File::Basename qw//; use File::Find qw//; use File::Slurper qw//; use File::Spec qw//; use File::Path qw//; use Scalar::Util qw//;  use Test::More 0.98;  use String::Diff q...
# # NAME
# 
# Aion::Format::Yaml - ÐºÐ¾Ð½Ð²ÐµÑ€Ñ‚ÐµÑ€ Ð¸Ð·/Ð² yaml
# 
# # SYNOPSIS
# 
subtest 'SYNOPSIS' => sub { 
use Aion::Format::Yaml qw/from_yaml to_yaml/;

local ($::_g0 = do {to_yaml {foo => 'bar'}}, $::_e0 = do {"foo: bar\n"}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'to_yaml {foo => \'bar\'} # -> "foo: bar\n"' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

( run in 0.313 second using v1.01-cache-2.11-cpan-9ff20fc0ed8 )