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.035000';
3 57     57   26922 use strict;
  57         141  
  57         1660  
4 57     57   354 use warnings;
  57         141  
  57         1601  
5              
6 57     57   302 use parent 'DBIx::Class::Helper::ResultSet::Shortcut::Rows', 'DBIx::Class::ResultSet';
  57         120  
  57         348  
7              
8 1     1 0 74 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) 2020 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