Shiar_Sheet/KeySigns.pm

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