Ticket #2143 (closed cage: fixed)
examples/benchmarks/overload.pl: Can we remove this file?
| Reported by: | jkeenan | Owned by: | jkeenan |
|---|---|---|---|
| Priority: | normal | Milestone: | |
| Component: | testing | Version: | 3.5.0 |
| Severity: | low | Keywords: | |
| Cc: | dukeleto cotto | Language: | |
| Patch status: | Platform: |
Description
This file appears to have nothing to do with Parrot.
$ cat examples/benchmarks/overload.pl
#! perl
package Foo;
use strict;
use warnings;
use overload '*' => \&my_mul, 'fallback' => 1;
sub new {
my ( $class, $val ) = @_;
return bless \$val, $class;
}
sub my_mul {
return ${ $_[0] } * ${ $_[1] };
}
1;
package main;
my $a = Foo->new(7);
my $b = Foo->new(6);
my $r;
for my $i ( 1 .. 50_000 ) { $r = $a * $b }
print "$r\n";
It does not appear to be invoked as part of any testing target.
$> ack -l 'overload.pl' * MANIFEST
The only thing it appears to do is to reproduce the content of the home page of dukeleto's web site.
Can we remove it? I will do so in 7 days unless there is an objection.
Thank you very much.
kid51
Change History
Note: See
TracTickets for help on using
tickets.
