Can't locate object method "select_row" via package "DBI::st" at /usr/lib/perl5/site_perl/5.8.2/Class/DBI.pm line 780.

##</code><code>##

package TableName;
use base 'Class::DBI';

my $dbh = DBI->connect(
	"dbi:AnyData:",
	undef, undef,
	{
		RootClass => 'DBIx::ContextualFetch',
		ShowErrorStatement => 1,
		RaiseError => 1,
		AutoCommit => 1,
		PrintError => 1,
		Taint => 1,
		FetchHashKeyName => '"NAME_lc"',
		ChopBlanks => 1,
	});

$dbh->func( 'tablename', 'CSV', 'filename.csv', { field_sep => q(\\^) }, 'ad_catalog');

# this instead of __PACKAGE__->set_db( ... )
sub db_Main { return $dbh; }

__PACKAGE__->table( 'tablename' );
__PACKAGE__->columns( All => qw/ ip sysDescr / );

1;