Changeset 12 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

03/02/09 22:01:54 (15 years ago)

Author:

nanardon

Message:

• trape object->new return undef
• add type functions

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -34 +34 @@
     # finding perl class:
     my $pclass = $base->_load_obj_class($otype) or return;
-    my $newobj = "$pclass"->new($base, $id, @args);
+    my $newobj = "$pclass"->new($base, $id, @args) or return;
     $newobj->{_base} = $base;
+    $newobj->{_type} = lc($otype);
     return $newobj;
+}
+
+sub type {
+    my ($self) = @_;
+    return $self->{_type}
 }