X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/6b4cefaabd92d7056651a627267df0abc4f92b3d..f91fd6d772ee8ea35f833802c9f8cc1db75ca950:/Shiar_Sheet/KeySigns.pm diff --git a/Shiar_Sheet/KeySigns.pm b/Shiar_Sheet/KeySigns.pm index 069b8fa..c65385c 100644 --- a/Shiar_Sheet/KeySigns.pm +++ b/Shiar_Sheet/KeySigns.pm @@ -4,12 +4,9 @@ use utf8; 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 => '′', @@ -22,8 +19,10 @@ sub import { left => '◀', sep => '•', _ => '' || "\x{200b}", # unofficial html, correct ZWNJ character might appear as placeholder - ); +); +sub import { + # exports %sign my ($parent) = caller; eval '*'.$parent.'::sign = \%sign'; }