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   3512 use warnings;
  4         10  
  4         213  
5 4     4   27 use strict;
  4         9  
  4         130  
6              
7 4     4   23 use parent 'DBIx::DataModel::Schema::ResultAs';
  4         9  
  4         30  
8              
9             sub get_result {
10 17     17 1 43 my ($self, $statement) = @_;
11              
12 17         55 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.