File Coverage

blib/lib/DBIx/DataModel/Schema/ResultAs/Sth.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	23	24	95.8

#----------------------------------------------------------------------
package DBIx::DataModel::Schema::ResultAs::Sth;
#----------------------------------------------------------------------
use warnings;
use strict;
use Carp::Clan              qw[^(DBIx::DataModel::|SQL::Abstract)];

use parent 'DBIx::DataModel::Schema::ResultAs';

sub get_result {
  my ($self, $statement) = @_;

  $statement->execute;
  not $statement->arg(-post_bless)
    or croak "-post_bless incompatible with -result_as=>'sth'";
  return $statement->sth;
}

1;

__END__