Squirrel - Use Mouse, unless Moose is already loaded. (DEPRECATED)

Mouse documentation Contained in the Mouse distribution.

Index

Code Index:

NAME

Top

Squirrel - Use Mouse, unless Moose is already loaded. (DEPRECATED)

SYNOPSIS

Top

    use Squirrel;

    has goggles => (
        is => "rw", 
    );

DEPRECATION

Top

Squirrel is deprecated. Any::Moose provides the same functionality, but better. :)

DESCRIPTION

Top

Moose and Squirrel are THE BEST FRIENDS, but if Moose isn't there Squirrel will hang out with Mouse as well.

When your own code doesn't actually care whether or not you use Moose or Mouse you can use either, and let your users decide for you.

This lets you run with minimal dependencies and have a faster startup, but if Moose is already in use you get all the benefits of using that (transformability, introspection, more opportunities for code reuse, etc).

SEE ALSO

Top

Any::Moose

Mouse documentation Contained in the Mouse distribution. 
package Squirrel;
use strict;
use warnings;

sub _choose_backend {
    if ( $INC{"Moose.pm"} ) {
        return {
            backend  => 'Moose',
            import   => \&Moose::import,
            unimport => \&Moose::unimport,
        };
    } else {
        require Mouse;
        return {
            backend  => 'Mouse',
            import   => \&Mouse::import,
            unimport => \&Mouse::unimport,
        };
    }
}

my %pkgs;

sub _handlers {
    my $class = shift;

    my $caller = caller(1);

    $pkgs{$caller} ||= $class->_choose_backend;
}

sub import {
    require Carp;
    Carp::carp("Squirrel is deprecated. Please use Any::Moose instead. It fixes a number of design problems that Squirrel has.");

    my $handlers = shift->_handlers;
    unshift @_, $handlers->{backend};
    goto &{$handlers->{import}};
}

sub unimport {
    my $handlers = shift->_handlers;
    unshift @_, $handlers->{backend};
    goto &{$handlers->{unimport}};
}

1;

__END__