I looked at %INC after the program got started and dumped versions. Here's what I got. The code:
#!/usr/bin/perl
use strict;
use diagnostics;
use lib ".";
use MyTable;
print <<"END";
Exporter = $Exporter::VERSION
Carp = $Carp::VERSION
XSLoader = $XSLoader::VERSION
Class::DBI::Query = $Class::DBI::Query::VERSION
DynaLoader = $DynaLoader::VERSION
lib = $lib::VERSION
Class::Trigger = $Class::Trigger::VERSION
Exporter::Heavy = $Exporter::Heavy::VERSION
DBI = $DBI::VERSION
Class::WhiteHole = $Class::WhiteHole::VERSION
MyDatabase = $MyDatabase::VERSION
constant = $constant::VERSION
Class::DBI::ColumnGrouper = $Class::DBI::ColumnGrouper::VERSION
strict = $strict::VERSION
diagnostics = $diagnostics::VERSION
base = $base::VERSION
vars = $vars::VERSION
Config = $Config::VERSION
warnings::register = $warnings::register::VERSION
warnings = $warnings::VERSION
Class::Data::Inheritable = $Class::Data::Inheritable::VERSION
Ima::DBI = $Ima::DBI::VERSION
Class::Accessor = $Class::Accessor::VERSION
MyTable = $MyTable::VERSION
Class::DBI = $Class::DBI::VERSION
overload = $overload::VERSION
AutoLoader = $AutoLoader::VERSION
Data::Dumper = $Data::Dumper::VERSION
END
The output:
Exporter = 5.562
Carp =
XSLoader = 0.01
Class::DBI::Query =
DynaLoader = 1.04
lib = 0.5564
Class::Trigger = 0.08
Exporter::Heavy =
DBI = 1.32
Class::WhiteHole = 0.03
MyDatabase = -1, set by base.pm
constant = 1.02
Class::DBI::ColumnGrouper =
strict = 1.01
diagnostics =
base = 1.98
vars =
Config =
warnings::register =
warnings =
Class::Data::Inheritable = 0.02
Ima::DBI = 0.28
Class::Accessor = 0.17
MyTable =
Class::DBI = 0.91
overload =
AutoLoader = 5.58
Data::Dumper = 2.102
90% of every Perl application is already written. ⇒ |
dragonchild |