Pod::Usage and PAR packaged binaries

Hi,

I usually use Pod::Usage to display --help and --manual texts from POD. 

  use Pod::Usage;
  use Pod::Find qw(pod_where);
  pod2usage( -input => pod_where({-inc => 1}, __PACKAGE__) );

This doesn't work if the program is PAR packaged.

Has anyone already figured out how this can be made to work?

-- Johan