Disable foreign class warnings (PERL_MOUSE_STRICT will enable this)
[gitmo/Mouse.git] / lib / Squirrel.pm
1 package Squirrel;
2 use strict;
3 use warnings;
4
5 sub _choose_backend {
6     if ( $INC{"Moose.pm"} ) {
7         return {
8             backend  => 'Moose',
9             import   => \&Moose::import,
10             unimport => \&Moose::unimport,
11         };
12     } else {
13         require Mouse;
14         return {
15             backend  => 'Mouse',
16             import   => \&Mouse::import,
17             unimport => \&Mouse::unimport,
18         };
19     }
20 }
21
22 my %pkgs;
23
24 sub _handlers {
25     my $class = shift;
26
27     my $caller = caller(1);
28
29     $pkgs{$caller} ||= $class->_choose_backend;
30 }
31
32 sub import {
33     require Carp;
34     Carp::carp("Squirrel is deprecated. Please use Any::Moose instead. It fixes a number of design problems that Squirrel has.");
35
36     my $handlers = shift->_handlers;
37     unshift @_, $handlers->{backend};
38     goto &{$handlers->{import}};
39 }
40
41 sub unimport {
42     my $handlers = shift->_handlers;
43     unshift @_, $handlers->{backend};
44     goto &{$handlers->{unimport}};
45 }
46
47 1;
48
49 __END__
50
51 =pod
52
53 =head1 NAME
54
55 Squirrel - Use Mouse, unless Moose is already loaded. (DEPRECATED)
56
57 =head1 SYNOPSIS
58
59     use Squirrel;
60
61     has goggles => (
62         is => "rw", 
63     );
64
65 =head1 DEPRECATION
66
67 C<Squirrel> is deprecated. C<Any::Moose> provides the same functionality,
68 but better. :)
69
70 =head1 DESCRIPTION
71
72 L<Moose> and L<Squirrel> are THE BEST FRIENDS, but if L<Moose> isn't there
73 L<Squirrel> will hang out with L<Mouse> as well.
74
75 When your own code doesn't actually care whether or not you use L<Moose> or
76 L<Mouse> you can use either, and let your users decide for you.
77
78 This lets you run with minimal dependencies and have a faster startup, but if
79 L<Moose> is already in use you get all the benefits of using that
80 (transformability, introspection, more opportunities for code reuse, etc).
81
82 =head1 SEE ALSO
83
84 L<Any::Moose>
85
86 =cut
87
88