Select Code to Download

package Book;
use parent "DBIx::Class::Core";

...
                       { "foreign.book" => "self.id" } );
# Probably a belongs_to Author here...
1;

package Chapter;
use parent "DBIx::Class::Core";

...
                       { "foreign.chapter" => "self.id" } );
__PACKAGE__->belongs_to( book => "Book" );
1;

package Page;
use parent "DBIx::Class::Core";

...
__PACKAGE__->set_primary_key("id");
__PACKAGE__->belongs_to( book => "Chapter" );
1;

# Gets latest 10 results
while ( my $page = $rs->next ) {
    my $book    = sprintf( "%02d", $page->chapter->book->title ); # Bo
+ok number???
    my $chapter = sprintf( "%02d", $page->chapter->num );
}