NAME
    Unicode::Block::Ascii - Ascii output of unicode block.

SYNOPSIS
     use Unicode::Block::Ascii;

     my $obj = Unicode::Block::Ascii->new(%parameters);
     my $output = $obj->get;
     my $item = $obj->next;

METHODS
  "new"
     my $obj = Unicode::Block::Ascii->new(%parameters);

    Constructor.

    *       "char_from"

            Character from.

            Default value is '0000'.

    *       "char_to"

            Character to.

            Default value is '007f'.

    *       "title"

            Title of block.

            Default value is undef.

    Returns instance of object.

  "get"
     my $output = $obj->get;

    Get output.

    Return string with ascii table of Unicode::Block object.

  "next"
     my $item = $obj->next;

    Get next character.

    Returns Unicode::Block::Item object for character, if character exists.
    Returns undef, if character doesn't exist.

ERRORS
     new():
             From Class::Utils::set_params_pub():
                     Unknown parameter '%s'.

     get():
             Long title.

EXAMPLE1
     use strict;
     use warnings;

     use Encode qw(encode_utf8);
     use Unicode::Block::Ascii;
     use Unicode::Block::List;

     # Arguments.
     if (@ARGV < 1) {
             print STDERR "Usage: $0 block_name\n";
             exit 1;
     }
     my $block_name = $ARGV[0];

     # List object.
     my $obj = Unicode::Block::List->new;

     # Get Unicode::Block for block name.
     my $block = $obj->block($block_name);

     # Get ASCII object.
     my $block_ascii = Unicode::Block::Ascii->new(%{$block});

     # Print to output.
     print encode_utf8($block_ascii->get)."\n";
 
     # Output:
     # Usage: /tmp/o1NG0vm_Wf block_name

     # Output with 'Block Elements' argument:
     # ��𢞖����������������������������������������������������������������������������������
     # ��             Block Elements             ��
     # ��鎿����������������𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𥈡���𤧅
     # ��        ��0��1��2��3��4��5��6��7��8��9��A��B��C��D��E��F��
     # ��鎿����������������䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���𤧅
     # �� U+258x ����������������������������������������争���𪙛���𦥑���𢞖���𨧀���𢛶���謿�
     # ��鎿����������������䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���䃈���𤧅
     # �� U+259x ����鐥���爗���圝���𣏾���婙���𨰝���砽���轁���覀���仮���尠���𥕞���鎿���吲���嫰���麨�
     # ��婙����������������𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁���𣞁�����

EXAMPLE2
     use strict;
     use warnings;
 
     use Curses::UI;
     use Encode qw(encode_utf8);
     use Unicode::Block::Ascii;
     use Unicode::Block::List;
 
     # Get unicode block list.
     my $list = Unicode::Block::List->new;
     my @unicode_block_list = $list->list;
 
     # Window.
     my $cui = Curses::UI->new;
     my $win = $cui->add('window_id', 'Window');
     $win->set_binding(\&exit, "\cQ", "\cC");
 
     # Popup menu.
     my $popupbox = $win->add(
             'mypopupbox', 'Popupmenu',
             '-labels' => {
                     map { $_, $_ } @unicode_block_list,
             },
             '-onchange' => sub {
                     my $self = shift;
                     $cui->leave_curses;
                     my $block = $list->block($self->get);
                     my $block_ascii = Unicode::Block::Ascii->new(%{$block});
                     print encode_utf8($block_ascii->get)."\n";
                     exit 0;
             },
             '-values' => \@unicode_block_list,
     );
     $popupbox->focus;
 
     # Loop.
     $cui->mainloop;

     # Output after select 'Geometric Shapes' item:
     # ��𢞖������������������������������������������������������������������������������������������������������������������
     # ��                    Geometric Shapes                    ��
     # ��鎿����������������𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𥈡�����𤧅
     # ��        �� 0�� 1�� 2�� 3�� 4�� 5�� 6�� 7�� 8�� 9�� A�� B�� C�� D�� E�� F��
     # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅
     # �� U+25ax �� ��罱� �𡓨�� �硄�� �𢜟�� �𣶸�� �棅�� �㵽�� �鑘�� �㤧�� �慐�� �𢞁�� �𢥫�� �愇�� �鱏�� �鱓�� �鱻��
     # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅
     # �� U+25bx �� �鰵�� �鰐�� �魿�� �鯏�� �𩸭�� �鮟�� �𪇵�� �𪃾�� �鴡�� �䲮�� �𤄄�� �鸘�� �䲰�� �鴌�� �𪆴�� �𪃭��
     # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅
     # �� U+25cx �� ���� ���� ���� ���� ���� ���� ���� ���� ���� ��争� ��𪙛� ��𦥑� ��𢞖� ��𨧀� ��𢛶� ��謿�
     # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅
     # �� U+25dx �� ��鐥� ��爗� ��圝� ��𣏾� ��婙� ��𨰝� ��砽� ��轁� ��覀� ��仮� ��尠� ��𥕞� ��鎿� ��吲� ��嫰� ��麨�
     # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅
     # �� U+25ex �� ��罱� �𤥃�� �𠳿�� �嚤�� �𠘚�� �𠯫�� �𠲸�� �唂�� �秄�� �𡟺�� �緾�� �𡛂�� �𤩐�� �𡡒�� �䔮�� �鐁��
     # ��鎿����������������䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����䃈�����𤧅
     # �� U+25fx �� �㜊�� �𨫀�� �𤦭�� �妰�� �𡢿�� �𡢃�� �𧒄�� �媡�� �㛢�� �𣵛�� �㚰�� �鉟�� �婹���𨪁���𡡢�� �鍴��
     # ��婙����������������𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�����𣞁�������

DEPENDENCIES
    Error::Pure, Readonly, Text::UnicodeBox, Text::UnicodeBox::Control,
    Unicode::Block.

REPOSITORY
    <https://github.com/michal-josef-spacek/Unicode-Block-Ascii>

AUTHOR
    Michal Josef �麖a�嶤k <mailto:skim@cpan.org>

    <http://skim.cz>

LICENSE AND COPYRIGHT
    穢 2013-2023 Michal Josef �麖a�嶤k

    BSD 2-Clause License

VERSION
    0.04