package FooFactory; use strict; sub get_foo { if ($^O eq 'MSWin32') { return Win32Foo->new(); } else { return UnixFoo->new(); } } #================= package Foo; use strict; sub new { my $proto = shift; my $class = ref($proto) || $proto; my $self = {}; bless ($self, $class); return $self; } sub bar { die "abstract, must override"; } #================= package Win32Foo; use strict; use vars qw(@ISA); @ISA=qw(Foo); #use Win32::OLE; #Win32::OLE->import; sub bar { print "Win32\n"; } #================= package UnixFoo; use strict; use vars qw(@ISA); @ISA=qw(Foo); sub bar { print "UNIX\n"; } #================= # USAGE: my $foo = FooFactory->get_foo(); $foo->bar();