view release on metacpan or  search on metacpan

eg/track.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use AnyEvent::FriendFeed::Realtime;

my($user, $remote_key, $request) = @ARGV;
my $done = AnyEvent->condvar;

binmode STDOUT, ":utf8";

my $client = AnyEvent::FriendFeed::Realtime->new(
    username   => $user,
    remote_key => $remote_key,
    request    => $request || "/feed/home",
    on_entry   => sub {
        my $entry = shift;
        print "$entry->{from}{name}: $entry->{body}\n";
    },
    on_error   => sub {

inc/Test/Builder.pm  view on Meta::CPAN

}

sub _copy_io_layers {
    my( $self, $src, $dst ) = @_;

    $self->_try(
        sub {
            require PerlIO;
            my @src_layers = PerlIO::get_layers($src);

            binmode $dst, join " ", map ":$_", @src_layers if @src_layers;
        }
    );

    return;
}

#line 1912

sub reset_outputs {
    my $self = shift;