Select Code to Download

Select or download this
```
Configuration:

...

1..1
ok 1
```

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE data [
...
%dtd;
]>
<data>&all;</data>

Select or download this
```
<!ENTITY all '%start;%goodies;%end;'>
```
Select or download this
```
it_works
```

Select or download this

#!/usr/bin/perl
 
...
my $root = $t->root;
my $content = $root->first_child->text;
print $content;

Select or download this

cannot expand %dtd; - cannot load 'http://127.0.0.1:5000/parameterEnti
+ty_core.dtd' at C:/Strawberry/perl/vendor/lib/XML/Parser/Expat.pm lin
+e 474.

Select or download this

sub _twig_extern_ent
   { # warn " in _twig_extern_ent...I (", $_[0]->original_string, ")\n
+"; # DEBUG handler
...
      }
    return $ent_content; 
  }

Select or download this


   if( !$args{NoLWP} && ! _use( 'URI') && ! _use( 'URI::File') && ! _u
+se( 'LWP'))
...
      }
    else
      { $self->{twig_ext_ent_handler}= \&XML::Parser::file_ext_ent_han
+dler }

Select or download this

 
$t->parsefile('../../xml_files_windows/parameterEntity_core.xml');

Select or download this

if( !$args{NoLWP} && ! _use( 'URI') && ! _use( 'URI::File') && ! _use(
+ 'LWP'))

Select or download this
```
if( !$args{NoLWP} )
```

Select or download this

$t->parsefile('../../xml_files_windows/parameterEntity_core.xml', Pars
+eParamEnt => 1);

Select or download this
```
if( !$args{NoLWP} )
```

Select or download this

$t->parsefile('../../xml_files_windows/parameterEntity_core.xml', Pars
+eParamEnt => 1);

Select or download this
```
if( !$args{NoLWP} && ! _use( 'URI') )
```

Select or download this

if( !$args{NoLWP} && ! _use( 'URI::File') )

Select or download this
```
if( !$args{NoLWP}  && ! _use( 'LWP'))
```

Select or download this

if( !$args{NoLWP} && ! _use( 'URI') && ! _use( 'URI::File') && ! _use(
+ 'LWP'))

Select or download this

    if( !$args{NoLWP} && ! _use( 'URI') && ! _use( 'URI::File') && ! _
+use( 'LWP'))
      { $self->{twig_ext_ent_handler}= \&XML::Parser::file_ext_ent_han
+dler }

Select or download this

$t->parsefile('../../xml_files_windows/parameterEntity_core.xml', Pars
+eParamEnt => 1);

Select or download this

     if( !$args{NoLWP} && ! _use( 'URI') && ! _use( 'URI::File') && ! 
+_use( 'LWP'))
      { $self->{twig_ext_ent_handler}= \&XML::Parser::file_ext_ent_han
+dler }
...
      }
    else
      { $self->{twig_ext_ent_handler}= \&XML::Parser::initial_ext_ent_
+handler }

Select or download this

$t->parsefile('../../xml_files_windows/parameterEntity_core.xml', Pars
+eParamEnt => 1);

Select or download this

   if( !$args{NoLWP} && ! _use( 'URI') && ! _use( 'URI::File') && ! _u
+se( 'LWP'))