use strict;
use warnings;
-our $VERSION = 'v1.02';
+our $VERSION = '1.04';
-sub import {
- my $class = shift;
-
- my %sign = (
+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';
}