File Coverage

blib/lib/Mason/Types.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Mason::Types;
2             $Mason::Types::VERSION = '2.24';
3 20     20   92 use Moose::Util::TypeConstraints;
  20         30  
  20         1333  
4 20     20   34588 use strict;
  20         40  
  20         638  
5 20     20   100 use warnings;
  20         33  
  20         4977  
6              
7             subtype 'Mason::Types::CompRoot' => as 'ArrayRef[Str]';
8             coerce 'Mason::Types::CompRoot' => from 'Str' => via { [$_] };
9              
10             subtype 'Mason::Types::OutMethod' => as 'CodeRef';
11             coerce 'Mason::Types::OutMethod' => from 'ScalarRef' => via {
12             my $ref = $_;
13             sub { $$ref .= $_[0] }
14             };
15              
16             subtype 'Mason::Types::RegexpRefOrStr' => as 'RegexpRef';
17             coerce 'Mason::Types::RegexpRefOrStr' => from 'Str' => via { qr/$/ };
18              
19             subtype 'Mason::Types::Autoextend' => as 'ArrayRef[Str]';
20             coerce 'Mason::Types::Autoextend' => from 'Bool' => via { $_ ? [ '.mp', '.mc' ] : [] };
21              
22             1;