develooper Front page | perl.perl5.porters | Postings from August 2023

Re: PPC Elevator Pitch for Perl::Types

Thread Previous | Thread Next
From:
Oodler 577 via perl5-porters
Date:
August 22, 2023 22:02
Subject:
Re: PPC Elevator Pitch for Perl::Types
Message ID:
ZOUwagrlsIzpLy7r@odin.sdf-eu.org
* Christian Walde <walde.christian@gmail.com> [2023-08-22 23:09:09 +0200]:

> On Tue, 22 Aug 2023 20:43:03 +0200, Oodler 577 via perl5-porters <perl5-porters@perl.org> wrote:
> 
> > vaporware
> 
> ovid never used that word.

I am going to take your word for it, but I believe this statement
is correct in the literal sense.

> 
> ovid merely pointed out the basic fact that you have provided no code that
> is executable on the official perl distribution
> 
> if you have it, please provide
> 
> 
> 
> it is also notable that the non-functional code you DO have on CPAN
> proposes to provide a string.pm which would violate PAUSE perms, as:
> 
>   $ cpanm string
>   --> Working on string
>   Fetching http://www.cpan.org/authors/id/A/AB/ABERGMAN/types-0.05.tar.gz ... OK
> 
> something which you have steadfastly refused reply to in any fashion,
> which makes one wonder

Have you inspected the source code of types.pm"?

It is a 21 year old CPAN squatter package that contains the following code:
( direct link, https://metacpan.org/dist/types/source/lib/types.pm):

Note via CPAN, types.pm provides:

* float   in lib/types.pm
* int     in lib/types.pm
* number  in lib/types.pm
* string  in lib/types.pm
* unknown in lib/types.pm

And the code, which is unfortunate:

    package types;
    ...
    package unknown;
    our $dummy = 1;
    package int;
    our $dummy = 1;
    sub check {
        return 0 if($_[0] eq 'int' && ($_[1] ne 'number' && $_[1] ne 'int'));    
        return 1;
    }
    package float;
    use base qw(int);
    sub check {
        return 0 if($_[1] eq 'string');
        return 1;
    }
    our $dummy = 1;
    package number;
    use base qw(float);
    sub check {
        return 0 if($_[1] eq 'string');
        return 1;
    }
    our $dummy = 1;
    package string;
    use base qw(number);
    sub check { return 1};
    1;
    __END__

And that's just the facts. "Playing nice" with a clear case of CPAN squatting
is hard to do. What do you suggest the path forward is for this pickle? 

Cheers,
Brett

> 
> -- 
> With regards,
> Christian Walde

-- 
--
oodler@cpan.org
oodler577@sdf-eu.org
SDF-EU Public Access UNIX System - http://sdfeu.org
irc.perl.org #openmp #pdl #native

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About