[scpubgit/DX.git] / lib / DX / Role / But.pm

package DX::Role::But;

use DX::Role;

sub but {
  my ($self, %but) = @_;
  ref($self)->new(%$self, %but);
}

1;
Commit	Line	Data
9d759b64	1	package DX::Role::But;
	2
	3	use DX::Role;
	4
	5	sub but {
	6	my ($self, %but) = @_;
	7	ref($self)->new(%$self, %but);
	8	}
	9
	10	1;