roles.pl

#!/usr/bin/env perl
use 5.14.1;
use warnings;

package API  {
    use Moose::Role;

    requires qw/store/;
}

package IntervalUsers {
    use Moose::Role;

    requires qw/chart_type interval_users/;

    sub store {}
}

package Age {
    use Moose::Role;

    requires qw/age_from_user/;

    # If I use an attribute, it fails the requires check. If I use a method, it succeeds.
    # The documentation says:
    # > Note that attribute accessors also count as methods for the purposes of
    # > satisfying the requirements of a role.

    sub interval_users {}
    #has interval_users => ( is => 'ro' );

    with qw/IntervalUsers/;
}

package AccountAges {
    use Moose;

    with qw/Age API/;

    sub chart_type () { 'age' }
    sub age_from_user {}
}

my $component = AccountAges->new;

say $component->store;