File Coverage

blib/lib/App/DBCritic/PolicyType.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	28	28	100.0

package App::DBCritic::PolicyType;

# ABSTRACT: Role for types of database criticism policies

#pod =head1 SYNOPSIS
#pod
#pod     package App::DBCritic::PolicyType::ResultClass;
#pod     use Moo;
#pod     with 'App::DBCritic::PolicyType';
#pod     1;
#pod
#pod =head1 DESCRIPTION
#pod
#pod This is a L consumed by all L
#pod policy types.
#pod
#pod =cut

use strict;
use utf8;
use Modern::Perl '2011';    ## no critic (Modules::ProhibitUseQuotedVersion)

our $VERSION = '0.023';     # VERSION
require Devel::Symdump;
use List::MoreUtils;
use Moo::Role;
use Sub::Quote;
use namespace::autoclean -also => qr{\A _}xms;
with 'App::DBCritic::Policy';

has applies_to => (
    is   => 'ro',
    lazy => 1,
    ## no critic (ValuesAndExpressions::RequireInterpolationOfMetachars)
    default => quote_sub( <<'END_SUB' => { '$package' => \__PACKAGE__ } ),
        [   List::MoreUtils::apply {s/\A .+ :://xms}
            grep { shift->does($_) } Devel::Symdump->packages($package),
        ];
END_SUB
);

#pod =attr applies_to
#pod
#pod Returns an array reference containing the last component of all the
#pod C roles composed into the consuming class.
#pod
#pod =cut

1;

__END__