Select Code to Download

package MyProject::OSSpecific::base;

...
# much more methods

1;

package MyProject::OSSpecific::doslike;

...
# much more methods

1;

package MyProject::OSSpecific::dos;

...
}

1;

package MyProject::OSSpecific::MSWin32;

...
}

1;

package MyProject::OSSpecific::unixlike;

...
# much more methods

1;

package MyProject::OSSpecific::freebsd;

...
}

1;

package MyProject::OSSpecific::linux;

...
}

1;

packame MyProject::OSSpecific;

...
use parent 'MyProject::OSSpecific::'.$^O; # <-- this is the most impor
+tant trick here.

1;

use strict;
use warnings;
...
use MyProject::OSSpecific;

print "This program should be installed to ",MyProject::OSSpecific->in
+stallTo(),"\n";