view release on metacpan or  search on metacpan

lib/Sub/Pipe.pm  view on Meta::CPAN

package Sub::Pipe;
use warnings;
use strict;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.3 $ =~ /(\d+)/g;
use base 'Exporter';
our @EXPORT = qw/joint/;

use overload '|' => sub { $_[0]->( $_[1] ) };

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

if ( $0 eq __FILE__ ) {
    local $\ = "\n";
    my $uri = joint {
        require URI::Escape;
        URI::Escape::uri_escape_utf8(shift);
    };
    my $html = joint {
        my $str = shift;
        $str =~ s{([&<>"])}{