Shiar_Sheet/KeySigns.pm

   1 package Shiar_Sheet::KeySigns;
   2
   3 use utf8;
   4 use strict;
   5 use warnings;
   6
   7 our $VERSION = 'v1.02';
   8
   9 sub import {
  10         my $class = shift;
  11
  12         my %sign = (
  13                 arg    => '·',  # described as 'dot'
  14                 args   => '⁚',
  15                 argi   => '′',
  16                 argm   => '↕',
  17                 motion => '↕',
  18                 alias  => '»',
  19                 up     => '▲',
  20                 right  => '▶',
  21                 down   => '▼',
  22                 left   => '◀',
  23                 sep    => '•',
  24                 _      => '<wbr>' || "\x{200b}",  # unofficial html, correct ZWNJ character might appear as placeholder
  25         );
  26
  27         my ($parent) = caller;
  28         eval '*'.$parent.'::sign = \%sign';
  29 }
  30
  31 1;
  32
  33 __END__
  34
  35 =head1 NAME
  36
  37 Shiar_Sheet::KeySigns - Common Unicode characters in user-preferred charset
  38
  39 =head1 SYNOPSIS
  40
  41         use Shiar_Sheet::KeySigns;
  42         print "$sign{alias} some$sign{_}thing";  # » some<wbr>thing
  43
  44 =head1 AUTHOR
  45
  46 Mischa POSLAWSKY <perl@shiar.org>
  47
  48 =head1 LICENSE
  49
  50 Copyright. All rights reserved.
  51