File Coverage

blib/lib/App/MadEye/Plugin/Base.pm
Criterion Covered Total %
statement 21 22 95.4
branch 1 2 50.0
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 29 32 90.6


line stmt bran cond sub pod time code
1             package App::MadEye::Plugin::Base;
2 2     2   11 use strict;
  2         2  
  2         56  
3 2     2   26 use warnings;
  2         4  
  2         48  
4 2     2   8 use base qw/Class::Component::Plugin/;
  2         4  
  2         2145  
5 2     2   18022 use App::MadEye::Util qw/get_schema_from_pod/;
  2         8  
  2         138  
6 2     2   1835 use Kwalify ();
  2         7341  
  2         259  
7              
8             sub new {
9 2     2 1 101 my $class = shift;
10 2         17 my $self = $class->SUPER::new(@_);
11              
12 2 50       88 if (my $schema = get_schema_from_pod($self)) {
13 2     0   26 local $SIG{__DIE__} = sub { die "$self: @_" };
  0         0  
14 2         17 Kwalify::validate($schema, $self->config->{config});
15             }
16              
17 2         516 $self;
18             }
19              
20             1;
21