--- trunk/lib/Frey/DBIC/Browser.pm 2009/01/25 16:51:44 1019 +++ trunk/lib/Frey/DBIC/Browser.pm 2009/01/26 14:51:11 1020 @@ -10,7 +10,7 @@ is => 'rw', isa => 'Str', required => 1, - default => 'Reblog', + default => 'Reblog::Schema', ); has dsn => ( @@ -20,7 +20,7 @@ default => 'DBI:mysql:database=reblog;host=127.0.0.1;port=13306', ); -has table => ( +has result_set => ( is => 'rw', isa => 'Str', required => 1, @@ -63,17 +63,20 @@ $attrs->{ $_ } = $self->$_ foreach ( grep { $self->$_ } ( qw/page order_by/ ) ); warn "# attrs ", $self->dump( $attrs ); - - my $rs = $schema->resultset( $self->table ) - # ->search( undef, $attrs ) + my $rs = $schema->resultset( $self->result_set ) + ->published + ->search( undef, $attrs ) + ; +=for published ->search({ 'userdata.label' => 'published', 'userdata.value_numeric' => 1, }, { join => [ 'userdata' ], - %$attrs + %$attrs, }) ; +=cut my @rows; my @name; @@ -105,4 +108,14 @@ } } +=head1 SEE ALSO + +DBIx::Master Class + +L presentation + +L video + +=cut + 1;