Sophie

Sophie

distrib > Fedora > 18 > i386 > by-pkgid > a33d845846fb586be2993c6eed227050 > files > 7

perl-MooseX-MethodAttributes-0.28-1.fc18.noarch.rpm

use strict;
use warnings;
use Test::More tests => 2;

use FindBin;
use lib "$FindBin::Bin/lib";

use TestClass;

is_deeply(
    TestClass->meta->get_method('foo')->attributes,
    [q{SomeAttribute}, q{AnotherAttribute('with argument')}],
);

is_deeply(
    SubClass->meta->get_method('foo')->attributes,
    [(q{Attributes}) x 3],
);