package ORM;

use SQL;

sub ORM {
    ...
    for my $field (SQL::select(...)) {
        ....
        *$field_sub_name = sub { ...... }
    }
}