File Coverage

blib/lib/Business/RO/TaxDeduction/Types.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 29 29 100.0


line stmt bran cond sub pod time code
1             package Business::RO::TaxDeduction::Types;
2             $Business::RO::TaxDeduction::Types::VERSION = '0.010';
3             # ABSTRACT: Types for the TaxDeduction module
4              
5 4     4   68 use 5.010001;
  4         13  
6 4     4   41 use strict;
  4         19  
  4         86  
7 4     4   18 use warnings;
  4         7  
  4         91  
8 4     4   18 use utf8;
  4         6  
  4         24  
9 4         38 use Type::Library 0.040 -base, -declare => qw(
10             TaxPersons
11             MathBigFloat
12 4     4   1155 );
  4         64957  
13              
14 4     4   3201 use Type::Utils -all;
  4         14594  
  4         37  
15 4     4   12392 use Types::Standard -types;
  4         155389  
  4         34  
16              
17 4     4   15696 BEGIN { extends "Types::Standard" };
18              
19             declare "TaxPersons",
20             as "Int",
21             where { $_ >= 0 && $_ <= 4 };
22              
23             coerce "TaxPersons",
24             from "Int", via { $_ >= 4 ? 4 : $_ };
25              
26             class_type MathBigFloat, { class => 'Math::BigFloat' };
27              
28             1;
29              
30             __END__