[Dbix-class] not able to list any records from database

[Rajeev Prasad]

follwoing code is not printing anything...???? can anyone help plz?
=A0
=A0
#!/usr/bin/perl
use strict;
use warnings;
use lib '../testdb';
use Mysqltestdb::Schema;
my ($schema, $user, $users_rs);
my (@newusers, @oldusers);
$schema =3D Mysqltestdb::Schema->connect("dbi:mysql:dbname=3Dmysqltestdb:lo=
calhost:3306", 'root', 'mysql5');
$users_rs =3D $schema->resultset('Testdbuser')->search(
=A0=A0=A0 { 'userid' =3D> 'test' },=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 ## WHERE
=A0=A0=A0 { =

=A0=A0=A0=A0=A0 select=A0=A0 =3D> [ qw/userid password/ ],=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 ## SELECT
=A0=A0=A0=A0=A0 as=A0=A0=A0=A0=A0=A0 =3D> [ qw/uid pass/ ],
=A0=A0=A0 }
=A0 );
=A0 =

while ($user =3D $users_rs->next ()){
=A0print "user is:" . $user->uid . "\n";
=A0};

=A0
=A0
database users:
SQL query: SELECT * FROM `testdbusers` LIMIT 0, 30 ; =

Rows: 6 =

userid =

password =

test12 pass =

user1 pass1 =

user2 pass2 =

test45 pass =

te1234 pass =

te4567 pass =

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.scsys.co.uk/pipermail/dbix-class/attachments/20110901/884=
475d4/attachment.htm