[scpubgit/Object-Builder.git] / lib / Attribute / Builder.pm

package Attribute::Builder;

use strictures 1;
use base qw(Exporter);
use Attribute::Builder::AttributeSet;
use Moo::Role ();

our @EXPORT = qw(builder);

sub builder {
  my $target = caller;
  Moo::Role->apply_roles_to_package($target, AttributeSet(@_));
}

1;
Commit	Line	Data
322a6ab3	1	package Attribute::Builder;
	2
	3	use strictures 1;
	4	use base qw(Exporter);
	5	use Attribute::Builder::AttributeSet;
	6	use Moo::Role ();
	7
	8	our @EXPORT = qw(builder);
	9
	10	sub builder {
	11	my $target = caller;
	12	Moo::Role->apply_roles_to_package($target, AttributeSet(@_));
	13	}
	14
	15	1;