<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">NAME
    Unicode::Block::Ascii - Ascii output of unicode block.

SYNOPSIS
     use Unicode::Block::Ascii;
     my $obj = Unicode::Block::Ascii-&gt;new(%parameters);
     my $output = $obj-&gt;get;
     my $item = $obj-&gt;next;

METHODS
    "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.

    "get()"
             Get output.
             Return string with ascii table of Unicode::Block object.

    "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 &lt; 1) {
             print STDERR "Usage: $0 block_name\n";
             exit 1;
     }
     my $block_name = $ARGV[0];

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

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

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

     # Print to output.
     print encode_utf8($block_ascii-&gt;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-&gt;new;
     my @unicode_block_list = $list-&gt;list;
 
     # Window.
     my $cui = Curses::UI-&gt;new;
     my $win = $cui-&gt;add('window_id', 'Window');
     $win-&gt;set_binding(\&amp;exit, "\cQ", "\cC");
 
     # Popup menu.
     my $popupbox = $win-&gt;add(
             'mypopupbox', 'Popupmenu',
             '-labels' =&gt; {
                     map { $_, $_ } @unicode_block_list,
             },
             '-onchange' =&gt; sub {
                     my $self = shift;
                     $cui-&gt;leave_curses;
                     my $block = $list-&gt;block($self-&gt;get);
                     my $block_ascii = Unicode::Block::Ascii-&gt;new(%{$block});
                     print encode_utf8($block_ascii-&gt;get)."\n";
                     exit 0;
             },
             '-values' =&gt; \@unicode_block_list,
     );
     $popupbox-&gt;focus;
 
     # Loop.
     $cui-&gt;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 â”‚ â–&nbsp;â”‚ â–،â”‚ â–¢â”‚ â–£â”‚ â–¤â”‚ â–¥â”‚ â–¦â”‚ â–§â”‚ â–¨â”‚ â–©â”‚ â–ھâ”‚ â–«â”‚ â–¬â”‚ â–­â”‚ â–®â”‚ â–¯â”‚
     # â”œâ”€â”€â”€â”€â”€â”€â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¤
     # â”‚ U+25bx â”‚ â–°â”‚ â–±â”‚ â–²â”‚ â–³â”‚ â–´â”‚ â–µâ”‚ â–¶â”‚ â–·â”‚ â–¸â”‚ â–¹â”‚ â–؛â”‚ â–»â”‚ â–¼â”‚ â–½â”‚ â–¾â”‚ â–؟â”‚
     # â”œâ”€â”€â”€â”€â”€â”€â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¤
     # â”‚ U+25cx â”‚ â—€â”‚ â—پâ”‚ â—‚â”‚ â—ƒâ”‚ â—„â”‚ â—…â”‚ â—†â”‚ â—‡â”‚ â—ˆâ”‚ â—‰â”‚ â—ٹâ”‚ â—‹â”‚ â—Œâ”‚ â—چâ”‚ â—ژâ”‚ â—ڈâ”‚
     # â”œâ”€â”€â”€â”€â”€â”€â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¤
     # â”‚ U+25dx â”‚ â—گâ”‚ â—‘â”‚ â—’â”‚ â—“â”‚ â—”â”‚ â—•â”‚ â—–â”‚ â——â”‚ â—کâ”‚ â—™â”‚ â—ڑâ”‚ â—›â”‚ â—œâ”‚ â—‌â”‚ â—‍â”‚ â—ںâ”‚
     # â”œâ”€â”€â”€â”€â”€â”€â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¤
     # â”‚ U+25ex â”‚ â—&nbsp;â”‚ â—،â”‚ â—¢â”‚ â—£â”‚ â—¤â”‚ â—¥â”‚ â—¦â”‚ â—§â”‚ â—¨â”‚ â—©â”‚ â—ھâ”‚ â—«â”‚ â—¬â”‚ â—­â”‚ â—®â”‚ â—¯â”‚
     # â”œâ”€â”€â”€â”€â”€â”€â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¼â”€â”€â”¤
     # â”‚ U+25fx â”‚ â—°â”‚ â—±â”‚ â—²â”‚ â—³â”‚ â—´â”‚ â—µâ”‚ â—¶â”‚ â—·â”‚ â—¸â”‚ â—¹â”‚ â—؛â”‚ â—»â”‚ â—¼â”‚â—½â”‚â—¾â”‚ â—؟â”‚
     # â””â”€â”€â”€â”€â”€â”€â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”´â”€â”€â”ک

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

REPOSITORY
    &lt;https://github.com/tupinek/Unicode-Block-Ascii&gt;

AUTHOR
    Michal Josef إ&nbsp;paؤچek &lt;mailto:skim@cpan.org&gt;

    &lt;http://skim.cz&gt;

LICENSE AND COPYRIGHT
     آ© 2013-2018 Michal Josef إ&nbsp;paؤچek
     BSD 2-Clause License

VERSION
    0.03

</pre></body></html>