Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
$x=1;
  2. or download this
      my $sFile = 'Monks/Foo/Bar.pm';
  my $result = eval("require Monks::Foo::Bar");
...
  print "=== Contents of %INC ===\n";
  print "\$INC{$sFile}=<"
    . (defined($INC{$sFile}) ? $INC{$sFile} : 'undef') . ">\n";
  3. or download this
    === Eval results ===
result=<undef>
...
>
=== Contents of %INC ===
$INC{Monks/Foo/Bar.pm}=<Monks/Foo/Bar.pm>