Help for this page

Select Code to Download


  1. or download this
    #file Interface1.pm
package Interface1;
...

$interface = "Interface2";
print $interface->foo();
  2. or download this
    $interface = "Interface1";
eval "print $interface" . "::foo()";

$interface = "Interface2";
eval "print $interface" . "::foo()";
  3. or download this
    eval "print $interface::foo()";