#!/usr/bin/perl -w use strict; use warnings; use MooseX::AutoDoc; use FindBin '$Bin'; use lib "$Bin/lib"; use Test::More tests => 1; my $autodoc = MooseX::AutoDoc->new; my $spec = $autodoc->_package_info("AutoDocTest::Role::Role2"); my $target = { name => 'AutoDocTest::Role::Role2', roles => [], methods => [{ name => 'role_2'}], attributes => [ { name => 'role_2_attr', info => {}, description => 'Optional read-write value' }, ], }; is_deeply($target, $spec);