File Coverage

blib/lib/AI/Genetic/Pro/Macromolecule/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 AI::Genetic::Pro::Macromolecule::Types;
2             our $VERSION = '0.09280.0_001';
3              
4              
5              
6             # ABSTRACT: Specific types for AI::Genetic::Pro::Macromolecule
7              
8 1     1   8 use Moose;
  1         1  
  1         11  
9 1     1   7759 use MooseX::Types::Moose qw(Str);
  1         2  
  1         13  
10 1     1   5820 use MooseX::Types -declare => [qw(Probability AIGeneticPro)];
  1         4  
  1         9  
11 1     1   11754 use namespace::autoclean;
  1         3  
  1         11  
12              
13             class_type AIGeneticPro, { class => 'AI::Genetic::Pro' };
14              
15             subtype Probability, as Str, where { $_ < 1 and $_ > 0 };
16              
17              
18             __PACKAGE__->meta->make_immutable;
19              
20              
21              
22              
23             =pod
24              
25             =head1 NAME
26              
27             AI::Genetic::Pro::Macromolecule::Types - Specific types for AI::Genetic::Pro::Macromolecule
28              
29             =head1 VERSION
30              
31             version 0.09280.0_001
32              
33             =head1 DESCRIPTION
34              
35             This module defines specific types and type coercions to be used by
36             AI::Genetic::Pro::Macromolecule.
37              
38              
39              
40             =head1 AUTHOR
41              
42             Bruno Vecchi <vecchi.b gmail.com>
43              
44             =head1 COPYRIGHT AND LICENSE
45              
46             This software is copyright (c) 2009 by Bruno Vecchi.
47              
48             This is free software; you can redistribute it and/or modify it under
49             the same terms as the Perl 5 programming language system itself.
50              
51             =cut
52              
53              
54              
55             __END__
56