X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSquirrel.pm;h=fc8ea0973caf6ef82beff228bbb33d12b7b4f1c4;hb=4e31595cef06f35cd442a54206f3c1a05c1ac31f;hp=039b7e4ac1442c96c85251d18c44f1b26baefade;hpb=103ad0e3c4ee7115e49ae896f7f4d8afd2e72c16;p=gitmo%2FMouse.git diff --git a/lib/Squirrel.pm b/lib/Squirrel.pm index 039b7e4..fc8ea09 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 { @@ -65,7 +64,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