Select Code to Download

  package Foo::Bar ;
  .....
  our $VERSION = "0.00" ;
  .....

  my $obj = new Foo::Bar (...) ;

  package Foo::Bar ;

...
  sub new { return bless [], shift ; } ;

  1 ;

  package Foo ;

...
  } ;

  1 ;

  use strict ; use warnings ;

...
  my $obj = new Foo::Bar ;

  print $obj->version(), "\n" ;

  1.01