[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / VersionResultSet.pm

package DBIx::Class::DeploymentHandler::VersionResultSet;

use strict;
use warnings;

use parent 'DBIx::Class::ResultSet';

use Try::Tiny;

sub version_storage_is_installed {
  my $self = shift;
  try { $self->next; 1} catch { undef }
}

sub database_version {
  my $self = shift;
  $self->search(undef, {
    order_by => { -desc => 'installed' },
    rows => 1
  })->get_column('version')->next || 0;
}

1;
Commit	Line	Data
12fdd461	1	package DBIx::Class::DeploymentHandler::VersionResultSet;
	2
	3	use strict;
	4	use warnings;
	5
	6	use parent 'DBIx::Class::ResultSet';
	7
	8	use Try::Tiny;
	9
2a9e7b48	10	sub version_storage_is_installed {
12fdd461	11	my $self = shift;
	12	try { $self->next; 1} catch { undef }
	13	}
	14
2a9e7b48	15	sub database_version {
12fdd461	16	my $self = shift;
	17	$self->search(undef, {
	18	order_by => { -desc => 'installed' },
	19	rows => 1
	20	})->get_column('version')->next \|\| 0;
	21	}
	22
	23	1;