view release on metacpan or  search on metacpan

t/aion/meta/util.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::Meta::Util - вспомогательные функции для создания мета-данных
# 
# # SYNOPSIS
# 
subtest 'SYNOPSIS' => sub { 
package My::Meta::Class {
	use Aion::Meta::Util;
	
	create_accessors qw/age/;
	create_getters qw/name/;
}

my $class = bless {name => 'car'}, 'My::Meta::Class';

$class->age(20);
local ($::_g0 = do {$class->age}, $::_e0 = "20"); ::ok $::_g0 eq $::_e0, '$class->age  # => 20' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

local ($::_g0 = do {$class->name}, $::_e0 = "car"); ::ok $::_g0 eq $::_e0, '$class->name  # => car' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
::like scalar do {eval { $class->name('auto') }; $@}, qr{name is ro}, 'eval { $class->name(\'auto\') }; $@ # ~> name is ro'; undef $::_g0; undef $::_e0;

# 
# # DESCRIPTION
# 
# В мета-классах поддерживающих создание фич и сигнатур функций (т.е. внутреннюю кухню Aion) требуется своя небольшая реализация, которую и ...
# 
# # SUBROUTINES
# 
# ## create_getters (@getter_names)
# 
# Создаёт геттеры.
# 
# ## create_accessors (@accessor_names)
# 
# Создаёт геттер-сеттеры.
# 
# ## subref_is_reachable ($subref)
# 
# Проверяет, имеет ли подпрограмма тело.
# 
::done_testing; }; subtest 'subref_is_reachable ($subref)' => sub { 
use Aion::Meta::Util;

local ($::_g0 = do {subref_is_reachable(\&nouname)}, $::_e0 = do {""}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'subref_is_reachable(\&nouname)             # -> ""' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $:...
local ($::_g0 = do {subref_is_reachable(UNIVERSAL->can('isa'))}, $::_e0 = do {""}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'subref_is_reachable(UNIVERSAL->can(\'isa\')) # -> ""' or ::diag ::_struct_diff($::_g0, $::_e0); undef $:...
local ($::_g0 = do {subref_is_reachable(sub {})}, $::_e0 = do {1}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'subref_is_reachable(sub {})                # -> 1' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
local ($::_g0 = do {subref_is_reachable(\&CORE::exit)}, $::_e0 = do {1}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, 'subref_is_reachable(\&CORE::exit)          # -> 1' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $...

# 
# ## val_to_str ($val)
# 
# Переводит `$val` в строку.
# 
::done_testing; }; subtest 'val_to_str ($val)' => sub { 
local ($::_g0 = do {Aion::Meta::Util::val_to_str([1,2,{x=>6}])}, $::_e0 = "[1, 2, {x => 6}]"); ::ok $::_g0 eq $::_e0, 'Aion::Meta::Util::val_to_str([1,2,{x=>6}])   # => [1, 2, {x => 6}]' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $...

local ($::_g0 = do {Aion::Meta::Util::val_to_str(qr/^[A-Z]/)}, $::_e0 = "qr/^[A-Z]/u"); ::ok $::_g0 eq $::_e0, 'Aion::Meta::Util::val_to_str(qr/^[A-Z]/)   # => qr/^[A-Z]/u' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
local ($::_g0 = do {Aion::Meta::Util::val_to_str(qr/^[A-Z]/i)}, $::_e0 = "qr/^[A-Z]/ui"); ::ok $::_g0 eq $::_e0, 'Aion::Meta::Util::val_to_str(qr/^[A-Z]/i)   # => qr/^[A-Z]/ui' or ::diag ::_string_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;