path: root/LedgerSMB/Location.pm

=head1 NAME

LedgerSMB::Location - LedgerSMB class for managing Business Locations

=head1 SYOPSIS

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

=head1 METHODS

The following method is static:

=over

=item new ($LedgerSMB object);

=back

The following methods are passed through to stored procedures:

=over

=item save

=item get

=item search

=item list_all

=item delete (via Autoload)

=back

The above list may grow over time, and may depend on other installed modules.

=head1 Copyright (C) 2007, The LedgerSMB core team.

This file is licensed under the Gnu General Public License version 2, or at your
option any later version.  A copy of the license should have been included with
your software.

=cut

package LedgerSMB::Location;
use LedgerSMB;
use LedgerSMB::DBObject;
use strict;
our $VERSION = '1.0.0';

our @ISA = qw(LedgerSMB::DBObject);

sub AUTOLOAD {
    my $self     = shift;
    my $AUTOLOAD = $LedgerSMB::Location::AUTOLOAD;
    $AUTOLOAD =~ s/^.*:://;
    my $procname = "location_$AUTOLOAD";
    $self->exec_method( procname => "location_$AUTOLOAD", args => \@_ );
}

sub save {
    my $self = shift;
    my $ref = shift @{ $self->exec_method( procname => "location_save" ) };
    $self->merge( $ref, 'id' );
}

sub get {
    my $self = shift;
    my $ref = shift @{ $self->exec_method( procname => 'location_get' ) };
    $self->merge( $ref, keys %{$ref} );
}

sub search {
    my $self = shift;
    my $self->{search_results} =
      $self->exec_method( procname => 'location_search' );
}

sub list_all {
    my $self = shift;
    my $self->{search_results} =
      $self->exec_method( procname => 'location_list_all' );
}

1;