[Dbix-class] Ok, let's begin

[Krzysztof Krzyzaniak]

Simple Catalyst app. I have now loaded table in model:

package TrackCD::M::DBIC;

use strict;
use base qw/DBIx::Class/;

__PACKAGE__->load_components(qw/Core DB PK::Auto::Pg Table Row 
Relationship/);
__PACKAGE__->connection
(
     TrackCD->config->{'dsn'},
     TrackCD->config->{'username'},
     TrackCD->config->{'password'} ,
     { RaiseError => 1, PrintError => 0, ShowErrorStatement => 1, 
TraceLevel => 0 }
);

then in TrackCD::M::DBIC::Record;

use strict;
use base qw/TrackCD::M::DBIC/;


__PACKAGE__->table('record');
__PACKAGE__->set_primary_key('rec_id');
__PACKAGE__->add_relationship
(
     'tracks' => 'TrackCD::M::DBIC::Track',
     {'foreign.rec_id' => 'self.rec_id'}
);


now in controller I am getting data:

my $records = TrackCD::M::DBIC::Record->search
(
                 {},
                 {
                 'order_by' => $orders{$order},
                 'rows' => 50,
                 'page' => 1
                 }
);

and finally I have

DBIx::Class::ResultSet and DBIx::Class::ResultSet->pager. In which way I 
can use it? (I mean maybe there is some iterator class in ResultSet?)

Maybe small example on WiKi?

   eloy
-- 
-------e-l-o-y-----------e-l-o-y- at -t-r-a-n-s-i-l-v-a-n-i-a-.-e-u-.-o-r-g------

        jak to dobrze, że są oceany - bez nich byłoby jeszcze smutniej