use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);
use feature qw(say);

use Path::Tiny;
use Cpanel::JSON::XS;
use Encode;

use lib::abs qw(
    ../lib/
);

sub main {

    say 'field_id type';

    foreach my $file_name ( glob '/app/lib/Field/*.pm' ) {

        my ($field_id) = $file_name =~ m'.*/(.*).pm\z';

        require "Field/${field_id}.pm";
        my $p = "Field::$field_id";
        my $f = $p->new(language => 'ru');

        say $f->_get_id() . ' ' . $f->_get_type();

    }

}
main();
