File Coverage

blib/lib/DBIx/Class/DeploymentHandler/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 DBIx::Class::DeploymentHandler::Types;
2             $DBIx::Class::DeploymentHandler::Types::VERSION = '0.002233';
3 20     20   133 use strict;
  20         40  
  20         2269  
4 20     20   167 use warnings;
  20         1965  
  20         518  
5              
6             # ABSTRACT: Types internal to DBIx::Class::DeploymentHandler
7              
8 20     20   127 use Moose::Util::TypeConstraints;
  20         1713  
  20         218  
9             subtype 'DBIx::Class::DeploymentHandler::Databases'
10             => as 'ArrayRef[Str]';
11              
12             coerce 'DBIx::Class::DeploymentHandler::Databases'
13             => from 'Str'
14             => via { [$_] };
15              
16             subtype 'DBIx::Class::DeploymentHandler::VersionNonObj'
17             => as 'Str';
18              
19             coerce 'DBIx::Class::DeploymentHandler::VersionNonObj'
20             => from 'Object'
21             => via { $_->numify };
22              
23 20     20   37345 no Moose::Util::TypeConstraints;
  20         40  
  20         105  
24             1;
25              
26             # vim: ts=2 sw=2 expandtab
27              
28             __END__
29              
30             =pod
31              
32             =head1 NAME
33              
34             DBIx::Class::DeploymentHandler::Types - Types internal to DBIx::Class::DeploymentHandler
35              
36             =head1 AUTHOR
37              
38             Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
39              
40             =head1 COPYRIGHT AND LICENSE
41              
42             This software is copyright (c) 2019 by Arthur Axel "fREW" Schmidt.
43              
44             This is free software; you can redistribute it and/or modify it under
45             the same terms as the Perl 5 programming language system itself.
46              
47             =cut