The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strictures 1;
use Test::More;
use Mojito::Model::MetaCPAN;
use List::Util qw/first/;
use Data::Dumper::Concise;

BEGIN {
  unless ($ENV{AUTHOR_TESTING}) {
    require Test::More;
    Test::More::plan(skip_all => 'these tests are for testing by the author');
  }
}

my $api = Mojito::Model::MetaCPAN->new;
my @synopsis = $api->get_synopsis_from_metacpan('Moose');
ok(first { m/package\s+Point/ } @synopsis, 'Moose synopsis line found');

done_testing();