Be more damning of Mouse, more Squirrel deprecation
[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             import   => \&Moose::import,
9             unimport => \&Moose::unimport,
10         }
11     } else {
12         require Mouse;
13         return {
14             import   => \&Mouse::import,
15             unimport => \&Mouse::unimport,
16         }
17     }
18 }
19
20 my %pkgs;
21
22 sub _handlers {
23     my $class = shift;
24
25     my $caller = caller(1);
26
27     $pkgs{$caller} = $class->_choose_backend
28         unless $pkgs{$caller};
29 }
30
31 sub import {
32     require Carp;
33     Carp::carp("Squirrel is deprecated. Please use Any::Moose instead. It fixes a number of design problems that Squirrel has.");
34     goto $_[0]->_handlers->{import};
35 }
36
37 sub unimport {
38     goto $_[0]->_handlers->{unimport};
39 }
40
41 1;
42
43 __END__
44
45 =pod
46
47 =head1 NAME
48
49 Squirrel - Use L<Mouse>, unless L<Moose> is already loaded.
50
51 =head1 SYNOPSIS
52
53         use Squirrel;
54
55     has goggles => (
56         is => "rw", 
57     );
58
59 =head1 DEPRECATION
60
61 L<Squirrel> is being deprecated. L<Any::Moose> provides the same functionality,
62 but better. :)
63
64 =head1 DESCRIPTION
65
66 L<Moose> and L<Squirrel> are TEH BEST FRENDS, but if L<Moose> isn't there
67 L<Squirrel> will hang out with L<Mouse> as well.
68
69 When your own code doesn't actually care whether or not you use L<Moose> or
70 L<Mouse> you can use either, and let your users decide for you.
71
72 This lets you run with minimal dependencies and have a faster startup, but if
73 L<Moose> is already in use you get all the benefits of using that
74 (transformability, introspection, more opportunities for code reuse, etc).
75
76 =cut
77
78