| 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__ |