my $caller = $CALLER;
return sub {
my $name = shift;
- my @opts = @_;
+ my %opts = @_;
- $caller->meta->add_attribute($name => \@opts);
+ $caller->meta->add_attribute($name => \%opts);
}
},
with => sub {
- return sub { }
+ return sub {
+ confess "Role does not currently support 'with'";
+ }
},
requires => sub {
return sub { }