X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSquirrel.pm;h=97b2fd8429c5c9611869cceb63aec1ef93eab00c;hb=6d46df7af00723bd7a0972abf5e5d62481ff6435;hp=039b7e4ac1442c96c85251d18c44f1b26baefade;hpb=103ad0e3c4ee7115e49ae896f7f4d8afd2e72c16;p=gitmo%2FMouse.git diff --git a/lib/Squirrel.pm b/lib/Squirrel.pm index 039b7e4..97b2fd8 100644 --- a/lib/Squirrel.pm +++ b/lib/Squirrel.pm @@ -1,7 +1,4 @@ -#!/usr/bin/perl - package Squirrel; - use strict; use warnings; @@ -27,7 +24,8 @@ sub _handlers { my $caller = caller(1); - $pkgs{$caller} ||= $class->_choose_backend; + $pkgs{$caller} = $class->_choose_backend + unless $pkgs{$caller}; } sub import { @@ -38,7 +36,7 @@ sub unimport { goto $_[0]->_handlers->{unimport}; } -__PACKAGE__ +1; __END__ @@ -65,7 +63,8 @@ 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