File Coverage

blib/lib/App/DBCritic/PolicyType/ResultSource.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package App::DBCritic::PolicyType::ResultSource;
2              
3             # ABSTRACT: Role for ResultSource critic policies
4              
5             #pod =head1 SYNOPSIS
6             #pod
7             #pod package App::DBCritic::Policy::MyResultSourcePolicy;
8             #pod use Moo;
9             #pod
10             #pod has description => ( default => sub{'Follow my policy'} );
11             #pod has explanation => ( default => {'My way or the highway'} );
12             #pod sub violates { $_[0]->element ne '' }
13             #pod
14             #pod with 'App::DBCritic::PolicyType::ResultSource';
15             #pod
16             #pod =head1 DESCRIPTION
17             #pod
18             #pod This is a role composed into L policy classes
19             #pod that are interested in Ls. It takes
20             #pod care of composing the L
21             #pod for you.
22             #pod
23             #pod =cut
24              
25 5     5   12380 use strict;
  5         14  
  5         153  
26 5     5   70 use utf8;
  5         15  
  5         39  
27 5     5   137 use Modern::Perl '2011'; ## no critic (Modules::ProhibitUseQuotedVersion)
  5         11  
  5         76  
28              
29             our $VERSION = '0.023'; # VERSION
30 5     5   864 use Moo::Role;
  5         12  
  5         36  
31 5     5   2289 use namespace::autoclean -also => qr{\A _}xms;
  5         13  
  5         50  
32             with 'App::DBCritic::PolicyType';
33             1;
34              
35             __END__