Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: (jeffa) Re: Why Does My Class::DBI Program Break Under "use diagnostics" Pragma?

by pfaut (Priest)
on Jul 12, 2003 at 18:59 UTC ( [id://273654]=note: print w/replies, xml ) Need Help??


in reply to (jeffa) Re: Why Does My Class::DBI Program Break Under "use diagnostics" Pragma?
in thread Why Does My Class::DBI Program Break Under "use diagnostics" Pragma?

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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://273654]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2024-03-28 22:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found