File Coverage

lib/MooseX/AttributeIndexes/Meta/Attribute/Trait/Indexed.pm
Criterion Covered Total %
statement 23 23 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 31 31 100.0


line stmt bran cond sub pod time code
1 6     6   834 use 5.006; #our, pragmas
  6         12  
2 6     6   23 use strict;
  6         6  
  6         117  
3 6     6   20 use warnings;
  6         5  
  6         379  
4              
5             package MooseX::AttributeIndexes::Meta::Attribute::Trait::Indexed;
6              
7             our $VERSION = '2.000000';
8              
9             # ABSTRACT: A Trait for attributes which permits various indexing tunables
10              
11             our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY
12              
13 6     6   597 use Moose::Role qw( has );
  6         321156  
  6         28  
14 6     6   17184 use Moose::Meta::Attribute::Custom::Trait::Indexed;
  6         11  
  6         160  
15 6     6   2340 use MooseX::Types::Moose 0.19 qw( CodeRef Bool );
  6         224457  
  6         54  
16 6     6   23534 use namespace::clean -except => 'meta';
  6         9  
  6         37  
17              
18             has 'primary_index' => (
19             is => 'ro',
20             isa => Bool | CodeRef, ## no critic (Bangs::ProhibitBitwiseOperators)
21             required => 1,
22             default => 0,
23             );
24              
25             has 'indexed' => (
26             is => 'ro',
27             isa => Bool | CodeRef, ## no critic (Bangs::ProhibitBitwiseOperators)
28             required => 1,
29             default => 0,
30             );
31              
32 6     6   1724 no Moose::Role;
  6         9  
  6         49  
33              
34             1;
35              
36             __END__
37              
38             =pod
39              
40             =encoding UTF-8
41              
42             =head1 NAME
43              
44             MooseX::AttributeIndexes::Meta::Attribute::Trait::Indexed - A Trait for attributes which permits various indexing tunables
45              
46             =head1 VERSION
47              
48             version 2.000000
49              
50             =head1 ATTRIBUTES
51              
52             =head2 C<indexed>
53              
54             Bool. 0 = This attribute is not/cannot indexed, 1 = This Attribute is/can-be indexed.
55              
56             CodeRef. sub{ my( $attribute_meta, $object, $attribute_value ) = @_; .... return }
57              
58             =head2 C<primary_index>
59              
60             Bool. 0 = This attribute is not a primary index, 1 = This Attribute is a primary index.
61              
62             CodeRef. sub{ my( $attribute_meta, $object, $attribute_value ) = @_; .... return }
63              
64             =head1 AUTHORS
65              
66             =over 4
67              
68             =item *
69              
70             Kent Fredric <kentnl@cpan.org>
71              
72             =item *
73              
74             Jesse Luehrs <doy@cpan.org>
75              
76             =back
77              
78             =head1 COPYRIGHT AND LICENSE
79              
80             This software is copyright (c) 2014 by Kent Fredric <kentfredric@gmail.com>.
81              
82             This is free software; you can redistribute it and/or modify it under
83             the same terms as the Perl 5 programming language system itself.
84              
85             =cut