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/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