File Coverage

blib/lib/DBIx/Class/Helper/ResultSet/Shortcut/HasRows.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package DBIx::Class::Helper::ResultSet::Shortcut::HasRows;
2             $DBIx::Class::Helper::ResultSet::Shortcut::HasRows::VERSION = '2.034002';
3 56     56   20105 use strict;
  56         117  
  56         1279  
4 56     56   277 use warnings;
  56         104  
  56         1276  
5              
6 56     56   239 use parent 'DBIx::Class::Helper::ResultSet::Shortcut::Rows', 'DBIx::Class::ResultSet';
  56         102  
  56         247  
7              
8 1     1 0 68 sub has_rows { !! shift->rows(1)->next }
9              
10             1;
11              
12             __END__
13              
14             =pod
15              
16             =head1 NAME
17              
18             DBIx::Class::Helper::ResultSet::Shortcut::HasRows
19              
20             =head1 AUTHOR
21              
22             Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
23              
24             =head1 COPYRIGHT AND LICENSE
25              
26             This software is copyright (c) 2019 by Arthur Axel "fREW" Schmidt.
27              
28             This is free software; you can redistribute it and/or modify it under
29             the same terms as the Perl 5 programming language system itself.
30              
31             =cut