diff options
| -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(); |