Nilton,
Esta linha aqui: $c->model('DB::Log')->resultset('Users')->all retorna
um array, mas você está atribuindo isso a um escalar (no caso, $rs).
Você provavelmente quer:
my $rs = $c->model('DB::Log')->resultset('Users');
;)
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
