X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSquirrel.pm;h=82dec92a6a1a4106bd412b759328e8be0f31fc63;hb=74f2f839994288ca48292d561c9dc2d822deae39;hp=6e2b856dc7fb9afc69e74214fd8e41d9beb96057;hpb=692e1bcd8e516531416d8f6976f144080828b59e;p=gitmo%2FMouse.git diff --git a/lib/Squirrel.pm b/lib/Squirrel.pm index 6e2b856..82dec92 100644 --- a/lib/Squirrel.pm +++ b/lib/Squirrel.pm @@ -1,7 +1,5 @@ -#!/usr/bin/perl - +#!/usr/bin/env perl package Squirrel; - use strict; use warnings; @@ -27,7 +25,8 @@ sub _handlers { my $caller = caller(1); - $pkgs{$caller} ||= $class->_choose_backend; + $pkgs{$caller} = $class->_choose_backend + unless $pkgs{$caller}; } sub import { @@ -38,7 +37,7 @@ sub unimport { goto $_[0]->_handlers->{unimport}; } -__PACKAGE__ +1; __END__ @@ -59,13 +58,14 @@ Squirrel - Use L, unless L is already loaded. =head1 DESCRIPTION L and L are TEH BEST FRENDS, but if L isn't there -L will hang out with L as too. +L will hang out with L as well. When your own code doesn't actually care whether or not you use L or L 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 -L is already in use you get all the benefits of using that. +L is already in use you get all the benefits of using that +(transformability, introspection, more opportunities for code reuse, etc). =cut