summaryrefslogtreecommitdiff
path: root/Xerl
diff options
context:
space:
mode:
Diffstat (limited to 'Xerl')
-rw-r--r--Xerl/Page/Content.pm8
1 files changed, 8 insertions, 0 deletions
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();
@@ -106,6 +108,12 @@ sub _insertrules($$$) {
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();