Sub::Filter を書いたら Sub::Pipe ができていた

Perl

何を言っているのか分からねーと思うが(ry

Sub::Filter

http://github.com/fujiwara/Sub-Filter/tree/master

これを作って、さて CPAN に up しようかと思ったら dan さんが

perl - id:sfujiwaraのFilter.pmをSub::Pipeに

http://blog.livedoor.jp/dankogai/archives/51215678.html

だそうです。ソースコードも、本質部分はほぼ同じですね……

# Sub/Filter.pm
use overload
    '|'  => sub {
        my ($self, $arg) = @_;
        $self->($arg);
    },
    '""' => sub { $_[0] },
;

sub filter(&) {   ## no critic
    bless $_[0], __PACKAGE__;
}

# Sub/Pipe.pm
use overload '|' => sub { $_[0]->( $_[1] ) };

sub joint(&) { bless $_[0], __PACKAGE__ };

さてどうしようかと思ったけど、名前も Filter より Pipe のほうが良さげだし、せっかく頂いたので Sub::Pipe のほうを CPAN に上げておきます。

ところで github のプロジェクトってどうやって消すんだ?
[追記]
nekokakさんに教えていただきました。【小ネタ】githubでcloneとforkを間違えてしまったとき - masartz->log