From 057ed89201fc191a3b0d4ae879b8daf837825ef8 Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Mon, 11 Dec 2023 01:38:50 +0100
Subject: [PATCH] script_code

---
 lib/perl/NB/CGI.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index 28dc6807..de9bd70d 100644
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -234,6 +234,11 @@ sub text {
 	return $TEXT_OUTPUT;
 }
 
+sub script_code {
+	my ($self,@p) = @_;
+	return $self->_script(@p);
+}
+
 sub tag {
 	shift if ref($_[0]) eq __PACKAGE__; # _tag_func first arg must be tagname
 	return &_tag_func(@_);
-- 
2.47.3