From de60face7d7d1263de392af0b483f57e63725e46 Mon Sep 17 00:00:00 2001
From: "Paul C. Buetow (mars.fritz.box)" <paul@buetow.org>
Date: Sun, 27 Apr 2014 12:02:40 +0200
Subject: All things that are, are with more spirit chased than enjoyed. 
 	-- Shakespeare, "Merchant of Venice"

---
 Xerl/Page/Content.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Xerl')

diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm
index 38e4e54..5e66d09 100644
--- a/Xerl/Page/Content.pm
+++ b/Xerl/Page/Content.pm
@@ -20,6 +20,8 @@ use Xerl::Setup::Configure;
 use Xerl::XML::Element;
 use Xerl::XML::Reader;
 
+use LWP::Simple;
+
 sub parse($) {
   my Xerl::Page::Content $self      = $_[0];
   my Xerl::Setup::Configure $config = $self->get_config();
@@ -105,6 +107,12 @@ sub _insertrules($$$) {
       elsif ( lc $name eq 'perl' ) {
         push @content, '<perl>', $text, '</perl>';
 
+      }
+      elsif ( lc $name eq 'inject' ) {
+        # Fetch via LWP::Simple
+        my $got = get($text);
+        push @content, $got;
+
       }
       elsif ( lc $name eq 'navigation' ) {
         my $menus = $config->get_menuobj()->get_array();
-- 
cgit v1.2.3