That looks fine to me. There are similar mechanisms in use on CPAN, such as:

• Digest
• File::Spec

You could check how they did things, as a source of inspiration.

One caveat: you don't have any warning if the "source" isn't recognized.