LedgerSMB/DBObject.pm



=head1 NAME

LedgerSMB::DBObject - LedgerSMB class for building objects from db relations

=head1 SYOPSIS

This module creates object instances based on LedgerSMB's in-database ORM.  

=head1 METHODS

Most methods are dynamically created. The following methods are static, however.

=item make_object hashref, string, 

This creates a new data object instance based on information in the PostgreSQL
catalogs.

=back

=cut

use LedgerSMB;
package LedgerSMB::DBObject;
use strict;
no strict 'refs';
use warnings;

sub make_object {
    my ($request, $name, $package_name) = @_;
    my $self = {};
    $self->{__dbh} = $request->{dbh};
    $self->{__name} = $name;
    $self->{__methods} = [];

    my $query = 
        "SELECT proname, proargnames FROM pg_proc
          WHERE proname ilike ?";
    my $sth = $self->{__dbh}->prepare($query);
    $sth->execute("$name".'_%');
    my $ref;

    while ($ref = $sth->fetchrow_hashref(NAME_lc)){
        my $m_name = $ref->{proname};
        my $args = $ref->{proargnames};
        my $subcode
        if ($m_name ~= s/$name\_//){
            push @{$self->{__methods}}, $m_name;
            if ($args){
                $subcode = "sub {
                    LedgerSMB::callproc($self->{proname}"
                for $arg (@$args){
                    if ($arg =~ s/in_//){
                        $subcode .= ", \$self->{$arg}";
                    }
                }
                $subcode .= "); }"
                *{$package_name . "::" . $m_name}
                    = eval $subcode;
                
            }
            else {
                $subcode = "sub {
                    LedgerSMB::callproc($self->{proname}, ".
                    "\@_); }"
            }
        }
        *{$package_name . "::" . $m_name} = eval $subcode;
    }   
}