File Coverage

blib/lib/Database/Async/Row.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition 0 2 0.0
subroutine 2 4 50.0
pod 2 2 100.0
total 10 18 55.5


line stmt bran cond sub pod time code
1             package Database::Async::Row;
2              
3 2     2   14 use strict;
  2         4  
  2         65  
4 2     2   11 use warnings;
  2         3  
  2         287  
5              
6             our $VERSION = '0.016'; # VERSION
7              
8             =head1 NAME
9              
10             Database::Async::Row - represents a single row response
11              
12             =head1 DESCRIPTION
13              
14              
15             =cut
16              
17             =head1 METHODS
18              
19             =cut
20              
21             =head2 new
22              
23             =cut
24              
25             sub new {
26 0     0 1   my $self = shift;
27 0           bless { @_ }, $self
28             }
29              
30             =head2 field
31              
32             =cut
33              
34             sub field {
35 0     0 1   my ($self, $name) = @_;
36             $self->{data}[$self->{index_by_name}{$name} // die 'unknown field ' . $name]->{data}
37 0   0       }
38              
39             1;
40              
41             __END__