File Coverage

blib/lib/MooseX/TrackDirty/Attributes/Trait/Role.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             #
2             # This file is part of MooseX-TrackDirty-Attributes
3             #
4             # This software is Copyright (c) 2011 by Chris Weyl.
5             #
6             # This is free software, licensed under:
7             #
8             # The GNU Lesser General Public License, Version 2.1, February 1999
9             #
10             package MooseX::TrackDirty::Attributes::Trait::Role;
11             {
12             $MooseX::TrackDirty::Attributes::Trait::Role::VERSION = '1.900'; # TRIAL
13             }
14             # Dist::Zilla: +PkgVersion
15              
16 11     11   23273 use Moose::Role;
  11         16  
  11         57  
17 11     11   36182 use namespace::autoclean;
  11         15  
  11         68  
18              
19 11     11   551 use MooseX::TrackDirty::Attributes::Util ':all';
  11         13  
  11         59  
20              
21             # debugging...
22             #use Smart::Comments;
23              
24             # ensure that future applications of a native trait will be handled correctly
25             after add_role => sub {
26             my ($self, $other) = @_;
27              
28             ### checking: $self->name
29             return unless $self->does_role('Moose::Meta::Attribute::Native::Trait');
30              
31             ### applying to self...
32             TrackDirtyNativeTrait->meta->apply($self);
33             return;
34             };
35              
36             around composition_class_roles => sub {
37             my ($orig, $self) = (shift, shift);
38              
39             ### in our composition_class_roles()...
40             return ($self->$orig(@_), Composite);
41             };
42              
43             !!42;
44              
45              
46              
47             =pod
48              
49             =encoding utf-8
50              
51             =head1 NAME
52              
53             MooseX::TrackDirty::Attributes::Trait::Role
54              
55             =head1 VERSION
56              
57             This document describes 1.900 of MooseX::TrackDirty::Attributes::Trait::Role - released February 15, 2012 as part of MooseX-TrackDirty-Attributes.
58              
59             =head1 SEE ALSO
60              
61             Please see those modules/websites for more information related to this module.
62              
63             =over 4
64              
65             =item *
66              
67             L<MooseX::TrackDirty::Attributes|MooseX::TrackDirty::Attributes>
68              
69             =back
70              
71             =head1 SOURCE
72              
73             The development version is on github at L<http://github.com/RsrchBoy/moosex-trackdirty-attributes>
74             and may be cloned from L<git://github.com/RsrchBoy/moosex-trackdirty-attributes.git>
75              
76             =head1 BUGS
77              
78             Please report any bugs or feature requests on the bugtracker website
79             https://github.com/RsrchBoy/moosex-trackdirty-attributes/issues
80              
81             When submitting a bug or request, please include a test-file or a
82             patch to an existing test-file that illustrates the bug or desired
83             feature.
84              
85             =head1 AUTHOR
86              
87             Chris Weyl <cweyl@alumni.drew.edu>
88              
89             =head1 COPYRIGHT AND LICENSE
90              
91             This software is Copyright (c) 2011 by Chris Weyl.
92              
93             This is free software, licensed under:
94              
95             The GNU Lesser General Public License, Version 2.1, February 1999
96              
97             =cut
98              
99              
100             __END__