diff options
| author | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 12:02:40 +0200 |
|---|---|---|
| committer | Paul C. Buetow (mars.fritz.box) <paul@buetow.org> | 2014-04-27 12:02:40 +0200 |
| commit | de60face7d7d1263de392af0b483f57e63725e46 (patch) | |
| tree | 3695cd6b470263be4f3e39b3b41487cce15d52fd | |
| parent | 32a1fdccf8368599c21e703998fcfb4d328fbe0a (diff) | |
All things that are, are with more spirit chased than enjoyed.
-- Shakespeare, "Merchant of Venice"
| -rw-r--r-- | Xerl/Page/Content.pm | 8 |
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(); |
