summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJason Woodward2007-05-16 03:36:55 +0000
committerJason Woodward2007-05-16 03:36:55 +0000
commita1983598d97f6ba68c501543c1be9645bc210b57 (patch)
tree04706270c89022c03cf46f7bbfb0019c560fe4fe
parent2904e0c00cf8e606ffcb91f5c3e4a09340bfb9ee (diff)
downloadJaos-DBI-a1983598d97f6ba68c501543c1be9645bc210b57.tar.gz
removed duplicate pod and retrieve() now returns undef if no arguments are passed inHEAD0.3.5master
-rw-r--r--lib/Jaos/DBI.pm15
1 files changed, 5 insertions, 10 deletions
diff --git a/lib/Jaos/DBI.pm b/lib/Jaos/DBI.pm
index 9eb229d..55a6c34 100644
--- a/lib/Jaos/DBI.pm
+++ b/lib/Jaos/DBI.pm
@@ -699,14 +699,6 @@ sub delete
}
-=head2 get
-
-Get a column value.
-
- __PACKAGE__->get('column');
-
-=cut
-
=head2 set
Set a column value. This updates the column in the table row represented by the object.
@@ -738,6 +730,8 @@ sub set
Get a column value. If a relationship has been defined, this returns the object related to.
+ __PACKAGE__->get('column');
+
=cut
sub get
@@ -833,9 +827,9 @@ Return all rows in the table;
sub retrieve_all
{
- my ($self) = @_;
+ my $self = shift;
- return $self->search();
+ return $self->search(@_);
}
=head2 retrieve
@@ -849,6 +843,7 @@ Return row mathing the specified key against the primary column.
sub retrieve
{
my ($self,$key) = @_;
+ return undef unless $key;
if (my $existing = $self->_lookup_obj_in_cache($key)) {
return $existing;