git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
index: latest git commit
[sheet.git]
/
Shiar_Sheet
/
KeySigns.pm
diff --git
a/Shiar_Sheet/KeySigns.pm
b/Shiar_Sheet/KeySigns.pm
index 069b8fa732220bd9c459c1afff85fa6a28cf26f5..c65385ce5415d71aefdb615a39c0d51e8f0dcb80 100644
(file)
--- a/
Shiar_Sheet/KeySigns.pm
+++ b/
Shiar_Sheet/KeySigns.pm
@@
-4,12
+4,9
@@
use utf8;
use strict;
use warnings;
use strict;
use warnings;
-our $VERSION = '
v1.02
';
+our $VERSION = '
1.03
';
-sub import {
- my $class = shift;
-
- my %sign = (
+our %sign = (
arg => '·', # described as 'dot'
args => '⁚',
argi => '′',
arg => '·', # described as 'dot'
args => '⁚',
argi => '′',
@@
-22,8
+19,10
@@
sub import {
left => '◀',
sep => '•',
_ => '<wbr>' || "\x{200b}", # unofficial html, correct ZWNJ character might appear as placeholder
left => '◀',
sep => '•',
_ => '<wbr>' || "\x{200b}", # unofficial html, correct ZWNJ character might appear as placeholder
-
);
+);
+sub import {
+ # exports %sign
my ($parent) = caller;
eval '*'.$parent.'::sign = \%sign';
}
my ($parent) = caller;
eval '*'.$parent.'::sign = \%sign';
}