File Coverage

lib/Sweet/Types.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Sweet::Types;
2 12     12   2366 use strict;
  12         23  
  12         371  
3 12     12   47 use warnings;
  12         17  
  12         231  
4              
5 12     12   682 use MooseX::Types;
  12         359480  
  12         52  
6              
7 12     12   23692 use MooseX::Types::Moose qw(Str ArrayRef);
  12         18616  
  12         56  
8              
9             class_type('Sweet::Dir');
10              
11             coerce 'Sweet::Dir',
12               from Str, via { Sweet::Dir->new(path => $_) },
13               from ArrayRef, via { Sweet::Dir->new(path => $_) };
14              
15             class_type('Sweet::File');
16              
17             coerce 'Sweet::File', from Str,
18               via { Sweet::File->new(path=>$_) };
19              
20             1;
21              
22