#! /usr/bin/perl
# See comments in Versioning about warnings
use strict;
require versioned_module;
tst(0);
tst(1);
tst(0);
tst(1);

sub tst {
  $ENV{IS_PROD} = shift;
  import versioned_module("report_version");
  report_version("Procedural");
  report_version versioned_module("OO");
}

##</code><code>##

use vars qw(@EXPORT_OK);
@EXPORT_OK = qw(report_version);

sub report_version {
  my $arg = pop();
  my $ver = __PACKAGE__;
  print "Got version $ver through $arg interface\n";
}