On Sun, Aug 16, 2009 at 12:09 PM, Ovid<publiustemp-catal...@yahoo.com> wrote:
> Hi all,
>
> This should be painfully obvious, but I don't see it :)
>
> For a personal project, I want users to be able to click on a letter and get 
> a list of countries starting with that letter.  I can do this:
>
>    my $letters = $c->model('DB')->storage->dbh->selectcol_arrayref(
>        'select distinct(substr(name,1,1)) as letter from country order by 
> letter'
>    );
>    $c->stash->{letters} = $letters;
>
>
> But the country list is static and I want this available at startup.  'sub 
> begin' fails because that's called once per request, not once per app.
>
> What's the recommend way of handling this?  (I'm using DBIx::Class for the 
> model)

package MyApp::Model::DB;

extends 'Catalyst::Model::DBIC::Schema';

has country_letters => (isa => 'ArrayRef', is => 'ro', lazy_build => 1);

sub _build_country_letters {
  my($self) = @_;
  return $self->storage->dbh->selectcol_arrayref(
    'select distinct(substr(name,1,1)) as letter from country order by letter'
  );
};

sub BUILD { shift->country_letters } # optionally, force load-time construction

# in a distant controller

$c->stash->{letters} = $c->model('DB')->country_letters;

-- 
   Eden Cardim       Need help with your Catalyst or DBIx::Class project?
  Code Monkey                    http://www.shadowcat.co.uk/catalyst/
 Shadowcat Systems Ltd.  Want a managed development or deployment platform?
http://edenc.vox.com/            http://www.shadowcat.co.uk/servers/

_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/

Reply via email to