I'm trying to create an application which uses a manifest.xml. Now in order to access this both while developing and using it, we can use File::Share as recommended in Using File::ShareDir in development, but I also want to be able to access it when it's packaged using PerlApp. Is my only recourse something like this? It seems inelegant, to say the least...

use FindBin '$Bin';
use File::Share 'dist_dir';

my $result;

# Get the version bound by PerlApp
$result = PerlApp::extract_bound_file("manifest.xml")
     if defined $PerlApp::VERSION;

# Get the distribution's shared files directory
$result ||= dist_dir('App-SFDC', 'manifest.xml');
[download]