Re: Advice on Module name, please.

On Mon, 28 Mar 2011 09:49:22 -0700, Sam Brain <[email protected]> wrote:
> (1) Does DBIx::BuildMooseObjects seem a reasonable name, and

I don't see anything Moose-specific here.  The interesting bit is the
transformation from a single-level array to a multi-level structure grouped by
specific values, and you could write that without any objects at all, e.g.

>    J Smith | M   | 35  | A Jones, MD | 12/08/2009 | B.P    | 120/80
>    J Smith | M   | 35  | A Jones, MD | 12/08/2009 | Weight | 156
>    J Smith | M   | 35  | A Jones, MD | 03/19/2010 | B.P    | 122/88

can just be transformed into:

  [
    {
      name => 'J Smith',
      sex  => 'M',
      age  => 35,
      visits => [
        {
          md_name => 'A Jones, MD',
          date    => '12/08/2009',
          tests   => [ ... ]
        },
        {
          md_name => 'A Jones, MD',
          date    => '03/19/2010',
          tests   => [ ... ]
        }
      ]
    }
  ]
    
So, write a function that does that, though you probably already have one, or
most of one.  Then write coercions for your Moose classes from HashRef and
ArrayRef[HashRef]:

  coerce 'Test', from 'HashRef', via { Test->new($_) };
  subtype 'ArrayRefOfTest', as 'ArrayRef[Test]';
  coerce 'ArrayRefOfTest', from 'ArrayRef[HashRef]',
    via { [ map { Test->new($_) } @$_ ] };

Assuming you write coercions for Test, Visit, and Patient, all you need then is
to call Patient->new with the nested data structure above:

  my @patients = map { Patient->new($_) }
    your_grouping_function($dbh->selectall_arrayref, ...);

hdp.