my ($class,$r)=@_;
my @pcs = $class->primary_columns;
if ( $#pcs ) {
- my %pks;
+ my %pks;
@pks{@pcs}=(@{$r->{args}});
- return $class->retrieve( %pks );
- }
- return $class->retrieve( %$r->{args}->[0] );
+ return $class->retrieve( %pks );
+ }
+ return $class->retrieve( $r->{args}->[0] );
}
1;