File Coverage

blib/lib/Whelk/Schema/ExtraRule.pm
Criterion Covered Total %
statement 8 8 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 13 14 92.8


line stmt bran cond sub pod time code
1             package Whelk::Schema::ExtraRule;
2             $Whelk::Schema::ExtraRule::VERSION = '1.04';
3 25     25   186 use Whelk::StrictBase;
  25         51  
  25         197  
4 25     25   228 use Carp;
  25         77  
  25         8141  
5              
6             our @CARP_NOT = qw(Whelk::Schema Kelp::Base);
7              
8             attr '?openapi' => sub { {} };
9             attr '?hint' => sub { croak 'hint is required in rules' };
10             attr '?code' => sub {
11             sub { }
12             };
13              
14             sub inhale
15             {
16 30     30 0 57 my ($self, $value) = @_;
17              
18 30 100       81 return $self->code->($value) ? undef : $self->hint;
19             }
20              
21             1;
22