File Coverage

blib/lib/MooseX/Meta/Role/Strict.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package MooseX::Meta::Role::Strict;
2              
3 2     2   2773 use Moose;
  0            
  0            
4             extends 'Moose::Meta::Role';
5              
6             our $VERSION = 0.05;
7              
8             override apply => sub {
9             my ( $self, $other, @args ) = @_;
10              
11             if ( blessed($other) && $other->isa('Moose::Meta::Class') ) {
12             # already loaded
13             return MooseX::Meta::Role::Application::ToClass::Strict->new(@args)
14             ->apply( $self, $other );
15             }
16              
17             super;
18             };
19              
20             1;
21              
22             __END__
23              
24             =head1 NAME
25              
26             MooseX::Meta::Role::Strict - Ensure we use strict role application.
27              
28             =head1 VERSION
29              
30             Version 0.05
31              
32             =head1 DESCRIPTION
33              
34             This is the metaclass for C<MooseX::Role::Strict>. For internal use only.
35              
36             =head1 AUTHOR
37              
38             Curtis "Ovid" Poe, C<< <ovid at cpan.org> >>
39              
40             =head1 BUGS
41              
42             Please report any bugs or feature requests to C<bug-moosex-role-strict at rt.cpan.org>,
43             or through the web interface at
44             L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=MooseX-Role-Strict>. I will
45             be notified, and then you'll automatically be notified of progress on your bug
46             as I make changes.
47              
48             =head1 SUPPORT
49              
50             You can find documentation for this module with the perldoc command.
51              
52             perldoc MooseX::Role::Strict
53              
54             You can also look for information at:
55              
56             =over 4
57              
58             =item * RT: CPAN's request tracker
59              
60             L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=MooseX-Role-Strict>
61              
62             =item * AnnoCPAN: Annotated CPAN documentation
63              
64             L<http://annocpan.org/dist/MooseX-Role-Strict>
65              
66             =item * CPAN Ratings
67              
68             L<http://cpanratings.perl.org/d/MooseX-Role-Strict>
69              
70             =item * Search CPAN
71              
72             L<http://search.cpan.org/dist/MooseX-Role-Strict/>
73              
74             =back
75              
76             =head1 ACKNOWLEDGEMENTS
77              
78              
79             =head1 COPYRIGHT & LICENSE
80              
81             Copyright 2009 Curtis "Ovid" Poe, all rights reserved.
82              
83             This program is free software; you can redistribute it and/or modify it
84             under the same terms as Perl itself.
85              
86             =cut