[scpubgit/DKit.git] / lib / DX / Role / Fact.pm

package DX::Role::Fact;

use Moo::Role;

has required_action => (is => 'ro', predicate => 1);

sub but { ref($_[0])->new(%{$_[0]}, @_[1..$#_]) }

1;
Commit	Line	Data
9c7b21a2	1	package DX::Role::Fact;
	2
	3	use Moo::Role;
	4
	5	has required_action => (is => 'ro', predicate => 1);
	6
	7	sub but { ref($_[0])->new(%{$_[0]}, @_[1..$#_]) }
	8
	9	1;