File Coverage

blib/lib/DBIx/Class/Smooth/ResultSet.pm
Criterion Covered Total %
statement 11 15 73.3
branch n/a
condition 0 3 0.0
subroutine 4 7 57.1
pod 0 3 0.0
total 15 28 53.5


line stmt bran cond sub pod time code
1 2     2   4452 use 5.20.0;
  2         6  
2 2     2   10 use strict;
  2         4  
  2         50  
3 2     2   8 use warnings;
  2         4  
  2         126  
4              
5             package DBIx::Class::Smooth::ResultSet;
6              
7             # ABSTRACT: Short intro
8             our $AUTHORITY = 'cpan:CSSON'; # AUTHORITY
9             our $VERSION = '0.0102';
10              
11 2     2   12 use parent 'DBIx::Class::Candy::ResultSet';
  2         3  
  2         13  
12              
13             sub base {
14 0     0 0   (my $base = caller(2)) =~ s{^(.*?)::Schema::ResultSet::.*}{$1};
15              
16 0   0       return $_[1] || "${base}::Schema::ResultSet";
17             }
18 0     0 0   sub perl_version { 20 }
19              
20 0     0 0   sub experimental { [] }
21              
22             1;
23              
24             __END__
25              
26             =pod
27              
28             =encoding UTF-8
29              
30             =head1 NAME
31              
32             DBIx::Class::Smooth::ResultSet - Short intro
33              
34             =head1 VERSION
35              
36             Version 0.0102, released 2019-12-22.
37              
38             =head1 SOURCE
39              
40             L<https://github.com/Csson/p5-DBIx-Class-Smooth>
41              
42             =head1 HOMEPAGE
43              
44             L<https://metacpan.org/release/DBIx-Class-Smooth>
45              
46             =head1 AUTHOR
47              
48             Erik Carlsson <info@code301.com>
49              
50             =head1 COPYRIGHT AND LICENSE
51              
52             This software is copyright (c) 2018 by Erik Carlsson.
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