follwoing code is not printing anything...???? can anyone help plz?
#!/usr/bin/perl
use strict;
use warnings;
use lib '../testdb';
use Mysqltestdb::Schema;
my ($schema, $user, $users_rs);
my (@newusers, @oldusers);
$schema =
Mysqltestdb::Schema->connect("dbi:mysql:dbname=mysqltestdb:localhost:3306",
'root', 'mysql5');
$users_rs = $schema->resultset('Testdbuser')->search(
{ 'userid' => 'test' }, ## WHERE
{
select => [ qw/userid password/ ], ## SELECT
as => [ qw/uid pass/ ],
}
);
while ($user = $users_rs->next ()){
print "user is:" . $user->uid . "\n";
};
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
_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[email protected]
