=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;
}
}
er'>treecommitdiff