Extracting information back out of a DBH

[peter@dragonstaff.com]

Quoting Dave Hodgkinson <davehodg at gmail.com>:

>>> my $dbh = DBI->connect('dbi:mysql:dbname', 'user', 'pass');
>>> print Dumper( tied(%$dbh) );
>> Ahah, the tied was just the ticket.
> Perl question: what does tied do and why is it used in this situation?

I suspect it was used to provide data encapsulation and hiding in the  
days before Perl objects and closures became well known.

Regards, Peter