Help for this page

Select Code to Download


  1. or download this
    sub AUTOLOAD {
    (my $sub = $The::Class::Name::AUTOLOAD) =~ s/^.*:://;
    my $db = shift;
    $db->{dbh}->$sub(@_);
}
  2. or download this
    (in cleanup) Can't call method "DESTROY" on an undefined value at ... 
+at line ...