On Tue, 7 Dec 2004 00:39:08 -0800, Brent 'Dax' Royal-Gordon
<[EMAIL PROTECTED]> wrote:
> Larry Wall <[EMAIL PROTECTED]> wrote:
> > Also says maybe you could attach a block to a hash or array to
> > define what subscripting does. Hmm.
>
> That's...wow.
>
> class Patient {
> my DBI::Connection $db;
>
> my Patient @byid[Int $id] {
> select_patients("SELECT * FROM patients WHERE patientid = ?", $id)[0];
> }
> multi my Patient %byname{String $last} {
> select_patients(
> "SELECT * FROM patients WHERE lastname = ?",
> $last, $first
> );
> }
> multi my Patient %byname{String $last, String $first} {
> select_patients(
> "SELECT * FROM patients WHERE lastname = ? AND firstname = ?",
> $last, $first
> );
> }
>
> ...
> }
for @byid -> $patient { ... }
for %byname.kv -> $key, $value { ... }
???
--
matt diephouse
http://matt.diephouse.com
