use strict;
use warnings;
-our $VERSION = 'v1.01';
+our $VERSION = '1.04';
-sub import {
- my $class = shift;
-
- my %sign = (
- -ascii => 0,
- charset=> 'utf-8',
+our %sign = (
arg => '·', # described as 'dot'
args => '⁚',
argi => '′',
down => '▼',
left => '◀',
sep => '•',
- _ => '<wbr>' || "\x{200b}", # unofficial html, correct ZWNJ character might appear as placeholder
- );
+ '' => '<wbr>' || "\x{200b}", # unofficial html, correct ZWNJ character might appear as placeholder
+);
+sub import {
+ # exports %sign
my ($parent) = caller;
eval '*'.$parent.'::sign = \%sign';
}