File Coverage

blib/lib/Data/Sah/FormatCommon.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 7 7 100.0


line stmt bran cond sub pod time code
1             package Data::Sah::FormatCommon;
2              
3             our $DATE = '2016-06-17'; # DATE
4             our $VERSION = '0.002'; # VERSION
5              
6 2     2   25 use 5.010001;
  2         5  
7 2     2   6 use strict 'subs', 'vars';
  2         10  
  2         189  
8              
9             my %common_args = (
10             format => {
11             schema => ['str*', match=>qr/\A\w+(::\w+)*\z/],
12             req => 1,
13             pos => 0,
14             },
15             formatter_args => {
16             schema => 'hash*',
17             },
18             );
19              
20             my %gen_formatter_args = (
21             %common_args,
22             source => {
23             summary => 'If set to true, will return formatter source code string'.
24             ' instead of compiled code',
25             schema => 'bool',
26             },
27             );
28              
29             1;
30             # ABSTRACT: Common stuffs for Data::Sah::Format and Data::Sah::FormatJS
31              
32             __END__