[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / CDBICompat / Convenience.pm

package DBIx::Class::CDBICompat::Convenience;

use strict;
use warnings;

sub find_or_create {
  my $class    = shift;
  my $hash     = ref $_[0] eq "HASH" ? shift: {@_};
  my ($exists) = $class->search($hash);
  return defined($exists) ? $exists : $class->create($hash);
}

sub retrieve_all {
  my ($class) = @_;
  return $class->retrieve_from_sql( '1' );
}

1;
Commit	Line	Data
dbd7896f	1	package DBIx::Class::CDBICompat::Convenience;
	2
	3	use strict;
	4	use warnings;
	5
	6	sub find_or_create {
	7	my $class = shift;
	8	my $hash = ref $_[0] eq "HASH" ? shift: {@_};
	9	my ($exists) = $class->search($hash);
	10	return defined($exists) ? $exists : $class->create($hash);
	11	}
	12
dbd7896f	13	sub retrieve_all {
dbd7896f	14	my ($class) = @_;
33ec7be0	15	return $class->retrieve_from_sql( '1' );
dbd7896f	16	}
	17
	18	1;