File Coverage

blib/lib/MooseX/Adopt/Class/Accessor/Fast.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package MooseX::Adopt::Class::Accessor::Fast;
2              
3             our $VERSION = '0.00200';
4              
5             $INC{'Class/Accessor/Fast.pm'} = __FILE__;
6              
7             package #don't index
8             Class::Accessor::Fast;
9              
10 5     5   42633 use Moose;
  5         2075528  
  5         41  
11 5     5   32531 use namespace::clean;
  5         12  
  5         50  
12             with 'MooseX::Emulate::Class::Accessor::Fast';
13              
14             1;
15              
16             =head1 NAME
17              
18             MooseX::Adopt::Class::Accessor::Fast -
19             Hijack Class::Accessor::Fast in %INC;
20              
21             =head1 SYNOPSYS
22              
23             use MooseX::Adopt::Class::Accessor::Fast;
24             use CAF::Using::Module;
25             #that's it! JustWorks
26              
27             =head1 DESCRIPTION
28              
29             This module attempts to hijack L<Class::Accessor::Fast> in %INC and replace it
30             with L<MooseX::Emulate::Class::Accessor::Fast>. Make sure it is loaded before the
31             classes you have that use <Class::Accessor::Fast>. It is meant as a tool to help
32             you migrate your project from L<Class::Accessor::Fast>, to
33             L<MooseX::Emulate::Class::Accessor::Fast> and ultimately, to L<Moose>.
34              
35             =head1 SEE ALSO
36              
37             L<Moose>, L<Class::Accessor::Fast>, L<MooseX::Emulate::Class::Accessor::Fast>
38              
39             =head1 AUTHORS
40              
41             =over 4
42              
43             =item Matt S Trout
44              
45             =item Guillermo Roditi (groditi) <groditi@cpan.org>
46              
47             =back
48              
49             =head1 LICENSE
50              
51             You may distribute this code under the same terms as Perl itself.
52              
53             =cut
54