File Coverage

blib/lib/DBIx/Class/Helper/Row/CleanResultSet.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 15 15 100.0


line stmt bran cond sub pod time code
1             package DBIx::Class::Helper::Row::CleanResultSet;
2             $DBIx::Class::Helper::Row::CleanResultSet::VERSION = '2.036000';
3             # ABSTRACT: Get an unfiltered ResultSet from the row
4              
5 56     56   123753 use strict;
  56         130  
  56         1586  
6 56     56   272 use warnings;
  56         106  
  56         1412  
7              
8 56     56   274 use parent 'DBIx::Class::Row';
  56         123  
  56         295  
9              
10 1     1 1 45 sub clean_rs { return shift->result_source->resultset }
11              
12             1;
13              
14             __END__
15              
16             =pod
17              
18             =head1 NAME
19              
20             DBIx::Class::Helper::Row::CleanResultSet - Get an unfiltered ResultSet from the row
21              
22             =head1 SYNOPSIS
23              
24             In result class:
25              
26             __PACKAGE__->load_components('Helper::Row::CleanResultSet');
27              
28             Elsewhere:
29              
30             $row->clean_rs->$some_rs_method
31              
32             similar to:
33              
34             $row->result_source->resultset->$some_rs_method
35              
36             =head1 DESCRIPTION
37              
38             Sometimes you need to be able to access the ResultSet containing all rows.
39              
40             =head1 METHODS
41              
42             =head2 clean_rs
43              
44             $row->clean_rs
45              
46             =head1 AUTHOR
47              
48             Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
49              
50             =head1 COPYRIGHT AND LICENSE
51              
52             This software is copyright (c) 2020 by Arthur Axel "fREW" Schmidt.
53              
54             This is free software; you can redistribute it and/or modify it under
55             the same terms as the Perl 5 programming language system itself.
56              
57             =cut