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/Module/Install/TestBase.pm  view on Meta::CPAN

    $self->include('Test::Base::Filter');
    $self->include('Spiffy');
    $self->include('Test::More');
    $self->include('Test::Builder');
    $self->include('Test::Builder::Module');
    $self->requires('Filter::Util::Call');
}

1;

=encoding utf8

#line 70

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

}

{
    %$reserved_section_names = map {
        ($_, 1);
    } keys(%Test::Base::Block::), qw( new DESTROY );
}

__DATA__

=encoding utf8

#line 1376