Select Code to Download

#!/exlibris/metalib/m4_b/product/bin/perl
use demo;
{
    my $externalObject = new demo;
}

package demo;
require "wrapper";
...
        &call_httpd_exec();
        my $externalObject2 = new demo2;
}

package demo2;
require "wrapper";
...
        my $self = {};
        &call_httpd_exec();
}

sub call_httpd_exec{
    print "hello world!!\n"
}

1;

Undefined subroutine &demo::call_httpd_exec called at demo.pm line 8.