Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl
# See comments in Versioning about warnings
...
  report_version("Procedural");
  report_version versioned_module("OO");
}

Select or download this

use vars qw(@EXPORT_OK);
@EXPORT_OK = qw(report_version);
...
  my $ver = __PACKAGE__;
  print "Got version $ver through $arg interface\n";
}