view release on metacpan or  search on metacpan

t/AnyLoader.t  view on Meta::CPAN

# Change this to your # of ok() calls + 1
BEGIN { $Total_tests = 7 }

use AnyLoader;
use FindBin qw($Bin);
use lib ($Bin);

ok( Text::Soundex::soundex('schwern') eq 'S650' );
ok( Testing::AnyLoader::some_func() == 23 );
ok( Testing::AnyLoader::some_other_func() == 42 );

 view release on metacpan or  search on metacpan

t/pubsub.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 3;
use FindBin;
use lib "$FindBin::Bin/../lib";
use AnyEvent;
use AnyMQ;
use AnyMQ::Pg;
use Data::Dumper;

 view release on metacpan or  search on metacpan

eg/TwitterSan.pl  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';

use AnySan;
use AnySan::Provider::Twitter;

my $twitter = twitter