On Mon, Nov 3, 2008 at 2:05 PM, Dr.Ruud <[EMAIL PROTECTED]> wrote:
> Suggestion for a core license.pm:
>
> package license;
> $LICENSE = "perl";
> 1;
>
> sub import {
> eval sprintf q/*%s::LICENSE=\\"%s"/,
> scalar caller,
> @_ == 2 ? $_[1] : join ",", @_[1..$#_];
> 1;
> }
> __END__
>
> (and C<use license ... ;> should be compiled away unless at
> distribution-time)What itch is this animal intended to scratch? -Ken
