NAME version::Store - Get your module's minimum/required version from your users VERSION version 0.01 SYNOPSIS In your module: package YourModule; our $VERSION = 0.12; use version::Store; our %USER_PACKAGES; use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(foo); sub foo { my $caller = caller; my $min_ver = $USER_PACKAGES{$caller}{min_ver}; print "foo" . ($min_ver && $min_ver >= 0.11 ? " with extra zazz!" : ""); } In code using your module: use YourModule; foo(); # prints "foo"; In another code: use YourModule 0.12; foo(); # prints "foo with extra zazz!" DESCRIPTION Sometimes you want to present different features to each user, depending on what version of your module she requests. This pragma lets you do that. This is done by installing a "VERSION()" subroutine to your module. This subroutine is called by Perl whenever a user does something like "use YourModule 0.12" (the "use MODULE VERSION" form). The version information is stored in your module's %USER_PACKAGES package variable, with each calling package as the key and a hashref for each value. Each hashref contains the key "version" containing the data. Alternatively, you can write your own "VERSION()" when appropriate. SEE ALSO "use" on perldoc. HOMEPAGE Please visit the project's homepage at . SOURCE Source repository is at . BUGS Please report any bugs or feature requests on the bugtracker website When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature. AUTHOR Steven Haryanto COPYRIGHT AND LICENSE This software is copyright (c) 2014 by Steven Haryanto. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.