File Coverage

blib/lib/Mongoose/Meta/AttributeTraits.pm
Criterion Covered Total %
statement 19 21 90.4
branch n/a
condition n/a
subroutine 7 9 77.7
pod n/a
total 26 30 86.6


line stmt bran cond sub pod time code
1             package Mongoose::Meta::AttributeTraits;
2             $Mongoose::Meta::AttributeTraits::VERSION = '1.02';
3             package Mongoose::Meta::Attribute::Trait::Binary;
4             $Mongoose::Meta::Attribute::Trait::Binary::VERSION = '1.02';
5 1     1   4 use strict;
  1         1  
  1         28  
6 1     1   4 use Moose::Role;
  1         0  
  1         7  
7              
8             has 'column' => (
9             isa => 'Str',
10             is => 'rw',
11             );
12              
13             has 'lazy_select' => (
14             isa => 'Bool',
15             is => 'rw',
16             default => 0,
17             );
18              
19             # -----------------------------------------------------------------
20              
21             {
22             package Moose::Meta::Attribute::Custom::Trait::Binary;
23             $Moose::Meta::Attribute::Custom::Trait::Binary::VERSION = '1.02';
24 0     0   0 sub register_implementation {'Mongoose::Meta::Attribute::Trait::Binary'}
25             }
26              
27             # -----------------------------------------------------------------
28              
29             package Mongoose::Meta::Attribute::Trait::DoNotMongoSerialize;
30             $Mongoose::Meta::Attribute::Trait::DoNotMongoSerialize::VERSION = '1.02';
31 1     1   3408 use strict;
  1         1  
  1         26  
32 1     1   3 use Moose::Role;
  1         1  
  1         4  
33              
34             has 'column' => (
35             isa => 'Str',
36             is => 'rw',
37             );
38              
39             has 'lazy_select' => (
40             isa => 'Bool',
41             is => 'rw',
42             default => 0,
43             );
44              
45             # -----------------------------------------------------------------
46              
47             {
48             package Moose::Meta::Attribute::Custom::Trait::DoNotMongoSerialize;
49             $Moose::Meta::Attribute::Custom::Trait::DoNotMongoSerialize::VERSION = '1.02';
50 1     1   1040 sub register_implementation {'Mongoose::Meta::Attribute::Trait::DoNotMongoSerialize'}
51             }
52              
53             # -----------------------------------------------------------------
54              
55             {
56             package Mongoose::Meta::Attribute::Trait::Raw;
57             $Mongoose::Meta::Attribute::Trait::Raw::VERSION = '1.02';
58 1     1   3100 use strict;
  1         2  
  1         20  
59 1     1   3 use Moose::Role;
  1         1  
  1         4  
60             }
61             {
62             package Moose::Meta::Attribute::Custom::Trait::Raw;
63             $Moose::Meta::Attribute::Custom::Trait::Raw::VERSION = '1.02';
64 0     0     sub register_implementation {'Mongoose::Meta::Attribute::Trait::Raw'}
65             }
66              
67             =head1 NAME
68              
69             Mongoose::Meta::AttributeTraits - Mongoose related attribute traits
70              
71             =head1 DESCRIPTION
72              
73             All Moose attribute traits used by Mongoose are defined here.
74              
75             =head2 DoNotMongoSerialize
76              
77             Makes Mongoose skip collapsing or expanding the attribute.
78              
79             =head2 Raw
80              
81             Skips unblessing of an attribute when saving an object.
82              
83             =cut
84              
85             1;