Aion-Annotation

 view release on metacpan or  search on metacpan

t/aion/annotation.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::Annotation - обрабатывает аннотации в модулях perl
# 
# # VERSION
# 
# 0.0.3
# 
# # SYNOPSIS
# 

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

use Aion::Annotation;

Aion::Annotation->new->scan;

open my $f, '<', 'var/cache/modules.mtime.ini' or die $!; my @modules_mtime = <$f>; chop for @modules_mtime; close $f;
open my $f, '<', 'etc/annotation/remarks.ini' or die $!; my @remarks = <$f>; chop for @remarks; close $f;
open my $f, '<', 'etc/annotation/todo.ann' or die $!; my @todo = <$f>; chop for @todo; close $f;
open my $f, '<', 'etc/annotation/deprecated.ann' or die $!; my @deprecated = <$f>; chop for @deprecated; close $f;
open my $f, '<', 'etc/annotation/param.ann' or die $!; my @param = <$f>; chop for @param; close $f;

local ($::_g0 = do {0+@modules_mtime}, $::_e0 = do {1}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '0+@modules_mtime  # -> 1' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;
::like scalar do {$modules_mtime[0]}, qr{^For::Test=\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d$}, '$modules_mtime[0] # ~> ^For::Test=\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d$'; undef $::_g0; undef $::_e0;
local ($::_g0 = do {\@remarks}, $::_e0 = do {['For::Test#,4=The package for testing', 'For::Test#abc,9=Is property\n  readonly']}); ::is_deeply $::_g0, $::_e0, '\@remarks         # --> [\'For::Test#,4=The package for testing\', \'For::Test#abc,9=Is p...
local ($::_g0 = do {\@todo}, $::_e0 = do {['For::Test#abc,6=add1', 'For::Test#xyz,11=add2']}); ::is_deeply $::_g0, $::_e0, '\@todo            # --> [\'For::Test#abc,6=add1\', \'For::Test#xyz,11=add2\']' or ::diag ::_struct_diff($::_g0, $::_e0); undef...
local ($::_g0 = do {\@deprecated}, $::_e0 = do {['For::Test#,3=for_test', 'For::Test#abc,5=']}); ::is_deeply $::_g0, $::_e0, '\@deprecated      # --> [\'For::Test#,3=for_test\', \'For::Test#abc,5=\']' or ::diag ::_struct_diff($::_g0, $::_e0); undef $...
local ($::_g0 = do {\@param}, $::_e0 = do {['For::Test#xyz,12=Int $a', 'For::Test#xyz,13=Int[] $r']}); ::is_deeply $::_g0, $::_e0, '\@param           # --> [\'For::Test#xyz,12=Int $a\', \'For::Test#xyz,13=Int[] $r\']' or ::diag ::_struct_diff($::_g0,...

# 
# # DESCRIPTION
# 
# `Aion::Annotation` сканирует модули perl в каталоге **lib** и распечатывает их в соответстующие файлы в каталоге **etc/annotation**.
# 
# Сменить **lib** можно через энвайрэнментом `AION_ANNOTATION_LIB`, **etc/annotation** через конфиг `AION_ANNOTATION_INI`, а **var/cache** через конфиг `AION_ANNOTATION_CACHE`.
# 
# 1. В **modules.mtime.ini** хранятся времена последнего обновления модулей.
# 2. В **remarks.ini** сохраняются комментарии к подпрограммам, свойствам и пакетам.

t/aion/annotation/scanned-event.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::Annotation::ScannedEvent - событие завершения сканирования аннотаций в проекте
# 
# # SYNOPSIS
# 
# Файл lib/ScannedListener.pm:
#@> lib/ScannedListener.pm
#>> package ScannedListener;
#>> 

t/aion/annotation/scanned-event.t  view on Meta::CPAN

#>> 1;
#@< EOF
# 
subtest 'SYNOPSIS' => sub { 
use Aion::Annotation;

my $listener = Aion->pleroma->get('ScannedListener');

Aion::Annotation->new->scan;

local ($::_g0 = do {$listener->scanned_count}, $::_e0 = do {1}); ::ok defined($::_g0) == defined($::_e0) && $::_g0 eq $::_e0, '$listener->scanned_count # -> 1' or ::diag ::_struct_diff($::_g0, $::_e0); undef $::_g0; undef $::_e0;

# 
# # DESCRIPTION
# 
# Когда `Aion::Annotation` завершает сканирование проекта и записывает новые аннотации, то оно инициирует это событие.
# При этом события в эмиттере перечитываются сразу после сканирования и до излучения события.
# 
# Очевидное применение данного события: превращение файла аннотаций в `crontab`.
# 
# # AUTHOR