<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>