blob: a278b09dbf62002f8c80c3a383d3d9cb26304994 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
package GnuPG::HashInit;
use Moo::Role;
sub hash_init {
my ($self, %args) = @_;
while ( my ( $method, $value ) = each %args ) {
$self->$method($value);
}
}
1;
__END__
|