From b7960a7311bccab007e50d586159814f94f848c3 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Fri, 13 Apr 2018 12:08:07 -0300
Subject: [PATCH] Bug 20538: ->tag is private - tell it explicitly

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 Koha/Template/Plugin/Asset.pm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/Koha/Template/Plugin/Asset.pm b/Koha/Template/Plugin/Asset.pm
index 5b78345174..4cbc1bd0e8 100644
--- a/Koha/Template/Plugin/Asset.pm
+++ b/Koha/Template/Plugin/Asset.pm
@@ -86,7 +86,7 @@ sub js {
 
     $attributes->{src} = $url;
 
-    return $self->tag('script', $attributes) . '</script>';
+    return $self->_tag('script', $attributes) . '</script>';
 }
 
 =head2 css
@@ -111,7 +111,7 @@ sub css {
     $attributes->{type} = 'text/css';
     $attributes->{href} = $url;
 
-    return $self->tag('link', $attributes);
+    return $self->_tag('link', $attributes);
 }
 
 =head2 url
@@ -149,16 +149,14 @@ sub url {
     }
 }
 
-=head2 tag
+=head2 _tag
 
 Returns an HTML tag with given name and attributes.
 This shouldn't be used directly.
 
-    [% Asset.tag("script", { src = "/koha-tmpl/intranet-tmpl/prog/css/datatables.css" }) %]
-
 =cut
 
-sub tag {
+sub _tag {
     my ($self, $name, $attributes) = @_;
 
     my @attributes_strs;
-- 
2.39.5