Help for this page

Select Code to Download


  1. or download this
    use Class::DBI::Loader;

...
print join (": " , $class->columns);
my @obj = $class->retrieve_all(1);
print $_->name foreach (@obj);
  2. or download this
    Can't locate object method "set_db" via package "BlaBla::Contact" at /
+usr/local/perl-5.6.0/lib/site_perl/5.6.0/Class/DBI/Loader/mysql.pm li
+ne 48.
Issuing rollback() for database handle being DESTROY'd without explici
+t disconnect().
  3. or download this
            no strict 'refs';
        @{"$class\::ISA"} = qw(Class::DBI::mysql);
        $class->set_db( Main => @{ $self->_datasource } );