package Foo ;

  use strict ; use warnings ;

  our $VERSION = "0.11" ;

  sub version {
    my ($self) = @_ ;
    no strict 'refs' ;                  # NB: seatbelt off.
    return ${ref($self)."::VERSION"} ;  # "Symbolic Reference"
  } ;

  1 ;