Set up @EXPORT for Markdown

2023-04-25 12:03:05 -04:00 · 2023-04-25 12:03:05 -04:00 · d9323c721b
parent e86cda1cc5
commit d9323c721b
2 changed files with 4 additions and 1 deletions
--- a/lib/PostText.pm
+++ b/lib/PostText.pm
@ -64,7 +64,7 @@ sub startup($self) {
    });

    $self->helper(markdown => sub ($c, $input_text) {
-        PostText::Markdown::Markdown($input_text)
+        Markdown($input_text)
    });

    # Finish configuring some things
--- a/lib/PostText/Markdown.pm
+++ b/lib/PostText/Markdown.pm
@ -14,6 +14,9 @@ use v5.36;
 use Digest::MD5 qw(md5_hex);
 use vars qw($VERSION);
 $VERSION = '1.0.1';
+
+use Exporter qw{import};
+our @EXPORT = qw{Markdown};
 # Tue 14 Dec 2004

 ## Disabled; causes problems under Perl 5.6.1: