rjbs/Data-Section — pull request #14 by djerius (2014-06-12 19:18:22+00:00)
Title: allow roles as well as class based "inheritance"

I'd like to use `Data::Section` in a (`Moo`) role, but it doesn't recognize that sort of relationship. This (tiny!) patch tries to remedy it.

Here's some test code which works with the suggested fix:
```
package DataSection;

use Moo::Role;
use Data::Section -setup;

package try;

use Moo;
with 'DataSection';

has foo => ( is => 'ro' );

sub BUILD { print ${ $_[0]->section_data( 'config' ) } }

1;
__DATA__
__[ config ]__
Stuff & Nonsense
```
and the test:
```
% perl -Mtry -e 'try->new'
Stuff & Nonsense
```
I'd like to add a test which natively constructs a role relationship (i.e. doesn't use Moo), but unfortunately I don't understand the magic by which UNIVERSAL::DOES identifies roles, so can't craft one.