File Coverage

blib/lib/DBIx/DataModel/Schema/ResultAs/Firstrow.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             #----------------------------------------------------------------------
2             package DBIx::DataModel::Schema::ResultAs::Firstrow;
3             #----------------------------------------------------------------------
4 4     4   2652 use warnings;
  4         8  
  4         177  
5 4     4   42 use strict;
  4         8  
  4         95  
6              
7 4     4   17 use parent 'DBIx::DataModel::Schema::ResultAs';
  4         7  
  4         28  
8              
9             sub get_result {
10 17     17 1 36 my ($self, $statement) = @_;
11              
12 17         41 return $statement->_next_and_finish;
13             }
14              
15             1;
16              
17              
18             =head1 NAME
19              
20             DBIx::DataModel::Schema::ResultAs::Firstrow - first data row
21              
22             =head1 DESCRIPTION
23              
24             Returns the first data row and finishes the statement.