[Summary view] [Print] [Text view]

   1  #!perl -w
   2  package version;
   3  
   4  use 5.005_04;
   5  use strict;
   6  
   7  use vars qw(@ISA $VERSION $CLASS *qv);
   8  
   9  $VERSION = 0.74;
  10  
  11  $CLASS = 'version';
  12  
  13  # Preloaded methods go here.
  14  sub import {
  15      my ($class) = @_;
  16      my $callpkg = caller();
  17      no strict 'refs';
  18      
  19      *{$callpkg."::qv"} = 
  20          sub {return bless version::qv(shift), $class }
  21      unless defined (&{"$callpkg\::qv"});
  22  
  23  }
  24  
  25  1;