Select Code to Download

package Foo::Bar;

...
Documentation here

=cut

package Foo::Bar::MSWin32;

...
# ...

1;

package Foo::Bar::unixoid;

...
# ...

1;

package Foo::Bar::linux;
use parent 'Foo::Bar::unixoid';
1;

package Foo::Bar::solaris;
use parent 'Foo::Bar::unixoid';
1;

package Foo::Bar::cygwin;
use parent 'Foo::Bar::MSWin32'; # assuming you can use OLE with cygwin
+ - never tried it
1;

package Foo::Bar::base;

...
}

1;

use Foo::Bar;

my $f=Foo::Bar->new();
$f->frob('bla','bla');
$f->some_generic_function();