Bio/Root/Version.pm

   1 package Bio::Root::Version;
   2 use strict;
   3
   4 =head1 SYNOPSIS
   5
   6   package Bio::Tools::NiftyFeature;
   7   require Bio::Root::RootI;
   8
   9   # later, in client code:
  10   package main;
  11   use Bio::Tools::NiftyFeature 3.14;
  12
  13   ## alternative usage: NiftyFeature defines own $VERSION:
  14   package Bio::Tools::NiftyFeature;
  15   my $VERSION = 9.8;
  16
  17   # later in client code:
  18   package main;
  19
  20   # ensure we're using an up-to-date BioPerl distribution
  21   use Bio::Perl 3.14;
  22
  23   # NiftyFeature has its own versioning scheme:
  24   use Bio::Tools::NiftyFeature 9.8;
  25
  26 =head1 DESCRIPTION
  27
  28 This module provides a mechanism by which all other BioPerl modules
  29 can share the same $VERSION, without manually synchronizing each file.
  30
  31 Bio::Root::RootI itself uses this module, so any module that directly
  32 (or indirectly) uses Bio::Root::RootI will get a global $VERSION
  33 variable set if it's not already.
  34
  35 =head1 AUTHOR Aaron Mackey
  36
  37 =cut
  38
  39 our $VERSION = '1.006925'; # pre-1.7
  40 $VERSION = eval $VERSION;
  41
  42 sub import {
  43     # try to handle multiple levels of inheritance:
  44     my $i = 0;
  45     my $pkg = caller($i);
  46     no strict 'refs';
  47     while ($pkg) {
  48         if (    $pkg =~ m/^Bio::/o
  49             and not defined ${$pkg . "::VERSION"}
  50             ) {
  51             ${$pkg . "::VERSION"} = $VERSION;
  52         }
  53         $pkg = caller(++$i);
  54     }
  55 }
  56
  57 1;
  58
  59 __END__