# NOTE: Derived from ../blib/lib/Sybase/Sybperl.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Sybase::Sybperl;

#line 487 "../blib/lib/Sybase/Sybperl.pm (autosplit into ../blib/lib/auto/Sybase/Sybperl/dbnumcols.al)"
sub dbnumcols
{
    my($dbproc) = @_;
    my($ret);

    $dbproc = $default_db if(!defined($dbproc) || !&isadb($dbproc));
    $ret = $dbproc->dbnumcols;
}

# end of Sybase::Sybperl::dbnumcols
1;
