if ( $IMPLEMENTED_BY ) {
        # Allow for custom HomeDir classes
        # Leave it as the existing value
} elsif ( $^O eq 'MSWin32' ) {
        # All versions of Windows
        $IMPLEMENTED_BY = 'File::HomeDir::Windows';
...

sub my_home {
        $IMPLEMENTED_BY->my_home;
}