view release on metacpan or  search on metacpan

eg/stream-client.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use AnyEvent::Atom::Stream;

my $url = "http://updates.sixapart.com/atom-stream.xml";
my $cv  = AnyEvent->condvar;

# API is compatible to XML::Atom::Stream
binmode STDOUT, ":utf8";

my $client = AnyEvent::Atom::Stream->new(
    callback  => sub {
        my $feed = shift;
        for my $entry ($feed->entries) {
            print $entry->title .
                ($feed->author ? " (by " . $feed->author->name . ")" : '') . "\n",
                    "  ", $entry->link->href, "\n";
            print "  (body: ", length($entry->content->body), " bytes)\n";
        }

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 1631

sub reset_outputs {
    my $self = shift;